"Format" mit Nullen vor Komma

[richie]

Hallo Leute,
mit der Format-Routine kann ich ja Integer-Variablen mit vorangestellter Null ausgeben, also wie z.B. "00012". Geht das auch mit Float-Werten, z.B. "01,134"?
Hoffe, ich seh den Wald vor lauter Bäumen nicht ...

Danke im vorraus

[rollstuhlfahrer]

ja, das geht. Du musst nur ein wenig denken. Schneide den vorderen Teil vor .(Punkt) / , (Komma) ab und übergebe ihn an Format mit dem Paramter '%.2d'. d, da du hier einen Integer hast. Den rest der Gleitkommazehl fügst du dem String hinzu, wobei du die voranstehende 0 abschneiden musst.

Das wars schon

Bernhard

EDIT: Beispiel

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  gleitkomma: real;
  vorkomma: Integer;
  Nachkomma: real;
  ausgabe: string;
  temp: string;
begin
gleitkomma := 12.345;
Vorkomma := Trunc(Int(gleitkomma));
Nachkomma := Frac(gleitkomma);

ausgabe := Format('%.3d', [Vorkomma]);
temp := Format('%0.5f', [nachkomma]);
Delete(temp, 1, 1);

ausgabe := ausgabe + temp;
ShowMessage(ausgabe);
end;

[MSSSSM]

mit frac die kommastellen merken
trunc abschneiden,zu integer casten
(umweg: zum string) kommastellen dranhängen

mfg

[rollstuhlfahrer]

bitte meinen EDIT in #2 beachten

[richie]

Danke Leute hat prima geklappt!