опять файлы, посмотрите Опции

[Anton12]

Текстовые файлы, над в конце КАЖДОЙ строки добавить букву! у меня добавляет только в Одну строку! посмотрите и помогите

uses crt;
var f1,f2:text;
      st,b:string; 
      i:byte;
procedure addlast(var t:byte; c:char);
     begin
     reset(F1);
     for i:=1 to t do
     readln(F1,st);
     st:=st+c;
     reset(F1);
     rewrite(F2);
     for i:=1 to (t-1) do
     begin
     readln(F1,b);
     writeln(F2,b);
     end;
     writeln(F2,st);
     readln(F1,st);
     readln(F1,b);
     writeln(F2,b);
     end;
     close(F2);
     end;

Сообщение отредактировано: Anton12 - 24.05.2009 21:36