Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;
...




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
3-94339           Dmitry Zubtsov        2002-04-09 18:25  2002.04.29  
Библиотека/компоненты для работы с базами FoxPro без BDE


1-94460           Sergey Karagodin      2002-04-16 10:32  2002.04.29  
Дурацкий вопрос про TreeView


1-94356           MVova                 2002-04-16 17:19  2002.04.29  
Количество тактов процессора


1-94442           lipskiy               2002-04-05 21:43  2002.04.29  
Как описать входной параметр процедуры многовариантно?


3-94268           dialectic             2002-04-05 09:22  2002.04.29  
3 диалект и BDE