logo

.
Wednesday 08th of September 2010    

Ankety

Co tu není dobré ?
 

Přihlášení



Provoz stránek

návštěv dnes: 56
návštěv včera: 62
návštěv za měsíc: 483
návštěv celkem: 17787

Home Tipy, triky, návody DISK, SLOŽKA, SOUBOR Soubor - jeden přidat za druhý
Soubor - jeden přidat za druhý Tisk Email
Hodnocení uživatelů: / 0
NejhoršíNejlepší 
Napsal uživatel Administrator   
Pondělí, 25 Květen 2009 13:50

procedure TForm1.Button3Click(Sender: TObject); 
var 
  Str: string; 
  F1, F2, F3: TextFile; 
begin 
  Label3.Caption:='Processing...'; 
  AssignFile(F1, Edit1.Text); 
  AssignFile(F2, Edit2.Text); 
  AssignFile(F3, 'new.$'); 
  Reset(F1); 
  Reset(F2); 
  Rewrite(F3); 
  while not(EOF(F1)) do 
  begin 
    Readln(F1, Str); 
    Writeln(F3, Str); 
  end; 
  while not(EOF(F2)) do 
  begin 
    Readln(F2, Str); 
    Writeln(F3, Str); 
  end; 
  CloseFile(F1); 
  CloseFile(F2); 
  CloseFile(F3); 
  DeleteFile(ExtractFileName(Edit1.Text)); 
  RenameFile('new.$', ExtractFileName(Edit1.Text)); 
  DeleteFile('new.$'); 
  Label3.Caption:='Processing done'; 
end;

Zdroj: http://www.delphitricks.com/source-code/files/append_one_file_to_other.html 

Aktualizováno Pondělí, 25 Květen 2009 13:53
 

Přidejte svůj komentář

Vaše jméno:
Titulek:
Komentář:
bottom

top

kolik vás je ?

Právě připojeni - hostů: 2 

bottom

Založeno na Joomla!. Designed by: Free Joomla 1.5 Template, dns. Valid XHTML and CSS.