| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
процедуры [D6, Win95/98]
velial © (2002-04-17 22:22:00)Я начал изучать 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)); - но в процедурах обработки реакции кнопки эта строка нормально воспринималась. Что я сделал не так?
PVOzerski (2002-04-18 11:49:00) [1]Либо (в ущерб универсальности)
z:=StrToFloat(trim(tForm1.edInput.Text));
...
tForm1.edInput.SelectAll;
...
Flex (2002-04-18 11:41:00) [2]procedure ProverkaFloat(var z:real; const edInput : TEdit);
Процедура станет универсальной: можно проверять в любойстроке ввода.
BigError (2002-04-17 22:37:00) [3]Да, забыл, конечно придется и в описании класса формы процедуру твою описать, если как я сказал сделаешь.
Либо, что проще, добавь название формы, чтобы как "Form1.edInput" выглядело.
BigError (2002-04-17 22:34:00) [4]У тебя форма, где этот edInput стоит, как называется?
Если Form1, то замени заголовок procedure ProverkaFloat(var z:real) на
procedure TForm1.ProverkaFloat(var z:real) ну или на свое название, только "Т" не забудь.
Должно помочь, если я правильно понял вопрос.
| |
