Problem mit einem Label

[scrat1979]

Hallo!!

Egal, was Du auch verwendest (Button zum ändern oder einen Timer zum automatischen ändern des Textes) würde ich folgendes Prinzip anwenden:

Delphi-Quellcode:

 VAR MeineTexte : Array[0..1] of String;
       TextItem : Byte;
[...]
// Initialisieren am PRogrammanfang
MeineTexte[0] := 'TextA';
MeineTexte[1] := 'TextB';
TextItem := 0;
Label1.Caption := MeineTexte[0];

[...]

if TextItem = 0 Then Begin // Bei mehreren mit CASE arbeiten...
    Label1.Caption := MeineTexte[1];
    TextItem := 1;
End Else Begin
    Label1.Caption := MeineTexte[0];
    TextItem := 0;
End;

SCRaT