Hallo,
ich habe eine Funktion die 2 Dateien kopiert (siehe Quellcode). Jetzt würde ich gerne wissen, wie ich die dazu verbleibende Zeit berechnen kann. Ich habe es leider mit Mathe nicht so *g*
Delphi-Quellcode:
var
f,t: file of byte;
buf: array[1..4096] of byte;
read: Integer;
begin
assignfile(f, 'Y:\Datei1.exe');
assignfile(t, 'C:\Datei1.exe');
reset(f);
rewrite(t);
while not eof(f) do
begin
blockread(f, buf, length(buf), read);
blockwrite(t, buf, read);
Progressbar1.Position:=round(100*(filesize(t)/filesize(f)));
Application.ProcessMessages;
end;
closefile(f);
closefile(t);
Danke im Voraus