Ü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;
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<