Formatfunktion Vornullen mit Komma

norics · Hält's aus hier Beiträge: 12 WIN XP

Hallo Liebe Leut,

Mein Problem ist folgendes:

Ich übergebe aus einer Maske verschiedene Zahlen in eine Datei.
In dieser Datei müssen bestimmte Zahlenformate eingehalten werden.

Das Edit8 Feld hat z.B. die Zahl 0,4

diese Zahl muß in der Datei als 00,40 dargestellt werden.

mit
format('%5.2f',[StrToFloat(edit8.Text)])+ // 5 Stellen (Dicke)
bekomme ich einen Leerschritt anstelle der Vornull.

Wenn ich auffüllen will mit Vornullen, mit dem Parameter %5.2d , akzeptiert das Programm keine Kommazahl.

Weiß jemand eine Lösung ?

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Lannes · Verfasst: Di 09.01.07 13:00

Hallo,

etwa so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

var s : String;
//...
s := Format('%.2f',[0.4]);
s := StringOfChar('0',5-Length(s))+s;

>> daraus eine Funktion coden.

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

norics · Hält's aus hier Beiträge: 12 WIN XP

Hallo Lannes,

so funktioniert es. Vielen Dank.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme