Einzelnen Beitrag anzeigen

Benutzerbild von rollstuhlfahrer
rollstuhlfahrer

Registriert seit: 1. Aug 2007
Ort: Ludwigshafen am Rhein
1.529 Beiträge
 
Delphi 7 Professional
 
#2

Re: "Format" mit Nullen vor Komma

  Alt 12. Jun 2008, 16:02
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;
Bernhard
Iliacos intra muros peccatur et extra!
  Mit Zitat antworten Zitat