Thema
:
"Feld xyz wurde nicht gefunden"
Einzelnen Beitrag anzeigen
shmia
Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
#
7
AW: "Feld xyz wurde nicht gefunden"
16. Jul 2010, 13:59
markieren
Delphi-Quellcode:
procedure
TForm1.MemoOnGetText(Sender: TField;
var
Text:
string
; DisplayText: Boolean);
begin
//Dafür sorgen, dass auch die Memo-Felder im DBGrid angezeigt werden
Text := Copy(Sender.AsString , 1, 50);
end
;
zusammenfalten
·
markieren
Delphi-Quellcode:
procedure
TForm1.TabelleXyAfterOpen(dataset:TDataset);
var
i : integer;
begin
// allen Memo-Feldern den neuen Event-Handler zuweisen
for
i := 0
to
Dataset.Fields.Count-1
do
begin
if
Dataset.Fields[i].DataType = ftMemo
then
Dataset.Fields[i].OnGetText := MemoOnGetText;
end
;
end
;
Andreas
Zitat
shmia
Öffentliches Profil ansehen
Mehr Beiträge von shmia finden