No wiec napisalem sobie cos takiego:
procedure TForm1.Button1Click(Sender: TObject);
var s : tfilestream;
a : tfilestream;
begin
if opendialog1.Execute then
if savedialog1.Execute then
begin
s := tfilestream.Create(opendialog1.FileName,fmopenread);
a := tfilestream.Create(savedialog1.FileName,fmopenwrite);
a.Seek(s.Size,sofromend);
a.CopyFrom(s,s.Size);
a.WriteBuffer(a,sizeof(a));
a.Free;
s.Free;
end;
end;
No i powinno chyba odczytac dane z jednego pliku i zapisac do drugiego na jego koncu. Ja sie tym bawilem z plikami textowymi ale cos sie zle zapisywalo i na koncu drugiego pliku pojawiaja sie krzaki hmm...
--
pozdrawiam PEDROS {hello}
Szukasz pomocy - najszybsza na ircu
#4programmers.net
Masz cos ciekawego. Napisz gotowca:
http://www.4programmers.net/delphi/gotowce/index.php?action=create
Delphi 6 Personal.