Guten Tag
Mir ist die funktion BlockRead bekannt und so wie ich es nun verstanden habe läuft es so ab :
BlockRead(FILE,BUFFER,WIEVIELE ZEICHEN MAN LESEN WILL);
aber z.B in diesem Code
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);
wird read ja nirgends einen wert zugewiesen wieviele zeichen ließt er den dann und warum ?