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

← →
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);

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