вывод текста из файла в делфи

[vlados1]

Здравствуйте
Я нуждаюсь в вашей помощи!
Подскажите как выводить в делфи текст с файла

[Leo08]

...
var
f:textfile;
s:string;
begin
Assignfile(f,'c:\1.txt');
Reset(f);
WriteLn('Начало файла:');
While not(eof(f)) do
begin
ReadLn(f,s);
WriteLn(s);
end;
WriteLn('Конецфайла:');
end;
...

[VIK_aka_TOR]

самое простое:

memo1.Lines.LoadFromFile(имя файла);

[vlados1]

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

...
var
f:textfile;
s:string;
begin
Assignfile(f,'c:\1.txt');
Reset(f);
WriteLn('Начало файла:');
While not(eof(f)) do
begin
ReadLn(f,s);
WriteLn(s);
end;
WriteLn('Конецфайла:');
end;
...

выдает ошибку

[SL1M_DOGG]

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

выдает ошибку

если винда 7, то попробуй вместо диска c:\ диск d

[SERG1980]

В делфи проще использовать TStringList

[vlados1]

все равно ошибка

[Stilet]

Какая и на какой строке.

[whatever]

...
var
f:textfile;
s:string;
begin
if fileexists('c:\1.txt') then
begin
Assignfile(f,'c:\1.txt');
Reset(f);
WriteLn('Начало файла:');
While not(eof(f)) do
begin
ReadLn(f,s);
WriteLn(s);
end;
WriteLn('Конецфайла:');
end
else
begin
writeln('проверь путь к файлу');
readln;
end;
end;
...

Скорее всего у тебя файла нет, отсюда и ошибка