[andrey.v.z]

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

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

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

[T-dayne]

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

Код:

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.]

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

Код:

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

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

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