Try..except..problem

[Alex Cones]

Проблема с использованием Try..Except:

If Pos('Покажи информацию номер', Say)=0 then
 Begin
  try
   Num:=StrToInt(Copy(Say,25,Length(Say)-25));

   AssignFile(F,CDir+'\U-CODE\'+IntToStr(Num)+'.txt');
   Reset(F);
   ReadLn(F,S);
   AddMemoString(S);
   CloseFile(F);
  except
   AddMemoString('Неправильно указан номер записи или записи с таким номером не существует');
  End;
 End;

Дело в том, что после ввода "Покажи информацию номер ф" он молчит в тряпочку. как изменить условие после Except? Лучше если разбить на два варианта - плохой номер(не цифра) и нет такой инфы. Если вопрос глупый - камнями не бросать. Использую try..except только второй раз в жизни.


P.S. Say - строка, которая вводится, AddMemoString - процедура вывода строки компьютером по виду напоминает печатную машинку. CDir - директория Num - номер требуемой инфы.

[san72]

зачем тебе вообще там try except можно гораздо проще сделать:

If Pos('Покажи информацию номер', Say)=0
then begin
Num:=StrToInt(Copy(Say,25,Length(Sa y)-25));

AssignFile(F,CDir+'\U-CODE\'+IntToStr(Num)+'.txt');
Reset(F);
ReadLn(F,S);
AddMemoString(S);
CloseFile(F);

end
else AddMemoString('Неправильно указан номер записи или записи с таким номером не существует');

[san72]

и вообще какая логика я непонел, если строка "'Покажи информацию номер" не найдена то что-то считывается из файла а если найдена то "'Неправильно указан номер записи или записи с таким номером не существует" ????

[Neeter]

зачем тебе вообще там try except

В таком коде обязательно нужна проверка на исключительную ситуацию.
Код я бы сделал код хотя-бы таким (хоть вложенные исключения и не очень хороши):

If Pos('Покажи информацию номер', Say)=0 then
 Begin
  try
   Num:=StrToInt(Copy(Say,25,Length(Say)-25));

   AssignFile(F,CDir+'\U-CODE\'+IntToStr(Num)+'.txt');
   try
    Reset(F);
    ReadLn(F,S);
    AddMemoString(S);
   finally
    CloseFile(F);
   end;
  except
   AddMemoString('Неправильно указан номер записи или записи с таким номером не существует');
  End;
 End;

А ошибка... Вы хотите проверять, существует ли строка, или не существует?
Если существует, то замените строчку:

If Pos('Покажи информацию номер', Say)<>0 then

[Alex Cones]

Опять не реагирует. Похоже придется рассматривать типы ошибок по on ... do. По-моему ошибка буквы вместо цифры - EConvertError, а открытия файла - EAccessViolation. Но до этого пробовал через типы ошибок и все равно ничего не добился.

А ошибка... Вы хотите проверять, существует ли строка, или не существует?

Нет

В таком коде обязательно нужна проверка на исключительную ситуацию.

. Тот же

"Покажи информацию номер ф"

тоже возможен.

По ходу нашел кое-что: В посе указывал нль вместо 1. теперь он игнорируя try..except выводит ошибку. Хоть что-то...

[Black Fregat]

Поставь дополнительные проверки:

try
  if TryStrToInt(Copy(Say,25,Length(Say)-25), Num) then
  begin
    if FileExists(CDir+'\U-CODE\'+IntToStr(Num)+'.txt') then
    begin
      AssignFile(F,CDir+'\U-CODE\'+IntToStr(Num)+'.txt');
      Reset(F);
      ReadLn(F,S);
      AddMemoString(S);
      CloseFile(F);
    end
    else
      AddMemoString('Не найден файл записи');
  end
  else
    AddMemoString('Неправильно указан номер записи');
except
  AddMemoString('Неизвестная ошибка');
end;

[Alex Cones]

О! Мысля! Не переводить N в интеджер, а оставить в стринге = проверка только файлекзистс и ни каких тру..екс.