Discussion :

[janjannaj]

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 :

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

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

[Just-Soft]

Salut

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
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.

[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

[Just-Soft]

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é.

[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 :

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

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)

[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

[Just-Soft]

Re,

voici une autre solution que j'ai trouvé ici même , 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.

[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 :

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

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