Советы по Delphi

         

Пример SetText/GetText строкового поля


Ниже приведен простой пример поля ID, содержащего A,B,C, для вывода (и обновления) *всех* элементов управления как 1,2,3:

procedure TForm1.Table1IDGetText(Sender: TField;var Text: OpenString; DisplayText: Boolean);var s: string;begins := (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;begincase 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]



Содержание раздела