[poli-smen]

Сообщение от Veter_AN

Считываю строки из текстового файла с помощью Readln.
Считывание выполняется много раз нормально, пока не встречается строка с определенным символом в конце.
(прикрепленный файл, конец 4-ой строки или 5-ой (смотря в чем открывать), символ ()
Толи конец строки, толи файла.
При выполнении Readln к этой строке программа просто зависает и не реагирует ни на что.

Листинг смогу только завтра приложить.

Странно. У меня все строки нормально считываются:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  f: TextFile;
  s: String;
begin
  Memo1.Clear;
  AssignFile(f, 'D:\T4630b5f.txt');
  Reset(f);
  while not Eof(f) do
  begin
    Readln(f, s);
    Memo1.Lines.Add(s);
  end;
  CloseFile(f);
end;

А вообще PhoeniX прав - лучше этими паскалевскими функциями не пользоваться. Я ими пользовался только когда начинал изучать Delphi (это было ещё в прошлом веке ). А с тех пор как я узнал про такую замечательную вещь как TFileStream - все эти AssignFile, Reset, Rewrite и т.д. полностью исчезли из моих исходников. Использую их разве что когда нужно помочь очередному студенту с TurboPascal-ем.

Ещё для работы с текстом можно использовать TStringList.