Neue und bisher schnellste(!!!!100000 ms wo andere 160000ms brauchen!!!!) Methode:
Delphi-Quellcode:
function TtfMain.StreamCopy(AVon, ANach : string): Boolean;
var
stream1,stream2 : TStream;
begin
stream1 := TFileStream.Create(AVon, fmOpenRead);
try
stream2:= TFileStream.Create(ANach, fmCreate);
try
stream2.CopyFrom(Stream1, Stream1.Size);
finally
stream2.Free;
end;
finally
stream1.Free;
end;
end;
Edit: UUps : das ist Methode 1 nur ohne try except Block(verlier grad bissl den Überblick.. aber warum ist die so schnell???
Edit2:
noch ein Vergleich von 1 und 7 ... beid liegen bei ca 82000...
was ist mit meinem Rechner los?? Die anderen brauchen ewig...