процедуры

← →
velial (2002-04-17 22:22) [0]

Я начал изучать delphi и у меня такая проблема. Написал процедуру проверки на введеный в edit число. Выглядит это так:

procedure ProverkaFloat(var z:real);
begin
try
z:=StrToFloat(trim(edInput.Text));
except
ShowMessage("Неверный формат числа");
edInput.SelectAll;
exit;
end;

end;

delphi показывает ошибку:
[Error] Calcul.pas(149): Undeclared identifier: "edInput"
[Error] Calcul.pas(149): "(" expected but ")" found
[Error] Calcul.pas(151): Missing operator or semicolon
[Error] Calcul.pas(152): Missing operator or semicolon
[Error] Calcul.pas(154): EXCEPT or FINALLY expected
[Fatal Error] PCALC.dpr(5): Could not compile used unit "Calcul.pas"

z:=StrToFloat(trim(edInput.Text)); - но в процедурах обработки реакции кнопки эта строка нормально воспринималась. Что я сделал не так?

← →
BigError (2002-04-17 22:34) [1]

У тебя форма, где этот edInput стоит, как называется?
Если Form1, то замени заголовок procedure ProverkaFloat(var z:real) на
procedure TForm1.ProverkaFloat(var z:real) ну или на свое название, только "Т" не забудь.
Должно помочь, если я правильно понял вопрос.

← →
BigError (2002-04-17 22:37) [2]

Да, забыл, конечно придется и в описании класса формы процедуру твою описать, если как я сказал сделаешь.
Либо, что проще, добавь название формы, чтобы как "Form1.edInput" выглядело.

← →
Flex (2002-04-18 11:41) [3]

procedure ProverkaFloat(var z:real; const edInput : TEdit);

Процедура станет универсальной: можно проверять в любой строке ввода.

← →
PVOzerski (2002-04-18 11:49) [4]

Либо (в ущерб универсальности)
z:=StrToFloat(trim(tForm1.edInput.Text));
...
tForm1.edInput.SelectAll;
...

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