файлы на дельфи

[sergi]

Решите пожайлуста задачу: Описать процедуру PrintLines(t), печатающую построчно содержимое текстового файла t.

[Mad_Cat]

Readln(t,s);writeln(s);

[sergi]

Нужно на дельфи, а не на паскале

[Сtrl]

procedure PrintLines(filename: string);
var
  filestream: TFileStream;
  buffer: AnsiChar; // или WideChar, зависит от кодировки текста
begin
  filestream := TFileStream.Create(filename, fmOpenRead);
  filestream.Seek(0, soFromBeginning);
  while filestream.Position <> filestream.Size do
  begin
    filestream.Read(buffer, SizeOf(buffer));
    Write(buffer);
  end;
  FreeAndNil(filestream);
end;

Это не построчно, но посимвольно. Даже лучше.

[Serge_Bliznykov]

Нужно на дельфи, а не на паскале

А это чем Вам не Delphi?!
Новый проект File | New... - Консольное приложение (Console Application)
и вперёд....