Affichage d'un Memo dans un DBGrid
ktsld
Messages postés
6
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
28 mai 2003
-
28 mai 2003 à 14:43
garfield64 Messages postés 2 Date d'inscription dimanche 18 mai 2003 Statut Membre Dernière intervention 29 mai 2003 - 29 mai 2003 à 18:48
garfield64 Messages postés 2 Date d'inscription dimanche 18 mai 2003 Statut Membre Dernière intervention 29 mai 2003 - 29 mai 2003 à 18:48
1 réponse
garfield64
Messages postés
2
Date d'inscription
dimanche 18 mai 2003
Statut
Membre
Dernière intervention
29 mai 2003
29 mai 2003 à 18:48
29 mai 2003 à 18:48
Le plus simple est de rechercher dans l'ensemble de données le champ (TField) voulu, puis d'affecter à son événement OnGetText la procédure de retour . voici un exemple avec la célèbre base DBDEMOS la table utilisée est biolife.db:
procedure TForm1.Table1NotesGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:= Sender.AsString;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
lField: TField;
begin
lField:= Table1.Fields.FindField('Notes');
if lField <> NIl then
begin
lField.OnGetText:= Table1NotesGetText;
end;
end;
Il est possible de fixer ce travail à la conception en créant les champs voulus et dans l'explorateur de composant affecté la procédure à l'événement OnGetText.
procedure TForm1.Table1NotesGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
Text:= Sender.AsString;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
lField: TField;
begin
lField:= Table1.Fields.FindField('Notes');
if lField <> NIl then
begin
lField.OnGetText:= Table1NotesGetText;
end;
end;
Il est possible de fixer ce travail à la conception en créant les champs voulus et dans l'explorateur de composant affecté la procédure à l'événement OnGetText.
