delphi проверка на число

Ответ от Tiko Simonyan[новичек]
что то типа этого
if pos('0',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('1',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('2',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('3',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('4',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('5',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('6',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('7',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('8',edit1.text)=true then showmessage('Тут ЦИФРА!) ;
if pos('9',edit1.text)=true then showmessage('Тут ЦИФРА!) ;

Если в строке обнаруживается цифра, то выводится сообщение об этом.

Ответ от Вован де Морт[гуру]
а нельзя типа через case x of
0..9 : inc (i)
else writeerror?

или через set of

Ответ от Sm[гуру]
Нахрен там if - ума не приложу)
Приличная программа, решающая подобную задачу, обойдется безо всяких ифов.
Какой идиот поставил тебе такую задачу ?) Или ты отсебячину тут лепишь про ифы ?)

Ответ от Валера Гришковец[новичек]
begin
var s: string;
writeln('Введите что-нибудь');
readln(s);
for var i:=1 to length(s) do
if not (s[ i ] in ['0'..'9']) then
begin
writeln('Строка содержит постороние символы');
exit;
end;
writeln('Строка содержит только цифры');
end.

Не пугайся объявлениям переменных в блоке программы - это PascalABC.NET. Если хочешь перенеси их вверх =)

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]