Чтение и вывод из файла

[vaximan]

Доброго времени суток уважаемые участники форума!
Появилась небольшая проблема, я надеюсь вы уделите минуточку своего и так столь малого свободного времени.
Я пытаюсь Прочитать файл типа 1.txt и вывести его в memo
Мне нужно чтобы каждая отдельная строка в 1.txt была отдельной строкой в memo.
Делаю это так

procedure TForm5.sButton1Click(Sender: TObject);
var
f:textFile;
str:string;
begin
    i:='on';
    FileMode := fmOpenRead;
    AssignFile(f, 'data.baz');
    reset(f);          

    readLn(f, str);   
    sMemo1.Lines.Add(str); 
    sMemo1.Text:=str;
    CloseFile(f);
    sButton1.Enabled:=false;

Вроде все должно работать, но при нажатии на кнопку в memo появляется только первая строка.
Заранее благодарен услышать нравоучения а так же выход из ситуации.

[Serge_Bliznykov]

может быть, так?

procedure TForm5.sButton1Click(Sender: TObject);
begin
    i:='on';
    sMemo1.Lines.LoadFromFile('data.baz'); 
    sButton1.Enabled:=false;

[evg_m]

Вроде все должно работать, но при нажатии на кнопку в memo появляется только первая строка.

потому что вы читаете из файла только одну строку.

reset(f);          
readLn(f, str);   
....
CloseFile(f);

для чтения всех строк нужен цикл.

Reset(f);
while not Eof(f) do begin
  Readln(f, s);
 ...
end;
closefile(f);

[Serge_Bliznykov]

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

для чтения всех строк нужен цикл.

строго говоря, да, нужен.

Но можно использовать методы, где цикл уже спрятан внутри метода.
Например, как в моём примере кода выше в пост #2

[vaximan]

Благодарю откликнувшихся! Воспользуюсь способом от Serge_Bliznykov.) Все таки практичнее) Тему можно закрывать!