Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Schleife für StringReplace

    Delphi
    by stoxx, 14. Jun 2006
  da die Abbruchbedingung der Funktion falsch ist, wenn sich in keine kleinere Einheit mehr umrechnen lässt, hier eine korrekte Version:
  
  
  function xFloatToSym(Value : Extended) : String;
  const
  S_UNITS = 'afpnµm kMGTP';
  
  var Wert: Extended;
  Einheit : Integer;
  begin
• Forum: Sonstige Fragen zu Delphi

  Re: Schleife für StringReplace

    Delphi
    by stoxx, 14. Jun 2006
  Hi !
  ähm, die Funktion ist ja Wahnsinn .. warum macht ihr die Sache so kompliziert ?
  Jede Einheit stellt doch nur einen simplen Faktor für den eigentlichen Wert dar.
  Lösung also:
  Der Wert wird einfach solange in einer Schleife in die neue Einheit umgerechnet bis eine Zahl größer 1 rauskommt.
  Wahnsin was ihr da macht *Kopfschüttel* .. die Funktion FloatToSym ist ja echt ein Hammer !
  Man...