Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c