Пример SetText, GetText строкового поля
Автор: Mike Orriss
Ниже приведен простой пример поля 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;
|
|
