Discussion :

[thierrybatlle]

Bonsoir,

après avoir fait plusieurs recherche je n'arrive pas à trouver une solution pour que dans mon DBGrid il n'y ait plus MEMO affiché mais mes données.

J'ai vu que cela venait du fait que les champs plus de 250 caractères.

Y a t'il une solution pour formatter les données avant l'affichage ?

J'ai trouvé un algo qui date de l'été dernier et qui me sort plein d'erreur, alors si quelqu'un avait une solution pour Delphi 7?

Merci à tous.

[TicTacToe]

Un mémo est multi-ligne, donc par définition tu ne peux pas l'afficher dans une grille.
Néanmoins, tu as quand mêmes 2 solutions

Une solution, tu affiches un panel, ou tu affiches le mémo de la ligne active
-> j'imagine que cela te convient pas car on a pas une vue d'ensemble de tous les mémos...

Une autre
Tu fais un Champs calculés MonCalc de type string.
et dans OnCalcField de ta Table tu fais

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

le StringReplace sert à oter les retour chariot pour afficher sur une seule ligne ton mémo.
Sinon, tu peux également afficher uniquement la 1ere Ligne...

bon courage!

[thierrybatlle]

bonjour,

excuses moi mais tu la place où cette instruction ?

J'ai essayé dans l'évènement AfterOpen de mon SQLQuery mais cela ne marche pas.

As tu éventuellement un exemple ?

Merci pour tout.

[Zatoobux]

si ce n'est que pour affichage (pas d'edition) tu peux aussi transtyper ton champ memo en varchar dans le SQL avec l'instruction CAST.
Par exemple :

Code :

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

Select ... CAST(MonChamp AS VARCHAR (255))

Evidement tu n'affichera ici que 255 caracteres max...

TicTacToe t'indique dans l'evenement OnCalcField !!!

@+

[Bloon]

Autre possibilité : définir un événement OnGetText sur les zones Mémo.

Par exemple :

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
32
33
34
35
36
37
38
39
40
41
42
43
 
TForm1 = class(TForm)
...
private
    // Evénement qui renvoie le texte du mémo
    procedure memoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
...
end;
 
// AfterOpen du DataSet dont on veut traiter les zones Mémo
procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
var
  i : integer;
begin
  // on redirige les zones memo vers memoGetText
  for i := 0 to DataSet.FieldCount - 1 do
    if (DataSet.Fields[i] is TMemoField) then
      DataSet.Fields[i].OnGetText := memoGetText;
end;
 
procedure TForm1.memoGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  i : integer;
begin
  try
    Text := sender.AsString;
    if displayText then
    begin
      i := pos(#13,Text);
      if i > 0 then
        Text := copy(Text,1,i-1) + '...';
    end;
  except
    on edb: EDBEngineError do
      if ((edb.errors[0].ErrorCode = DBIERR_INVALIDBLOBHANDLE)
      or  (edb.errors[0].ErrorCode = ERRCODE_INVALIDBLOBHANDLE)) then
        Text := 'Handle de blob invalide, essayez de mettre BLOBS TO CACHE=-1 dans les paramètres de la connexion'
      else
        Text := edb.message;
    on e: Exception do
      Text := e.message;
  end;
end;

Bloon

[thierrybatlle]

Je souhaite savoir de qu'elle classe les constantes d'erreurs font parties.
Car pour DBIERR_INVALIDBLOBHANDLE et ERRCODE_INVALIDBLOBHANDLE il m'indique 'identificateurs non déclarés'

Merci.

[Zatoobux]

Les codes d'erreur du BDE : DBIERROR_... sont dans l'unité bde.

@+

[thierrybatlle]

Excuses moi, mais je souhaiterai bien comprendre, et je ne vois où est fait l'allusion à la DBGrid et j'aimerai comprendre comment cela peut fonctionner.

Comment les données sont redirigées vers la DBGrid ?

Merci.

[Bloon]

Excuses moi, mais je souhaiterai bien comprendre, et je ne vois où est fait l'allusion à la DBGrid et j'aimerai comprendre comment cela peut fonctionner.

Comment les données sont redirigées vers la DBGrid ?

Merci.

Le code que j'ai posté est lié au dataset et non au DBGrid. Mais comme le DBGrid ne fait qu'afficher le dataset, ça fonctionne.

Bloon

[demande001]

Bonjour;
un code très utile pour un joli design
je vous remercie tous bonne continuation