"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;

[Mysterio08]

Ich habe mich eben nochmal drangesetzt und versucht, das Problem zu lösen, habe es aber noch nicht geschafft.
Mit dem von dir geposteten Code, shmi bin ich schon ein wenig weitergekommen, aber es tritt immer noch derselbe Fehler auf.
Was meintest du mit "allen Memo-Feldern den neuen Event-Handler zuweisen"? Welchen Event-Handler? TabelleXyAfterOpen? Und wo soll ich den zuweisen, der wird mir bei den Memo-Felder bei keinem Ereignis angezeigt.

[DeddyH]

MemoOnGetText ist der Handler, welcher im AfterOpen-Event der Tabelle zugewiesen wird.

[Mysterio08]

Dann habe ich irgendwas falsch verstanden. Was steht denn nun im MemoOnGetText-Ereignis?

Delphi-Quellcode:

//Dafür sorgen, dass auch die Memo-Felder im DBGrid angezeigt werden
Text := Copy(Sender.AsString , 1, 50);

oder

Delphi-Quellcode:

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;

?

[DeddyH]

Im Ereignis wird der Text zugewiesen.

[Mysterio08]

Ja, jetzt habe ich es verstanden, da steht ja Dataset.Fields[i].OnGetText := MemoOnGetText...

Es klappt jetzt endlich!, danke DeddyH