Es könnte ja einfach mal sehr interessant sein zu sehen, was für Möglichkeiten einem geboten werden um an ein Ziel zu kommen, ausserdem möchte ich die verschiedenen Methoden miteinander vergleichen, um die schnellste davon auszuwählen. Deswegn brauch ich ein paar verschiedene
@ ichbins:
Danke...
ich hab die schon.. nur vergessen zu posten, trotzdem Danke!
meine sieht übrigens so aus:
Delphi-Quellcode:
function TtfMain.CopyAssignFile(AVon,ANach :string):Boolean;
var
fq,fz : file of byte;
b : array [1..8192] of Byte;
lread : integer;
begin
Result:=True;
try
try
AssignFile(fq,AVon);
AssignFile(fz,ANach);
Reset(fq);
Rewrite(fz);
while not eof(fq) do
begin
BlockRead(fq,b,Length(b),lread);
BlockWrite(fz,b,lread);
end;
finally
CloseFile(fq);
CloseFile(fz);
end;
except
Result:=False;
end;
end;