Danke...
Aber irgendwoe zeigt er die größe der Files net richtig an!
So bestimme ich dir Filegröße:
Delphi-Quellcode:
for i := 0 to 9 Do
begin
if ser_dat1[i] = '' then break;
AssignFile(F, ser_dat1[i]);
reset(F);
FileSizeAll := FileSizeAll + FileSize(F);
CloseFile(F);
files := files + 1;
end;
Und danach setzte ich einfach eine Label Capition auf die Größe:
size2.Caption := IntToStr(FileSizeAll);
Wo ist denn da der Fehler? oder kann man die Datei größe anders besser ermitteln?
Außerdem friert mein Programm immer ein, wenn es anfängt eine Datei hochzuladen? Was kann man dagegen machen?