text und zähler im label

[Kingpin000]

hallo zusammen,

ich versuche grad einen text und zähler in einer art liste mit meheren labels unterzubringen, aber statt den bei einem vorherigen eintrag die zahl zu ändern, bekomm ich einen weiteren eintrag.

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
counter:=strtoint(label1.Caption);
counter:=counter+1;
label1.Caption:=inttostr(counter);
if (label10.Caption = '') then
begin
label10.Caption:='Text'+' '+inttostr(counter)+'x';
end else if (label11.Caption = '') then
begin
label11.Caption:='Text'+' '+inttostr(counter)+'x';
end else
...

Danke im Voraus

[mkinzler]

Was meinst du mit neuem Eintrag?

[Kingpin000]

also statt der eintag "Text 1" durch "Text 2" ersetzt wird, bekomm ich in einem label "Text 1" und im nächsten "Text 2".

[mkinzler]

Ist doch auch klar, wenn Label10 nicht leer ist nimmst du Label11.

[Kingpin000]

und wie kann man das ändern?

[mkinzler]

In dem du die entsprechende Abfrage entfernst.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
    begin
      inc(counter);
      label1.Caption := inttostr(counter);
      Label10.Caption := Format('Text %dx',[counter]);
    end;
end;

So in der Art.