addieren

[Pump3r]

so jetzt hab ichs auch kapiert

tausend dank an euch alle!!!



gruß pump

[Pump3r]

achja gibt es eine möglichkeit, zb: 1.4 in einem währungsformat anzuzeigen?
-> 1.4 -> 1.40€ ... also das euro zeichen ist ja net das problem aber die 0.
wenn ich an 1.4 eine 0 ran häng, dann ist es 1.40.
wenn ich das aber bei 2 mach, dann ist es 20.
das ist etwas schlecht



gruß pump

[Matze]

Schau dir mal Format an.

[Pump3r]

so hab mal ein bisschen herumprobiert.

Edit9.Text := FloatToStrF(ini2.ReadString('handelspreis','1','') ,ffCurrency,8,2);


kleines problem:

das was es aus der ini ausliest, ist ein string: 1.24
wenn ich aber 1.24 direkt in die zeile schreibt klappt es ohne probleme, er hat nur probleme mit dem lesen wie es aussieht. hmm?

aber so wie ich FloatToStrF verstanden hab muss da ein string hin ...

[ManuMF]

Hallo,

beim direkten Reinschreiben muss das Zeichen ein Punkt sein (in englischer Sprache so üblich). Wenn du es von einem String umwandelst, muss es ein Komma sein. Mach einfach ein StringReplace.

P.S.: Aber warum willst du es umwandeln? Im Code in deinem letzten Beitrag arbeitest du nur mit Strings, da würde ein "normales" Format reichen. Aber lies doch besser mit ini.ReadFloat aus.

Gruß,
ManuMF

[Pump3r]

Edit9.Text := FloatToStrF(StringReplace(ini2.ReadString('handelspreis','1',''),'.',',', [rfReplaceAll, rfIgnoreCase]),ffCurrency,8,2); das will nicht so wie ich:

Erzeugen
[Fehler] main.pas(145): Es gibt keine überladene Version von 'FloatToStrF', die man mit diesen Argumenten aufrufen kann
[Fataler Fehler] BBoerse.dpr(5): Verwendete Unit 'main.pas' kann nicht compiliert werden




ich glaub ich bin zu dumm :p


kann mir wer meinen fehler sagen?

danke, pump

[Klaus01]

Edit9.Text := FloatToStrF(StringReplace(ini2.ReadString('handelspreis','1',' ')'.',',', [rfReplaceAll, rfIgnoreCase]),ffCurrency,8,2);

Du versuchst mit floatTostrF einen String in einen String umzuformen.
FloatToStrF erwartet aber so weit ich das weiß ein FloatWert als Parameter.

Grüße
Klaus

[Matze]

@Christian: Delphi hilft dir wirklich wo es geht, es meldet dir doch als Hint folgendes:

Zitat:

function FloatToStrF(Value: Extended, Format: TFloatFormat, Precision: Integer, Digits: Integer): string;

function FloatToStrF(Value: Extended, Format: TFloatFormat, Precision: Integer, Digits: Integer, var FormatSettings: TFormatSettings): string;

Dann guck dir einfach die Parameter an, dann weißt du sofort, was los ist.

[Pump3r]

okay, also brauch ich meine zahl als float wert nicht als string so wie er in der ini steht.
nun, aber readfloat geht nicht und den string auslesen und dann strtofloat will auch net gehen ...

[ManuMF]

Hallo,

was heißt, ReadFloat geht nicht? Will es der Compiler nicht oder gibts beim Ausführen ein Problem?

Das muss gehen:
Edit9.Text := FloatToStrF(ini2.ReadFloat('handelspreis', '1', 0), ffCurrency, 8, 2); Gruß,
ManuMF