Мне нужно читать файл в поток и, извлекая строки из потока в переменную str, обрабатывать эти строки. Кто-нибудь может подсказать почему это не работает?
Код:
procedure TForm1.ButtonReadLinesClick(Sender: TObject);
var
str:String;
Str1: TFileStream;
Reader1: TReader;
I: Integer;
begin
Str1 := TFileStream.Create ('d:\test.txt', fmOpenRead);
Reader1 := TReader.Create (Str1, 1024);
try
Reader1.ReadListBegin;
while not Reader1.EndOfList do
begin
str:=Reader1.ReadString;
//Здесь идет обработка строки str, например так: Memo1.Lines.Add(str);
Application.ProcessMessages;
end;
Reader1.ReadListEnd;
finally
Reader1.Free;
Str1.Free;
end;