Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Wiederholen/Schleifen von Ausgaben

  Alt 2. Okt 2012, 21:59
Ü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! <<

Geändert von Helmi ( 2. Okt 2012 um 22:02 Uhr)
  Mit Zitat antworten Zitat