---

Hej

Jeg har behov for at kunne udfører en kopiering sammenlægning af to filer
til en fil (fil3) som indehoder alt fra fil1 og fil2. Har forsøgt med med
følgende

copyfile('fil1','fil3',false);
copyfile('fil2','fil3',false);

men det ser ikke ud til at det er muligt at appende til destinationsfilen??

Er der nogel der har forslag, jeg bruger delphi 6 pro

MVH
Carsten

---

Hej Carsten
Denne er utestet, men virker, - tror jeg nok:

Hilsen Thomas

procedure Appendfiles(fil1, fil1, destfil : string);
var s1,s2, d : tmemorystream;
begin
try
s1 := tmemorystream.create;
s2 := tmemorystream.create;
d := tmemorystream.create;
s1.LoadFromFile(fil1);
s2.LoadFromFile(fil2);
d.CopyFrom(s1, s1.Size);
d.CopyFrom(s2, s2.size);
d.SaveToFile(destfil);
finally
d.free;
s1.free;
s2.free;
end;
end;


"Mortensen" <CBM@indbakkex.dk> wrote in message
news:3f8c1a35$0$69974$edfadb0f@dread12.news.tele.dk...
> Hej
>
> Jeg har behov for at kunne udfører en kopiering sammenlægning af to filer
> til en fil (fil3) som indehoder alt fra fil1 og fil2. Har forsøgt med med
> følgende
>
> copyfile('fil1','fil3',false);
> copyfile('fil2','fil3',false);
>
> men det ser ikke ud til at det er muligt at appende til
destinationsfilen??
>
> Er der nogel der har forslag, jeg bruger delphi 6 pro
>
> MVH
> Carsten
>
>