[andrey.v.z]

Везде предлагают простой вариант:

Try
StrToInt(str);
Except
ShowMessage('есть буквы');
end;

Не понимаю почему, но он у меня не работает! Пробывал и в своей проге и просто в новой пустой форме, все равно вылетает ошибка: "Проект вызвал исключение класса EConvertError c сообщением 'agdg123123' is not a valid integer value. Процесс остановлен."
В чем может быть дело?

[T-dayne]

Интереснаят у тебя реализация
мб так:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin  for i:=0 to length(str) do   begin    if str[i] in['a'..'z','A'..'Z','А'..'Я', 'а'..'я', '.' , decimalseparator] then     begin      showmessage('Есть буквы'); abort;     end;   end; end;

[dr. F.I.N.]

Я бы сделал по-другому:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

var   numberString : string;   float        : Extended;   errorPos     : Integer; begin   // Попытка преобразования строки в значение   Val(numberString, float, errorPos);     // Показ строки и преобразованного значения     if errorPos = 0   then ShowMessageFmt('Val(%s) = %12.3f',[numberString,float])   else ShowMessageFmt('Val(%s) потерпело неудачу в позиции %d',                       [numberString, errorPos]); end;

Поиск знает все

[Bars1992]

Всё очень просто) Твой код работает просто в режиме отладки сообщение вылетать будет. Попробуй запустить уже откомпелировануюу програму не через делфи. Собощения будут перехвативатся коннструкцией try except и все будет норм)

[andrey.v.z]

))) Так и думал фигня какая-то.. Bars1992, спасибо.

Сообщение от T-dayne

Интереснаят у тебя реализация

Не то чтобы я автор этой реализации, это самый часто предлагаемый вариант, если воспользоваться поиском, да и самый простой и меня полностью устраивает, т.к. мне не нужно искать буквы в строке, а просто хотелось, если пользователь ошибется с выбором обрабатываемого интервала файла, чтобы он не видел "страшный еррор от системы", а понятное сообщение... а скорее всего я просто буду пропукать неправильные строки при обработке...
Но все равно, всем спасибо за предложенные варианты! Сохранил в копилку...