Klasse: HTTPDownloader...

[himitsu]

Delphi-Quellcode:

if @DownloadBegin <> nil then
  DownloadBegin(CurrentDownload);

if @DownloadEnd <> nil then
  DownloadEnd(CurrentDownload);

if @DownloadWork <> nil then
  begin

dieses ist immer <> nil, denn die Variablen sind immer vorhanden

Delphi-Quellcode:

if Assigned(DownloadBegin) then
  DownloadBegin(CurrentDownload);

if Assigned(DownloadEnd) then
  DownloadEnd(CurrentDownload);

if Assigned(DownloadWork) then
  begin

// und wenn schon NIL, dann eher so
if Pointer(DownloadBegin) <> nil then
  DownloadBegin(CurrentDownload);

Delphi-Quellcode:

// Standartwer falls Property nicht gesetzt = 2, urNormal
intRate := 2;
// urUpdateRate auswählen
case urUpdateRate of
  urFast   : begin intRate := 1; end;
  urNormal : begin intRate := 2; end;
  urSlow   : begin intRate := 3; end;
end;

schonmal etwas vom ELSE gehört und wozu die Begin-End?

Delphi-Quellcode:

// urUpdateRate auswählen
case urUpdateRate of
  urFast : intRate := 1;
  urSlow : intRate := 3;
  else     intRate := 2;
end;

mit ein paar ELSE könne man einige Vergleiche eh weglassen, samt der "unnötigen" Exit.
ja meinst du, daß über 1 Terrabyte wirklich nötig sind?
PS: laut berechnung ist dein GB ein TB und GBhast du ganz vergessen
(1.099.511.627.776 = 1 TB)

Delphi-Quellcode:

function THTTPDownloader.GetSizeName(const Size : int64): String;
begin
  if Size > 1073741824 then
    Result := floattostr(trunc(Size/1073741824*100)/100)+' GB'
  else if Size > 1048576 then
    Result := floattostr(trunc(Size/1048576*100)/100)+' MB'
  else if Size > 1024 then
    Result := floattostr(trunc(Size/1024*100)/100)+' KB'
  else if Size >= 0 then
    Result := inttostr(Size)+' Byte'
  else 
    Result := 'Error';
end;

.......




PS: von da drüben läßt sich dein Code nicht nutzen ... beim Rauskopieren wird da je Zeile eine Zeile mit 'nem # eingefügt ... voll unpraktisch