Delphi

pada field memo tekan event  OnGetText :

procedure TForm1.Table1SomeFieldGetText(Sender: TField; var Text: String;

DisplayText: Boolean);

begin

Text := Copy(Sender.AsString, 1, 50);

end;