Incompatible types: 'String' and 'Text'

[eshik]

помогите пожалуйста:
[Îøèáêà] Unit1.pas(178): Incompatible types: 'String' and 'Text'
я хочу с файла baz.txt записать стоку в мемо.

assignfile(baz,'baz.txt');
reset(baz);
while not eof(baz) do begin
read(baz);
Memo1.Lines.add:=baz;
end;
closefile(baz);


что мне поменять???

[Alex Cones]

assignfile(baz,'baz.txt');
reset(baz);
while not eof(baz) do begin
read(baz2);
Memo1.Lines[i]:=baz2;
end;
closefile(baz);

[eoln]

Сообщение от Alex Cones

assignfile(baz,'baz.txt');
reset(baz);
while not eof(baz) do begin
read(baz2);
Memo1.Lines[i]:=baz2;
end;
closefile(baz);

Alex, если файл объявлен как текстовый, то надо readln(baz, bas2), где bas2: string
eshik, что конкретно надо? Файл в одну строку memo? Добавление в memo из файла? Загрузка memo из файла? Для последнего удобнее LoadFromFile использовать.

[Alex Cones]

Согласен, я уже и забывать стал, как с textfile работать. Позорище...