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