Append file 1 to file 2 and reverse

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Program: Pumpsub.pas
File exe: Pumpsub.exe

Append file 1 to file 2 and reverse.
{ PUMPSUB.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Su dane dva textove subory f1 a f2. Zapiste prvky suboru f1 zo    }
{ zachovanim poradia hodnot do suboru f2 na koniec a prvky suboru   }
{ f2 na koniec suboru f1. Je mozne pouzit pomocny subor.            }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }
 
program pump_file;
var f:text;
    meno1,meno2,meno3:string;
 
 
{ procedura na koniec suboru meno2 pripoji subor meno1 }
procedure Pripoj(meno1,meno2:string);
var slovo:string;
    f,g:text;
begin
  Assign(f,meno1);
  Assign(g,meno2);
 
  ReSet(f);
  Append(g);
 
  { presun sa na koniec }
  while(not(Eof(f))) do
  begin
    ReadLn(f,slovo);
    WriteLn(g,slovo);
  end;
 
  { zavrieme }
  Close(f);
  Close(g);
end;
 
 
begin
  WriteLn('Pripojim subor 1 na koniec suboru 2 a naopak.');
 
  Write('Zadaj meno prveho suboru:');  ReadLn(meno1);
  Write('Zadaj meno druheho suboru:'); ReadLn(meno2);
  { nazov tmp suboru }
  meno3:='tmp.$$$';
 
  { zmazeme tmp suboru }
  Assign(f,meno3);
  ReWrite(f);
  Close(f);
 
  Pripoj(meno1,meno3);
  Pripoj(meno2,meno1);
  Pripoj(meno3,meno2);
 
  { zmazem meno3 }
  Assign(f,meno3);
  Erase(f);
  WriteLn('Hotovo');
  ReadLn;
end.