|
|
|
|
Delphi 1
Пример 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]
|
|
|
|
|