Скачать: CL | DM;

Помогите пожалуйста создать процедуру.   Найти похожие ветки 

← →
nedefan   (2004-05-18 07:49) [0]

Здраствуйте!
Я новичок в этом деле и возможно вопрос покажется вам глупым, но я сколько не мучаюсь ничего не получается.
У меня база данных состоит из нескольких таблиц. Я хочу чтобы на каждой форме в StatusBar отображались кол-во записей в базе, текущая запись и дата. Как мне это все правильно оформить(процедура, DLL или что то еще) чтобы не повторять один и тот же код много раз. Вот код:
Table1.Open;
StatusBar1.Panels[0].Text := "Количество записей: " + IntToStr(Table1.RecordCount);
StatusBar1.Panels[1].Text := "Текущая запись: " + IntToStr(Table1.RecNo);
StatusBar1.Panels[2].Text := "Текущая дата: " + DateToStr(date);
Заранее спасибо!

---

← →
Романов Р.В. ©   (2004-05-18 08:11) [1]

procedure ShowInfo(P1, P2, P3: TStatusPanel; Tbl: TTable);
begin
 P1.Text := "Количество записей: " + IntToStr(Tbl.RecordCount);;
 P2.Text := "Текущая запись: " + IntToStr(Tbl.RecNo);
 P3.Text := "Текущая дата: " + DateToStr(date);
end;

// Вызов процедуры

with StatusBar1 do
 ShowInfo(Panels[0], Panels[1], Panels[2], Table1);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c