изменение текста в dbGrid

← →
сергей1 (2004-08-04 13:42) [0]

Спасибо Соловьеву, подсказал как заменять текст в dbGrid, однако событие TField.OnGetText
доступно через FieldsEditor в design time только если Query уже содержит SQL код, а у
меня Query получает SQL запрос только во время работы программы, следовательно надо
устанавливать property form1.DBGrid1.Fields[0].OnGetText равным какой-нибудь процедуре,
а вот как она должна выглядеть ?

← →
roottim © (2004-08-04 13:53) [1]

на BeforOpen твоего DataSet

← →
сергей1 (2004-08-04 14:20) [2]

Я имел ввиду следующее :

Обьявляется процедура :
procedure GetText(Sender: TField;
var Text: String; DisplayText: Boolean);

Потом пишется ее реализация :
procedure GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
IF Sender.Asstring = "True"
Then Text := "Есть"
Else Text := "Нет"
end;

а вот теперь как ее присвоить property :

form1.DBGrid1.Fields[0].OnGetText:=form1.GetText(как_здесь_указать_параметры);

← →
roottim © (2004-08-04 14:31) [3]

procedure TForm1.ADODataSet1BeforeOpen(DataSet: TDataSet); begin DataSet.Fields[0].OnGetText:= GetText; end;

← →
сергей1 (2004-08-04 14:36) [4]

спасибо

изменение текста в dbGrid Найти похожие ветки