Советы по Delphi
Пример SetText/GetText строкового поля
Ниже приведен простой пример поля ID, содержащего A,B,C, для вывода (и обновления) *всех* элементов управления как 1,2,3:
|
procedure TForm1.Table1IDGetText(Sender: TField;
var Text: OpenString; DisplayText: Boolean);
var s: string;
begin
s := (Sender as TStringField).Value;
case s[1] of
'A' : Text := '1';
'B' : Text := '2';
'C' : Text := '3';
else Text := '9'
end; end; procedure TForm1.Table1IDSetText(Sender: TField; const Text: String); var s: string; begin case Text[1] of '1' : s := 'A'; '2' : s := 'B'; '3' : s := 'C'; else s := 'Z' end; (Sender as TStringField).Value := s; end; |
HTH
=== Mike Orriss === [000620]
