[Lotles]

Подскажите где ошибка
Програмка должна в Memo отобразить текст, содержащийся в txt файле

Код:

var
f:TStringList;
i:integer;
Str:String;
begin
f:=TStringList.Create;
f.LoadFromFile('C:\Documents and Settings\Lotles\Рабочий стол\666.txt');
Str:='';
Str:=f.Strings[i];
for i:=0 to f.Count-1 do
Str:=Str+f.Strings[i];
memo1.Text:=Str;
f.Free;

[Drozh]

Явная ошибка

Код:

Str:=f.Strings[i];
for i:=0 to f.Count-1 do

Вы используете переменную которой не присвоили значение. Да, а чем не устраивает Memo1.Lines.LoadFromFile ?

[Lotles]

Понял, спасибо !!!

[Asinkrit]

Зачем столько кода, если иожно одной строкой обойтись?

Код:

  Memo1.Lines.LoadFromFile('C:\Documents and Settings\Lotles\Рабочий стол\666.txt');

[Страдалецъ]

Неважен результат, важен процесс.