procedure TMainForm.DoOnShowTextField(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := Sender.AsString;
end;
procedure TMainForm.SetTextFieldEvent(const ADatSet: TBDEDataSet);
var
i: integer;
begin
with ADatSet do
begin
DisableControls;
try
for i := 0 to Fields.Count - 1 do
if Fields[i] is TMemoField then
Fields[i].OnGetText := DoOnShowTextField;
finally
EnableControls;
end;
end;
end;