Показать сообщение отдельно
  #1  
Старый 07.06.2007, 22:24
info-sa info-sa вне форума
Прохожий
 
Регистрация: 07.06.2007
Сообщения: 1
Репутация: 10
Злость Чтение файла в поток и обработка потока построчно

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