Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Dateigröße formatieren?

    Delphi
    by igel457, 25. Nov 2005
  @lucky :gruebel: :stupid:
  
  Meine Funktion einfach so aufraufen:
  label1.caption := filesizetostr(size);
  Size ist ein integer. Edit2.Text ein String.
  Mach es doch einfach so:
  label1.caption := filesizetostr(strtoint(edit2.text));
  
  Noch ein Tipp um die Große abzufragen. Du nimmst da eine recht "altmodische" Methode.
• Forum: Object-Pascal / Delphi-Language

  Re: Dateigröße formatieren?

    Delphi
    by igel457, 25. Nov 2005
  Mach eine Funktion FileSizeToStr:
  
  
  function FileSizeToStr(size:int64):string;
  begin
  if size < 1024 then result := inttostr(size)+'Byte';
  if (size > 1024) and (size < 1024*1024) then result := formatfloat('0.00',size/1024)+'KB';
  if (size > 1024*1024) and (size < 1024*1024*1024) then
  result := formatfloat('0.00',size/1024/1024)+'MB';
  if (size > 1024*1024*1024) then