Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.82 MB
Время: 0.029 c
14-94551
Pat
2002-03-21 17:02
2002.04.29
Проверь свою реакцию


1-94396
Swp
2002-04-17 15:49
2002.04.29
Запись и чтение текстового файла.


1-94438
Rooman
2002-04-14 09:15
2002.04.29
А законна ли экспертиза системного блока вообще?


3-94273
КСА
2002-04-08 11:25
2002.04.29
Дайте кто-нибудь пожалуйста IB 5.6


3-94263
Rail
2002-04-07 16:05
2002.04.29
Как показать последнюю ошибу при работе с БД через BDE





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский