Einzelnen Beitrag anzeigen

FrankTorsten

Registriert seit: 8. Jul 2010
5 Beiträge
 
Delphi 2 Desktop
 
#3

AW: StrToFloat - mit 1000er Trennzeichen

  Alt 22. Jul 2010, 14:57
In die Themen hätte ich mich jetzt erst einlesen müssen, nachdem ich das durch Google mal habe suchen lassen - trotzdem danke für den Hinweis. Da weiß ich dann doch wenigstens schon Bescheid, wie man es bei komplizierteren Sachen machen müsste.

In meinem wohl relativ unkomplizierten Fall (ging generell NUR um den 1000er-Punkt) hat dann zum Glück auch ein *ersetzen* gereicht - na Gott sei Dank

Delphi-Quellcode:
For i:= 1 to 38 do
 Begin
 Lagerhausbedarf1:= StrtoFloat (StringReplace(AdvSpreadGrid1.Cells[4, i], '.', '', [rfReplaceAll]));
 Lagerhausbedarf2:= StrtoFloat (StringReplace(AdvSpreadGrid1.Cells[5, i], '.', '', [rfReplaceAll]));
 
 //Und der Rest hat dann erfreulicherweise sogar funktioniert :)
 If Lagerhausbedarf1 > Lagerhausbedarf2
 then AdvSpreadGrid1.Cells[10, i]:= FloatToStrF ((Lagerhausbedarf1 -1500)/8000,ffNumber,10,2)
 else AdvSpreadGrid1.Cells[10, i]:= FloatToStrF ((Lagerhausbedarf2 -1500)/8000,ffNumber,10,2);
 AdvSpreadGrid1.Alignments[10, i] := taRightJustify;
 end;
  Mit Zitat antworten Zitat