Wiederholen/Schleifen von Ausgaben

[Marcy]

Guten Abend

ich hab mal ein einfaches Beispiel erstellt um mein Problem darzustellen. Angenomm ich möchte ein Programm schreiben wo ich ein beliebiges Wort eingebe und eine Anzahl und das Programm soll mein Wort sooft wie die angegebene Anzahl ausgeben.

Kurz also eine Wiederholung der Ausgabe. Ich hab das mit diversen Schleifen versucht aber es hat leider nicht funktioniert das Wort wird nur ein einziges Mal ausgegeben:

Code:

procedure THiS.FertigButtonClick(Sender: TObject);
var i, x : integer;
begin
  x:=strtoint(AnzahlEdit.text);
  i:=1;
  repeat  AusgabeLabel.Caption:= WortEdit.text;
          i:=i+1  ;
    until  i=x
    // gibt es zwar aus, aber wiederholt die ausgabe nicht...

  end;
end.

Code:

procedure THiS.FertigButtonClick(Sender: TObject);
var i, x : integer;
begin
  x:=strtoint(AnzahlEdit.text);
  for i:=1 to x do begin  AusgabeLabel.Caption:= WortEdit.text;
  end;
end.

freue mich über eure Hilfe!

Einen schönen Abend

[Luckie]

Du musst der Oberfläche auch die Chance geben das Label zu aktualisieren. Entweder ein Application.ProcessMessages in die Schleife, dann hast du aber auch gewissen Nebeneffekte. Oder ein die Methode Update von TLabel aufrufen. Oder du lagerst das ganze in einen Thread aus mit der TThread Klasse am besten. Dann aber darauf achten, dass GUI Zugriffe nur synchronisiert6 erfolgen dürfen.

[Helmi]

Überleg dir bitte mal was bei dieser Anweisung passiert:
AusgabeLabel.Caption:= WortEdit.text; ?

Es wird der Text vom Edit ins Label geschrieben.
Und über deine Schleifen immer und immer wieder der gleiche Text

Du musst den Text zusammenbauen. Z. B. so:

Delphi-Quellcode:

procedure THiS.FertigButtonClick(Sender: TObject);
var 
  i, x : integer;
  S: String;

begin
  //vordefinieren
  S := '';

  x := strtoint(AnzahlEdit.text);
  
  for i:=1 to x do 
    begin 
      S := S + WordEdit.Text;
    end;

  AusgabeLabel.Caption := S;
end;

[Luckie]

Stimmt, das kommt dazu.

[himitsu]

Und dann noch was ganz Wichtiges:
Wenn ich x-mal das selbe Wort haargenau übereinander/aufeinander auf einen Zettel schreibe.
Wie of steht dann das Wlrt da drauf?

[edit]
Ich tippe einfingerich eindeutig zu langsam. (Ausrede: eine Katze schläft auf mir)