Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
ВнизПомогите пожалуйста создать процедуру. Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2004.05.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.03 c