Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

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

 
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;
...



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

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
14-94552
drpass
2002-03-22 18:54
2002.04.29
О тупости клиентов


7-94598
_Alex_
2002-01-27 21:50
2002.04.29
как прочесть данные из ярлыка


1-94496
Reals
2002-04-16 17:30
2002.04.29
Как написать плугин для Outlook Express и internet Explorer...


1-94515
Lena Z
2002-04-16 16:42
2002.04.29
L470


1-94451
agrig
2002-04-15 20:23
2002.04.29
несколько колонок в QReport