VPF::Подскажите как в процедуру передать значение

dikiy

Дата 5.10.2005, 09:40 (ссылка)

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

Загрузка ...

Шустрый

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

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

Как в процедуру передать значение?

SoWa

Дата 5.10.2005, 10:12 (ссылка)

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

Загрузка ...

Харекришна

Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

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

Хм... Как всегда:

Код


// процедура:
procedure SetCaption(s: string);
begin
form1.caption:=s;
end;
// код программы
...
begin
SetCaption('Передаю параметр названию формы');
end;

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

Всем добра smile

dikiy

Дата 5.10.2005, 10:15 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(SoWa @ 5.10.2005, 10:12)

Хм... Как всегда:

Да вот нифига все так и сделал, а пишет ошибку [Error] Unit1.pas(69): Too many actual parameters
правда я передаю переменную, а не строку, но какая нафиг разница?

~FoX~

Дата 5.10.2005, 10:22 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

dikiy
Код в студию.

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

…множественность никогда не следует полагать без необходимости…

dikiy

Дата 5.10.2005, 10:33 (ссылка)

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

Загрузка ...

Шустрый

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

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

Код


procedure refresh(otd:string);
begin
form1.Query1.Active:=false;
form1.Query1.SQL.Clear;
form1.Query1.SQL.Add('select zsnu.num,zsnu.code,sum(sum),acatalog.rn');
form1.Query1.SQL.Add('from zhis,zsnu,zfcac,acatalog');
form1.Query1.SQL.Add('where zhis.snu_rn=zsnu.snu_rn and zhis.ank_rn=zfcac.ank_rn');
form1.Query1.SQL.Add('and zfcac.catalog_rn=acatalog.rn');
form1.Query1.SQL.Add('and year=:god and month=:mes');
form1.Query1.SQL.Add('group by acatalog.rn,zsnu.num');
form1.Query1.Params[0].AsInteger:=strtoint(form1.Edit1.Text);
form1.Query1.Params[2].AsInteger:=form1.ComboBox1.ItemIndex+1;
form1.Query1.Filtered:=true;
form1.Query1.Filter:=otd;
form1.Query1.Active:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
otd:string;
begin
otd:='003y';
refresh(otd);

Это сообщение отредактировал(а) Alex - 5.10.2005, 11:01

~FoX~

Дата 5.10.2005, 10:37 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

dikiy
Процедцра с именем Refresh не может уже существует (точнее это не процедура, а метод объекта, но это не важно), переименуй например MyRefresh и все получиться

Это сообщение отредактировал(а) ~FoX~ - 5.10.2005, 10:38

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

…множественность никогда не следует полагать без необходимости…

Rennigth

Дата 5.10.2005, 10:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

назови проседуру подругому или объяви в интерфейсной части ее и вызывай с названием модуля.

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

(* Honesta mors turpi vita potior *)

dikiy

Дата 5.10.2005, 10:44 (ссылка)

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

Загрузка ...

Шустрый

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

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

Понятно где была собака зарыта спасибо всем smile

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