Автор Ѐем задал вопрос в разделе Другие языки и технологии
простейший код в Делфи: проверка строки на корректность символов и получил лучший ответ
Ответ от Romik[гуру]
function Test_digit(sx : string): string;
var i : integer;
begin
result:='';
for i := 1 to length(sx) do
begin
if not (sx in ['0'..'9']) then
begin
result:='Not Digits';
break;
end;
if result='' then result:='Only Digits';
end;
end;
Ответ от 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('Тут ЦИФРА!) ;
Если в строке обнаруживается цифра, то выводится сообщение об этом.
что то типа этого
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
а нельзя типа через case x of
0..9 : inc (i)
else writeerror?
или через set of
Ответ от Sm[гуру]
Нахрен там if - ума не приложу)
Приличная программа, решающая подобную задачу, обойдется безо всяких ифов.
Какой идиот поставил тебе такую задачу ?) Или ты отсебячину тут лепишь про ифы ?)
Нахрен там 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. Если хочешь перенеси их вверх =)
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 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: простейший код в Делфи: проверка строки на корректность символов
спросили в Randomness
Функция Random() в Delphi
Во-первых: к цифрам относятся только однозначные числа!
Двузначные − это уже числа…
Функция Random() в Delphi
Во-первых: к цифрам относятся только однозначные числа!
Двузначные − это уже числа…
Проверка Edit в Delphi
Доброго времени суток.
Трудно не зная тонкостей задачи дать вменяемый ответ. Попробую в
подробнее...
Как сложить два Edit-а в Delphi 7
По событию кейдаун допустим и изменение полят и тп
procedure TForm1.Edit1Change(Sender:
подробнее...
спросили в Вводить
Delphi: Как разрешить вводить все цифры и только первые 6 букв лат. алфавита в поле MaskEdit?
Мне кажется, смысл задачи в том, что нужно вводить шестнадцатиричные числа, то есть символы от 0 до
подробнее...
Delphi: Как разрешить вводить все цифры и только первые 6 букв лат. алфавита в поле MaskEdit?
Мне кажется, смысл задачи в том, что нужно вводить шестнадцатиричные числа, то есть символы от 0 до
подробнее...
спросили в Другое
Кто такие мещеряки, тептяри и кемцы?
В вопросе изображена карта из колоды содержащей 80 карт, каждая из которых представляет губернию
подробнее...
Кто такие мещеряки, тептяри и кемцы?
В вопросе изображена карта из колоды содержащей 80 карт, каждая из которых представляет губернию
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
Что такое QIP как им пользоваться и где скачать???
Вот скачай этот SFX-Архив
1) QIP2005(build8060).
2) Учебник по QIP2005 от Алекса Экслера
подробнее...