Champ (memo) dans un DbGrid

Version imprimable

10/04/2011, 11h01
janjannaj

Champ (memo) dans un DbGrid
Bonojour,

J'utilise un TQuery qui est relié à un TDataSource qui lui même est relier au TDbGrid.

Lorsque j'effectue la requet suivante :
Code:

1 2 3 SELECT GROUP_CONCAT(MonChamp SEPARATOR ", ") FROM MaTABLE
Elle me retourne tous les champs concaténé avec une virgule entre chaque champs sous MySQL. Mais dans mon DbGrid le champs est bel et bien reconnu mais il affiche (MEMO)

Merci d'avance pour votre aide

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const
                 Rect: TRect; Field: TField; State:
                 TGridDrawState);
 
var
  P: array [0..50] of char; {array size is number of  
                             characters needed}
  bs: TBlobStream;          {from the memo field}
  hStr: String;
 
begin
  if Field is TMemoField then
  begin
    with (Sender as TDBGrid).Canvas do
    begin   {Table1Notes is the TMemoField}
      bs := TBlobStream.Create(Table1Notes, bmRead);
      FillChar(P,SizeOf(P),#0); {terminate the null string}
      bs.Read(P, 50); {read 50 chars from memo into blobStream}
      bs.Free;
      hStr := StrPas(P);
      while Pos(#13, hStr) > 0 do  {remove carriage returns and}
        hStr[Pos(#13, hStr)] := ' ';
      while Pos(#10, hStr) > 0 do  {line feeds}
        S[Pos(#10, hStr)] := ' ';
 
      FillRect(Rect);  {clear the cell}
      TextOut(Rect.Left, Rect.Top, hStr);  {fill cell with memo
                                            data}
    end;
  end;
end;

je l'ai pas essayé car je viens de le recopier du net mais ça m'a l'air correct.

10/04/2011, 12h33
janjannaj

J'ai deux erreurs lors de la compilation :

Table1Notes n'est pas reconnu. J'ai essayer de le changer par le nom du champ (celui que j'ai utiliser dans le filtre du DbGrid et donc celui de l'alias du champs de la base de donnée) mais il n'est pas reconnu non plus.
Le "S" de la deuxième boucle qui n'est pas déclarer.

PS: pourrait tu me donner le lien de site d'où vient ce code stp
10/04/2011, 15h07
Just-Soft
Citation:

Envoyé par janjannaj

J'ai deux erreurs lors de la compilation :

Table1Notes n'est pas reconnu. J'ai essayer de le changer par le nom du champ (celui que j'ai utiliser dans le filtre du DbGrid et donc celui de l'alias du champs de la base de donnée) mais il n'est pas reconnu non plus.
Le "S" de la deuxième boucle qui n'est pas déclarer.

PS: pourrait tu me donner le lien de site d'où vient ce code stp

Re,
1. C'est tjrs HSTR pas S c'est une petite erreur
2. Table1Notes est le champ Notes dans le composant Table, tu peux le remplacer par taTable.FieldByName('tonChmap').AsString
3. la politique de DEV veut qu'on ne met pas de liens externes, désolé.
10/04/2011, 15h21
janjannaj

Pour le hStr pas de problèmes par contre pour le l'autre erreur j'ai remplacer par le MonQuery.FieldByName('NomDuCHamp').AsString et il me dit que TBlobField et string ne sont pas compatibles pareil si je ne met pas le AsString il me dit que TBlobField et TField ne sont pas compatibles

J'ai essayer comme ceci:

Code:

bs:= TBlobStream.Create(TBlobField.Create(Query.FieldByName('NomDuChamp')), bmread);

Comme ça il ne me fait pas d'erreurs de compilation mais il m'affiche toujours (memo)
10/04/2011, 15h31
janjannaj

Après vérification je me suis rendu conte que la procédure n'est jamais exécutée. Pourtant elle se trouve bien dans l'événement OnDrawDataCell du DbGrid.

Voila ce que dit l'aide de Delphi sur cette événement "N'écrivez pas de gestionnaire d'événement OnDrawDataCell. OnDrawDataCell est obsolète et n'est proposé que dans un souci de compatibilité descendante. A la place, écrivez un gestionnaire d'événement OnDrawColumnCell."
L'événement OnDrawColumnCell ne contient pas le paramètre Field
10/04/2011, 16h36
Just-Soft

Re,

voici une autre solution que j'ai trouvé ici même :ccool:, la simplicité de celle-ci consiste dans le fait que le formatage de la donnée mémo est traité dans le dataset indépendamment du dbgrid mais s'affiche correctement dans celui-ci donc plus extensible que la 1ière solution.
10/04/2011, 16h53
janjannaj

La fonction SQL CAST ne fonctionne pas chez moi.
Que faut-il mettre à la place du MonCalc et à la plac du MonMemo dans a ligne suivante ?

Code:

MonCalc.AsString := stringReplace( MonMemo.AsString, #13#10, ' ' , [ rfRaplaceAll ] );