DBgrid, Memo, affichage par ligne

**mohandesga** · 31/03/2013, 12h53

bonjour a tous
je veux importer le contenu d'un Memo dans un DBGrid
j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
GotoBookmark((Pointer(DBGridrecherche.SelectedRows.Items[i])));
Memo1.lines.Add(FQuery.Queryclient.FieldByName('Nom').AsString);
FQuery.tabaffichage.Edit;
FQuery.tabaffichage.FieldByName('Nom').AsString:=Memo1.lines.Text;
FQuery.tabaffichage.Post;

mais le problème est qu'il m'affiche toutes les lignes du Memo dans une seule case du DBgrid
merci d'avance

**Ph. B.** · 31/03/2013, 14h39

Bonjour,

Envoyé par mohandesga

je veux importer le contenu d'un Memo dans un DBGrid
j'utilise ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
GotoBookmark((Pointer(DBGridrecherche.SelectedRows.Items[i])));
Memo1.lines.Add(FQuery.Queryclient.FieldByName('Nom').AsString);
FQuery.tabaffichage.Edit;
FQuery.tabaffichage.FieldByName('Nom').AsString:=Memo1.lines.Text;
FQuery.tabaffichage.Post;

mais le problème est qu'il m'affiche toutes les lignes du Memo dans une seule case du DBgrid

En effet, cela fait exactement ce que vous avez écrit.

Pour rappel, un DBgrid est une grille (~ tableau) de lignes et de colonnes qui représente le contenu d'un ensemble de données (TDataSet et ses descendants comme TTable, TQuery, etc).
Si vous voulez transférer le contenu du Memo dans votre grille (si tant est que cela soit ce que vous souhaitiez réellement faire

), il faut lire votre Memo ligne par ligne, découper chaque ligne en autant de morceaux qu'il y a de colonnes et distribuer ces éléments découpés dans chaque colonne de votre grille. Faut-il encore que l'ordre du découpage soit cohérent avec les colonnes de votre ensemble de données.

Ensuite :

S'agit-il d'ajouter des données ?
Ce n'est pas Edit qu'il faut alors utiliser mais Append, voire Insert.
ou de les modifier ?
Etes vous sur d'être positionné sur la bonne ligne ?
Le contenu du mémo correspond-il à une seule ligne de la table ?

**mohandesga** · 31/03/2013, 23h42

ja suis debutant en dev et excusez moi j'ai pas bien métrisé votre reponse.vous pouvez m'expliquer par un code comme example svp sachent que une seule colonne dans mn DBGrid
et j'utilise un Memo pour transférer des lignes sélectionnées dans un DBgid dans un autre DBGrid
mais j'arrive pas à separer les lignes de mon Memo pour pouvoir importer chaque ligne du memo dans une ligne de mon DBGid

**Ph. B.** · 01/04/2013, 01h26

Envoyé par mohandesga

ja suis debutant en dev et excusez moi j'ai pas bien métrisé votre reponse.vous pouvez m'expliquer par un code comme example svp sachent que une seule colonne dans mn DBGrid
et j'utilise un Memo pour transférer des lignes sélectionnées dans un DBgid dans un autre DBGrid
mais j'arrive pas à separer les lignes de mon Memo pour pouvoir importer chaque ligne du memo dans une ligne de mon DBGid

Bien, il s'agit en fait de copier des données d'un ensemble de données source vers un ensemble de données destination.
Les DBGrid ne sont la que pour visualiser ces ensembles et permettre de sélectionner quelles données seront copiées.
Une remarque : je ne vois pas trop l'intérêt de passer par un mémo intermédiaire.

Avant de vous aiguiller vers une solution, j'aimerais que vous posiez clairement le problème. Indiquez nous comment tout cela est organisé et décrivez les données que vous voulez copier, cad :

chaque DBGrid, l'ensemble de données auquel il est lié (TTable, TQuery ou autre),
la nature de la donnée à copier.

**mohandesga** · 01/04/2013, 01h51

j'ai un DBGrid recherche qui affiche le nom des clients ,c'est "DBGrirrecherche" représenté dans mon code.Ce dernier est lié à une tQuery "QueryClient" à travers une datasource.
Mon objectif est de chercher une liste de clients dans ce DBGrid
et une fois la recherche est faite
j'importe les noms des clients selectionnes dans un autre DBGid
pour se faire j'ai utilisé une table paradox "tableaffichage",constituée par une seule colonne et je la remplie par l'intermidiare d'une Memo
c'est à dire
une fois j'ai terminé la selection de la liste des clients je rempli mon Memo par les noms de ces clients et je rempli ma table affichage par ces noms
mais mon probleme c'est que tous les noms figure dans une seule ligne de ma table d'affichage

**Ph. B.** · 01/04/2013, 11h51

Envoyé par mohandesga

j'ai un DBGrid recherche qui affiche le nom des clients ,c'est "DBGrirrecherche" représenté dans mon code.Ce dernier est lié à une tQuery "QueryClient" à travers une datasource.
Mon objectif est de chercher une liste de clients dans ce DBGrid
et une fois la recherche est faite
j'importe les noms des clients selectionnes dans un autre DBGid
pour se faire j'ai utilisé une table paradox "tableaffichage",constituée par une seule colonne et je la remplie par l'intermidiare d'une Memo
c'est à dire
une fois j'ai terminé la selection de la liste des clients je rempli mon Memo par les noms de ces clients et je rempli ma table affichage par ces noms
mais mon probleme c'est que tous les noms figure dans une seule ligne de ma table d'affichage

Donc je confirme que passer par un Memo ne revient à rien d'autre qu'ajouter une étape inutile dans votre traitement !

Il faut parcourir l'ensemble des signets (bookmark) et pour chacun d'eux, ajouter un enregistrement dans la table affichage avec la donnée lue.
Grossièrement, cela donne en supposant que FQuery est une fiche (descendant de la classe TForm) dans laquelle se trouve vos différents composants, que le traitement est appelé depuis un bouton nommé BtnCopier dont l'événement OnClick est géré par la procédure BtnCopierClick :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFQuery.BtnCopierClick(Sender: TObject);
var
 i: Integer;
begin
  // Je parcours tous mes signets
  for i := 0 to DBGridRecherche.SelectedRows.Count - 1 do
  begin
    // Je me positionne sur le i° signet
    DBGridRecherche.DataSource.DataSet.GotoBookmark((Pointer(DBGridrecherche.SelectedRows.Items[i])));
    //Memo1.lines.Add(FQuery.Queryclient.FieldByName('Nom').AsString); <= INUTILE !
    // Je rajoute une ligne vide
    Self.tabaffichage.Append;
    // Je remplis cette ligne
    Self.tabaffichage.FieldByName('Nom').AsString := Self.Queryclient.FieldByName('Nom').AsString;
    // Je "valide" cette ligne dans la table
    Self.tabaffichage.Post;
  end;
end;

Compte tenu de ce que j'ai dit précédemment (je suis dans une procédure de ma classe fiche), je pourrais éviter d'utiliser Self et je proscris l'utilisation de FQuery (une instance de classe dans une méthode de classe est dangereux et source de bug).