Передать результат

← →
NneRreaLl (2003-12-29 01:07) [0]

Народ -- как можно передать результат из простой процедуры(написанной в ручную) в процедуру скажем -- button.click ? То есть чтобы без использования дополнительных компонентов на форме

← →
Palladin (2003-12-29 01:26) [1]

хм... я кнечно не телепат, но попробую

1.

procedure GetRes(var res:integer);
begin
res:=12;
end;

procedure TForm1.Button1Click(Sender:TObject);
var
needetres:integer;
begin
GetRes(needetres);
end;

2.

function GetRes:integer;
begin
result:=12;
end;

procedure TForm1.Button1Click(Sender:TObject);
var
needetres:integer;
begin
needetres:=GetRes;
end;

но думаю что что то тут не так... чего то ты другого хочешь... может тебе нужен полученный ранее результат...
тогда

TForm1=class(TForm)...

protected
m_nGetThisLater:integer;
procedure GetRes;
end;

procedure TForm1.GetRes;
begin
m_nGetThisLater:=12;
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
// полный доступ к m_nGetThisLater
end;

← →
NneRreaLl (2003-12-29 01:53) [2]

А можно передать результат из процедуры buttonclick в buttonclick ?

Всё равно спасибо

← →
Palladin (2003-12-29 01:56) [3]

Описывай что сделать хочешь.
Фраза "передать резулдьтат из buttonclick в buttonclick" более чем загадочная.

← →
TUser (2003-12-29 05:55) [4]

Если эти процедуры записаны в одном классе - зарегистрируй для передавания результата свою переменную. В одной процедуре присвоил, вызвал другую, она прочитала. Если они в разных классах переменную описывай в юните.

Передать результат Найти похожие ветки