標籤: widememo

[pascal]
procedure TForm1.ADOTable1good_nameGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := sender.AsString;
end;
[/pascal]