Работа с файлами

[Маняша]

Парни Пожалуйста выручите (( помогите написать программу .((
задача такая.. дан фаил в файле в одну строчку записаны {321}{234324}{234234}... и может быть так до 1000 и более нужно сделать в столбик и сохранилось в другой фаил.
{321}
{234324}
{234234}
Очень прошу... Ребят не оставьте в беде((

[Я_и]

procedure XCopyFile(FileName1,FileName2:String);
Var 
   F1,F2:TextFile;
   St,Str:String;
   i:Integer;
begin
   AssignFile(F1,FileName1);
   AssignFile(F2,FileName2);
   Reset(F1);
   Rewrite(F2);
   Readln(F1,St);
   Str:='';
   for i:=1 to Length(St) do
      begin
      Str:=Str+St[i];
      if St[i]='}' then
         begin
         Writeln(Str);
         Str:='';
         end;
      end;
   CloseFile(F1);
   CloseFile(F2);
end;

Ну вроду бы так) Если что работать не будет - пишите


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Я_и]

Ну или так(посимвольно считывать, а не всю строку сразу):

procedure XCopyFile(FileName1,FileName2:String);
Var 
   F1,F2:TextFile;
   Ch:Char;
   Str:String;
begin
   AssignFile(F1,FileName1);
   AssignFile(F2,FileName2);
   Reset(F1);
   Rewrite(F2);
   Str:='';
   while not EOF(F)  do
      begin
      Read(F1,Ch);
      Str:=Str+Ch;
      if Ch='}' then
         begin
         Writeln(Str);
         Str:='';
         end;
      if Ch=#13 then
         Break;
      end;
   CloseFile(F1);
   CloseFile(F2);
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Маняша]

Спасибо Большое



вместо Writeln(Str);
надо
Writeln(F2,str)