Цитата:
|
Сообщение от 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.