Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
 
Delphi 12 Athens
 
#4

AW: StringReplace: Fehlender Parameter?

  Alt 17. Jan 2011, 08:38
Man könnte natürlich statt dem uralten Delphi-Referenz durchsuchenStr auch einfach das neuere Delphi-Referenz durchsuchenFormat nutzen.
Dort kann man die entsprechenden Werte der Formatparameter durch ein * ersetzen und dieses dann als Parameter mit übergeben.

Delphi-Quellcode:
Results := Format('%.*n', [Floater, StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo)]);

///////////////////////////////////////////////////////

Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Results := Format('%.*n', [Floater, Rounded]);

Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Str(Rounded::Floater, Results);

///////////////////////////////////////////////////////

Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Results := Format('%*.*n', [0, Floater, Rounded]);

Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Str(Rounded:0:Floater, Results);
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu (17. Jan 2011 um 08:42 Uhr)
  Mit Zitat antworten Zitat