Пример 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; |
Далее: Синхронизация таблицы и StringList »»