Ausgabe immer 2 Stellig?

[gnui]

Also ich möchte dass mein Ergebnis nicht einfach als "8" z.b. aufgeben wird sondern als "08".
gibt es einen befehl damit delphi das ausgegebene Ergebnis immer 2 Stellig macht?

danke schonmal

[alleinherrscher]

Delphi-Quellcode:

 
var strzahl:string;
    zahl:integer;

strzahl:='';

if zahl<10 then strzahl:='0';
strzahl:=strzahl+inttostr(zahl);

Vielleicht gibts was eleganteres...

[geisi]

Also unter java gibt es die Klasse DecimalFormat, die sowas kann:

Code:

DecimalFormat df = new DecimalFormat("00");
System.out.println(df.format(8));

vielleicht gibts sowas auch unter delphi, ich weiß es nicht.

[grenzgaenger]

wie wärs mit format?

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 i: integer;
begin
 i:= 1;
  writeln(format('%.2d',[i]));
  readln;
end.

[calculon]

Ich hätte das hier anzubieten:
edit2.Text := FormatFloat('00', strtofloat(edit1.Text)); Gruß

Calculon
--

[mkinzler]

Zahl := Round( Zahl*100)/100;

[Waldteufel]

Zitat von mkinzler:

Zahl := Round( Zahl*100)/100;

Das rundet aber auf zwei Nachkommastellen und fügt keine Nullen hinzu...

[inherited]

Ähm, mkinzler, ich glaube danach ist nicht gefragt.
Bei deiner version wird die zahl auf 2 nachkommastellen gerundet, er möchte aber nur bei in String verwandelten Zahlen bei <10 eine 0 davor haben

[calculon]

Zitat von mkinzler:

Zahl := Round( Zahl*100)/100;

Und wie hilft das, den Wert '2' als '02' auszugeben?

Bei einer Konsolenanwendung krieg ich bei:

Delphi-Quellcode:

var
zahl: double;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  readln(zahl);
  Zahl := Round( Zahl*100)/100;
  writeln(zahl);
  readln;
end.

folgendes Ergebnis:

Zitat:

2
2.00000000000000E+0000

[gnui]

danke für die super schnelle hilfe hier
ich habe calculons lösung genommen und die klappt wunderbar