Noch einer:
Delphi-Quellcode:
Const
AnzahlBeschriftungen = 5;
Beschriftungen : Array [0..AnzahlBeschriftungen-1] of String =
('Hallo',
'Tschüss',
'Einer geht noch',
'Einer geht nocht rein',
'Bums Fallera'
);
Procedure TForm1.SetzeEditText;
Begin
Edit1.Text := Beschriftungen [Button1.Tag]
End;
Procedure TForm1.FormCreate (Sender :TObject);
Begin
Button1.Tag := 0;
SetzeEditText;
End;
Procedure TForm1.Button1Click (Sender : TObject);
Begin
Button1.Tag := (Button1.Tag + 1) mod AnzahlBeschriftungen;
SetzeEditText
End;
Vorteil: Übersichtlicher, leichter zu warten (mehr Beschriftungen etc.). Die 'Tag' Eigenschaft kann man durch einen dedizierte Zähler in Form eines privaten Feldes der TForm1-Klasse ersetzen, muss man aber nicht.