Systeminformation 1.0 - Lite

[mirage228]

das könnteste doch mit ner schleife machen, z.B.

Delphi-Quellcode:

function groesse(Size: Extended): Extenden;
var
  sizes: array[0..4] of string;
  cnt: integer;
begin
  sizes[0] := 'Bytes';
  sizes[1] := 'KB';
  sizes[2] := 'MB';
  sizes[3] := 'GB';
  sizes[4] := 'TB';

  Result := Size + ' ' + Sizes[0];

  if Size >= 1024 then
  repeat
    if cnt > 4 then
    begin
      cnt := 4;
      size := size;
    end else size := size / 1024;
    inc(cnt);
    Result := FloatToStrF(Size,ffGeneral,4,2) + ' ' + sizes[cnt];
  until (size < 1024) or (cnt > 4);
end;

wenn du net format benutzen willst.