Передача параметров в процедуру

← →
sten (2008-01-08 19:27) [0]

Здравствуйте.
Мне необходимо передать две текстовые строки в функцию [B][Code]OnExecClick[/Code][/B]. Код представлен ниже.
[Code]
var i, j, count, count2 : integer;
begin
count:=StrToInt(Ini.ReadString("Faculty","CountFac","0"));
for i := 0 to count - 1 do
begin
count2:=StrToInt(Ini.ReadString("Programms"+IntToStr(i+1), "CountProg", "0"));
for j := 0 to count2 - 1 do
begin
CategoryButtons1.Categories[i].Items.Add;
CategoryButtons1.Categories[i].Items.Items[j].Caption:=Ini.ReadString("Programms "+IntToStr(i+1),"NameProg"+IntToStr(j+1),"NULL");
CategoryButtons1.Categories[i].Items.Items[j].ImageIndex:=1;
CategoryButtons1.Categories[i].Items.Items[j].OnClick:=[B]OnExecClick[/B];
end;
end;
end;
[/Code]

Объявление процедуры OnExecClick
[Code]
procedure TMainForm.OnExecClick(Sender: TObject);
begin
// какие-то действия
end;
[/Code]
Пробовал
[Code]procedure TMainForm.OnExecClick(Sender: TObject; [B]s1,s2 : string[/B]);
begin
// какие-то действия
end;
[/Code]
тогда как мне их написать в строчке
[Code]CategoryButtons1.Categories[i].Items.Items[j].OnClick:=[B]OnExecClick[/B][/Code]

Хотелось бы услышать Ваше мнение, первый раз динамически задаю процедуру события нажатия кнопки...

← →
{RASkov} © (2008-01-08 20:02) [1]

> [0] sten (08.01.08 19:27)
> первый раз динамически задаю процедуру события нажатия кнопки

События - это свойства, а свойства имеют тип..... Хоть и у событий процедурный тип, но и он описан зарание и его так просто менять нельзя...
А у тебя равносильно тому, что свойству Tag: Integer присваивать строку например: Form1.Tag:="Hello я ваша мама";

ЗЫЖ И не нужно в ручную криво тэги ставить, читать невозможно.... :(

← →
Юрий Зотов © (2008-01-08 23:44) [2]

Если в функцию нужно передать параметры, которые ее прототипом не предусмотрены, то проще всего сделать это через глобальные переменные.

← →
Германн © (2008-01-09 01:18) [3]

> Юрий Зотов © (08.01.08 23:44) [2]

Очень не хочется быть "буквоедом" (особенно зная твоё отношение к ним:), но приходится. Иначе зачем LVT старался (да и не он один), а АП собирал "народную мудрость" и размещал на своём сайте: http://www.podgoretsky.com/DM/BadWillPoetry.html#BW-03
:)

Позволь тебя перефразировать.
"
> Если в функцию нужно передать параметры, которые ее прототипом
> не предусмотрены, то проще всего сделать это через переменные формы, в которой описан данный метод-обработчик события.
>

← →
Anatoly Podgoretsky © (2008-01-09 03:23) [4]

> Германн (09.01.2008 01:18:03) [3]

> а АП собирал "народную мудрость" и размещал на своём сайте:

По крохам, так и не собрал всего, народ обленился стихи писать не хочет, а начали активно.

← →
Германн © (2008-01-09 03:47) [5]

> Anatoly Podgoretsky © (09.01.08 03:23) [4]
>
> > Германн (09.01.2008 01:18:03) [3]
>
> > а АП собирал "народную мудрость" и размещал на своём сайте:
>
>
> По крохам, так и не собрал всего, народ обленился стихи
> писать не хочет, а начали активно.
>

Ну хоть столько. И так спасибо! :)

Ну а народ наш ленивый, по умолчанию :)
RAD - он и есть RAD. :-)

> Германн (09.01.2008 03:47:05) [5]

Но любит же наш народ народные стихи, а тут на полпути тормознули и расскачать не удалось, надо делать еще одну рекламную акцию.

> Anatoly Podgoretsky © (09.01.08 04:12) [6]
>
> > Германн (09.01.2008 03:47:05) [5]
>
> Но любит же наш народ народные стихи, а тут на полпути тормознули
> и расскачать не удалось, надо делать еще одну рекламную
> акцию.
>

Ну попробуй. Но я не верю, что она поможет. Разве что ещё лет через десять?

P.S. Может кто из стариков (не ветеранов, а именно стариков по возрасту) помнит вторую часть фильма "Волшебная сила искусства"?

> Германн © (09.01.08 01:18) [3]

Как говорит Игорь (и я с ним согласен), всякий овощ полезен, будучи употребленным к месту и вовремя.

То есть - все зависит от задачи. Единого рецепта нет и быть не может. И вредные советы тоже не нужно рассматривать, как непреложную истину.

Передача параметров в процедуру Найти похожие ветки