Fortlaufende Zahl im Format 000001

[Delphi_Atze]

Hallöchen :)

Stehe vor einem weiterem Problem und hoffe hier wieder auf brilliate Hilfe, wie auch beim letzten Mal :)

Nach Stundelangem probieren komme ich einfach nicht auf die Lösung. Ich gebe in eine listbox fortlaufend, durch ein edit und einen Button, Strings ein. Ich möchte neben dem String auch fortlaufen eine Zahl schreiben. Mein problem ist nur, das sie nicht im Format zb 1, 12, 45, 159 sondern 000001, 000012, 000045, 000159 in die listbox geschrieben werden soll.

habe es schon mit diesem Code versucht, aber ohne Erfolg.

Delphi-Quellcode:

Listbox1.Items.Add(string + ' - 'inttostr(zaeler:6:0));

Danke für jede Hilfe :bounce2:

[Satty67]

Bei Deinem Code fehlt ein + und string solltest Du nicht als Variablen-Namen nehmen. zaeler hätte noch ein h nötig, was aber Delphi nicht stört ;)

Geht aber auch so:

Delphi-Quellcode:

Listbox1.Items.Add(string + ' - '+ Format('%.6d',[zaeler]));

[taaktaak]

... oder so

Delphi-Quellcode:

Listbox1.Items.Add(Format('%s - %.6d',[string,zaeler]));

by the way -
Eine Stringvariable "string" zu nennen, ist m. E. nicht so recht sinnig :wink:

[mkinzler]

Zitat:

Eine Stringvariable "string" zu nennen, ist m. E. nicht so recht sinnig Wink

Und wird so wohl auch nicht funktionieren

[Delphi_Atze]

Ich hätte so schlau sein sollen und nidcht dieses Beispiel nehmen sollen. Das "string" steht nur für ein Beipsiel. Ich wollte nicht alles hinschreiben und habe als symbolwort "string" verwendet. Blöde formulierung.

Aslo mit den vorgeschlagenen Codes hat es nciht funktioniert. zaehler ist als integer deklariert. Weiß auch nicht was es sein kann :(

[quendolineDD]

Da wirst du irgend einen Fehler gemacht haben.

Delphi-Quellcode:

var
  i : integer;
begin
  for i := 0 to 9 do
    ListBox1.Items.Add(format('%.6d', [i]));
end;

funktioniert einwandfrei. Zeig einfach mal deinen Code.
Und "funktioniert nicht" ist keine eindeutige Fehlerbeschreibung. Gut wäre zu erfahren, wie es nicht funktioniert und ob sich das in einem Fehler irgendwie äußert.

[DeddyH]

Also bei mir geht das einwandfrei.

Delphi-Quellcode:

procedure TMainform.FormCreate(Sender: TObject);
var i: integer;
begin
  for i := 1 to 10 do
    ListboxTest.Items.Add(Format('%s - %.6d',['Wert',i]));
end;

[edit] Screenshot angehängt [/edit]

[Klaus01]

Zitat:

Zitat von Delphi_Atze

Aslo mit den vorgeschlagenen Codes hat es nciht funktioniert. zaehler ist als integer deklariert. Weiß auch nicht was es sein kann :(

Was heißt denn, funktioniert nicht.
Ist die Ausgabe nicht korrekt - wenn ja was ist was dich stört?

Grüße
Klaus

[Delphi_Atze]

ui, jetzt geht es. Hatte einen kleinen schreibfehler drinne.

Mit diesem hat es funktioniert:

Delphi-Quellcode:

ListboxTest.Items.Add(Format('%.6d',[zaehler]));

Vielen Dank an alle :)
Klasse Forum :)

[Dipl Phys Ernst Winter]

Delphi-Quellcode:

var
  s: string;
......
  Str(Zaehler:6, s); Listbox1.Items.Add(s + ' - ' + MyString);