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

Использование компонент в функциях   Найти похожие ветки 

← →
Виталий___   (2006-02-05 21:35) [0]

Я написал вручную отдельную функцию  сразу после значка {$R *.dfm}. Из процедур функция вызывается нормально.
Функция начинается так: Function AvCycle :Real;
Но у меня не получается использовать компоненты в этой функции.
Например if Label1.text="" then ..... пришет, что undeclared ....
с процедурами тоже самое. Помогите, если кто знает где объявлять. везде перепробывал - никак:(

---

← →
YurikGL ©   (2006-02-05 21:37) [1]

Компоненты в функции?
1) Что нужно в целом?
2) Давайте более полный код... как объявляете и как пытаетесь использовать....

---

← →
Виталий___   (2006-02-05 21:52) [2]

код примерно такой:

Function Av :Real;
var j,i:integer;
begin
i:=1;
j:=2;
if Label1.text="xx" Then Av:=j+i
else Av:=0;
end;

Как сделать, чтобы работало с Label1? без Label1 работает.

---

← →
Джо ©   (2006-02-05 21:54) [3]

Function Av (Label: TLabel) :Real;
var j,i:integer;
begin
 i:=1;
 j:=2;
 if Label.text="xx" Then
   Av:=j+i
 else Av:=0;
end;

---

← →
Reindeer Moss Eater ©   (2006-02-05 21:54) [4]

Function Av(Label1 : TLabel) : Real;

---

← →
Виталий___   (2006-02-05 22:11) [5]

а как теперь эту функцию вызвать?
если вызывать так:
s:=Av;
пишет Not Enough Actual Parametr.

---

← →
Джо ©   (2006-02-05 22:39) [6]

> [5] Виталий___   (05.02.06 22:11)
> а как теперь эту функцию вызвать?

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

---

← →
YurikGL ©   (2006-02-05 23:04) [7]

> Function Av :Real;
> var j,i:integer;
> begin
> i:=1;
> j:=2;
> if Label1.text="xx" Then Av:=j+i
> else Av:=0;
> end;


Попробуй
Function Av :Real;
var j,i:integer;
begin
i:=1;
j:=2;
if Form1.Label1.text="xx" Then Av:=j+i
else Av:=0;
end;

---

← →
YurikGL ©   (2006-02-05 23:06) [8]

> а как теперь эту функцию вызвать?

s:=Av(label1);

---

← →
Джо ©   (2006-02-05 23:10) [9]

> [7] YurikGL ©   (05.02.06 23:04)
> Попробуй

Не нужно это пробовать, так вообще не нужно :)

---

← →
Виталий___   (2006-02-05 23:11) [10]

> YurikGL


Спасибо! Всё теперь заработало.

---

← →
Джо ©   (2006-02-05 23:12) [11]

> Спасибо! Всё теперь заработало.

Это только так кажется.

---

← →
Виталий___   (2006-02-05 23:16) [12]

и всем, кто откликнулся тоже спасибо.
правильный ответ: if Form1.Label1.text="xx"
а вызывается как обычно, без параметров.

---

← →
Джо ©   (2006-02-05 23:42) [13]

> [12] Виталий___   (05.02.06 23:16)
> правильный ответ: if Form1.Label1.text="xx"

Нет, этот ответ не есть правильный, точнее, следовать этому ответу не есть правильно.

---

← →
YurikGL ©   (2006-02-06 22:58) [14]

> Нет, этот ответ не есть правильный, точнее, следовать этому
> ответу не есть правильно.

Это еще почему? Как частное решение.... и вообще, зависит от контекста...

---

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

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



Память: 0.47 MB
Время: 0.027 c