Der gute alte format Befehl

[ATS3788]

Ich habe z.B. einen integer, 1..59

bekomme ich es mit Format irgendwie gebacken

das anstatt 1,2... es 01,02 ...09,10,11 ausgegeben wird.

Doof zu formulieren diese Frage, Entschuldigt.

[Uwe Raabe]

result := Format('%.2d', [Value]);

[ATS3788]

Ja habe den Punkt vergessen
Danke

[Aphton]

oder

Delphi-Quellcode:

function TwoDigits(const AValue: Integer; const DefDig: Char = '0'): String;
begin
  if AValue < 100 then
  begin
    Result := IntToStr( AValue );
    if AValue div 10 > 0 then
      Result := DefDig + Result;
  end else // EDIT - Frage diesbezüglich - Siehe unten
    Result := '';
end;

[Luckie]

Der Code sollte dir eine Warnung vom Compiler ausgeben, weil Result undefiniert ist, wenn AValue größer 100 ist.

[Aphton]

Hmm, ist es hier nicht sinnlos, da der Resultstring = '' ist?

[mkinzler]

Nein, denn auch ein Leerstring ist ein Wert

[himitsu]

Der der String on Delphi automatisch initialisiert wird, kommt hier wohl keine Fehlermeldung.

Obwohl, es bei dem String als Result ein kleines Problem gibt, wodurch eine solche Meldung dennoch gut wäre

Ergo, auch das Result sollte man immer initialisieren, selbst wenn der Compiler nicht meckert.

Delphi-Quellcode:

function Add: String;
begin
  Result := Result + '*';
end;

var s: String;

for i := 1 to 10 do
  s := Add;
ShowMessage(s);

Code:

**********

[generic]

Ich glaube das ATS3788 eine andere Frage hatte.

"Ich habe eine Zahlenfolge von 1 bis 59"
Wie bekomme ich diese Ausgegeben in dem Format:
01,02,03...57,58,59

Als liegt Uwe schon mal richtig:

Zitat von Uwe:

result := Format('%.2d', [Value]);

Gesamt:

Delphi-Quellcode:

var
  i: integer;
  s: string;
begin
  s:='';
  for i:=1 to 59 do
  begin
    if i>1 then
      s:=s+',';
    s:=s+Format('%.2d', [i]);
  end;

1 bis 59 sieht stark nach Zeit aus.
Wenn du mit Zeit arbeitest hat Delphi noch unterstützende Funktionen im Bauch. Dann melde dich hier noch einmal.

[Matze]

@himi: Huch, das war mir jetzt auch neu.
Ich bin zwar nie auf dieses Phänomen gestoßen, aber interessant, dass Result initialisiert wird und beim erneuten Aufruf der Funktion den vorigen Wert behält.