[info-sa]

Мне нужно читать файл в поток и, извлекая строки из потока в переменную 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;

[ilang]

А почему не попробовать просто считать файл в TStringList и работать спокойно со строками