VPF::var-параметр процедуры - Форум программистов

Calypso

Дата 2.7.2004, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 30.6.2004

Репутация: нет
Всего: нет

<Spawn>
Спасибо большое за разъяснение overload
Этого не смг сделать учебник, а как всё просто...
Girder Насчёт тарминологии я вроде осведомлён, спасибо

December

Цитата

Цитата
if VF is TForm1 then(VF as TForm1).Top:=(VF as TForm1).Top-1;
и...
не канают.

Очень даже канает, Отсылаю код

Код

Procedure LoadVar(VO: Tobject);
begin
 if VO is TForm1 then(VO as TForm1).Top:=(VO as TForm1).Top-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadVar(Form1);
end;

Все остальное в проекте стандартное.
А можно сделать и так

Код

Procedure LoadVar(VO: Tobject);
begin
 if VO is TForm1 then(VO as TForm1).Top:=(VO as TForm1).Top-1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
LoadVar(Sender);
end;

Причем Form1.OnClick:=Button1Click;
и фарма будет подскакивать при щелчке и по кнопке и по форме с помощью центральзованного обработчика

December

Дата 2.7.2004, 13:40 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Цитата

А "существующий" это какой?

Это

Код

procedure LoadVar(gInt:pinteger;VarName:string);
begin
if VarName='' then gInt^:=gInt^+200;
end;

Calypso
Мне не нужно обрабатывать только эти свойства формы. Я пишу универсальную процедуру, которая грузит сохранеямые настройки из БД и рассовывает их куда надо. Привожу код процедуры, которая идёт перед application.run

Код


LoadVar(@MainForm.Top,'MainFormTop');
LoadVar(@MainForm.Left,'MainFormLeft');
LoadVar(@MainForm.Height,'MainFormHeight');
LoadVar(@MainForm.Width,'MainFormWidth');
MainForm.Top:=MainForm.Top+1;
MainForm.Top:=MainForm.Top-1;
LoadVar(MainForm.CheckBox1);
LoadVar(AutoAssignWareID,'AutoAssignWareID');
LoadVar(PendingInBillVendor,'PendingInBillVendor');
...
LoadVar(MainForm.RadioGroup3);
LoadVar(MainForm.ComboBox6);
LoadVar(MainForm.Edit1);
LoadVar(MainForm.Edit6);
LoadVar(MainForm.LabeledEdit3);
LoadVar(State_EditingWare,'State_EditingWare');
...

Как видишь, я не хочу париться с настройками, я просто пишу LoadVar, имя переменной, имя настройки, если надо, и всё.

--------------------

Для друзей с винграда - скидки на разработку сайтов

Петрович

Дата 2.7.2004, 14:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Цитата

Ну, ну. Дай бог что-бы Borland в очередном Upgrate не изменила определение свойств Top, ... и не устранила ошибку в компиляторе.

--------------------

Все знать невозможно, но хочется

December

Дата 2.7.2004, 16:23 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Петрович
Вот тогда и будем выкручиваться обходными путями

--------------------

Для друзей с винграда - скидки на разработку сайтов

Alex

Дата 2.7.2004, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Цитата(December @ 2.7.2004, 17:23)

Петрович
Вот тогда и будем выкручиваться обходными путями

ну ну

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »