Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Внизпроцедуры Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c