Mehr als 2 Schleifenfunktionen einbauen?

[malo]

Und zwar hab ich da folgendes Problem:

Ich will, wenn ich auf Button1 klicke, den Text bei Label1 ändern. Das ist ja schonmal gut so. Dann wollte ich, wenn ich nochmal auf Button1 klicke, im Label einen anderen Text erscheinen lassen. Das hab ich mit folgendem Befehl auch super hingekriegt:

Delphi-Quellcode:

if Label1.Tag = 0 then Label1.Caption := 'Hallo Welt';
else Label1.Caption := 'ich bin da';
Label1.Tag := 1-Label1.Tag;

Nur was soll ich machen, wenn ich jetzt einen dritten Text erscheinen lassen will, wenn ich auf den Button klicke? Ich bin da völlig planlos...

[Luckie]

Kuck doch einfach mal in der Hilfe unter if else if else nach. Arbeitest du mit dem Tag, dann wär allerdings case sinnvoller.

[Elite]

Delphi-Quellcode:

If *** then ***
Else If *** then ***
Else IF *** then ***
Else ***;

[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;

[malo]

Zitat:

Zitat von 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;

Mh... bei

Delphi-Quellcode:

inc(Label1.Tag);

kommt immer eine Fehlermeldung "Der linken Seite kann nichts zugewiesen werden". Woran könnte das liegen?

[alcaeus]

Lösung:

Delphi-Quellcode:

Label1.Tag := Label1.Tag+1;

Greetz
alcaeus