Mehr als 2 Schleifenfunktionen einbauen?

[xineohp]

moin,

das ginge dann so:

Delphi-Quellcode:

case Label1.Tag of
  0: Label1.Caption := 'Hallo Welt';
  1: Label1.Caption := 'ich bin da';
  2: Label1.Caption := 'was anderes';
  // usw.
end;
inc(Label1.Tag);
If Label1.Tag > 2 // oder eine andere Zahl, je nachdem wieviele Möglichkeiten du oben definiert hast.
  then Label1.Tag := 0;