Задача с файлами Опции

[antonioSP]

Помогите плз решить задачу. Сформировать текстовый файл из нескольких строк. Вставить в начало каждой строки её номер и записать преобразованные строки во второй текстовый файл. Помогите юуду оч признателен.

[volvo]

Что именно у тебя не получается сделать?

[antonioSP]

у меня не получается вставить номер строки в начало строки текста.

[volvo]

Почему? В Help-е Турбо Паскаля есть функция, конвертирующая число в строку (как пример для процедуры Str):

function IntToStr(I: Longint): String;
var S: string[11];
begin
  Str(I, S);
  IntToStr := S;
end;

Вот с использованием этой функции и делай:

...
n := 0;
While not Eof(f_in) do begin
  inc(n);
  readln(f_in, s);
  writeln(f_out, IntToStr(n) + ' ' + s);
end;
...

[antonioSP]

volvo спасибо тебе, это мне помогло.

Сообщение отредактировано: antonioSP - 10.03.2006 23:00