| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

изменение текста в dbGrid [D7, MSSQL]

сергей1 ©   (2004-08-04 13:42:00) 

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

---

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

спасибо

---

roottim   (2004-08-04 14:31:00) [2]

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

---

сергей1   (2004-08-04 14:20:00) [3]

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

Обьявляется процедура :
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 13:53:00) [4]

на BeforOpen твоего DataSet

---

Наверх