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

← →
Виталий___ (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:16) [12]

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

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

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

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

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

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