"Feld xyz wurde nicht gefunden"

[shmia]

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;

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;