cambiar un texto con un botton

[ramonibk]

El problema es el siguiente.



cuando presiono un botón me tiene que cambiar un texto dependiendo de como estaba antes y lo he echo

begin
 If Form1.label1.Caption = 'Promer Texto'
  Then Begin
   Form1.Label1.Caption:= 'Segundo Texto';
  Exit End;
 If Form1.Label1.Caption ='Segundo Texto'
  Then Begin
   Form1.Label1.Caption:= 'Primer Texto';
 Exit End;
End;

y lo que pasa es que esto me funciona las primeras veces. pero cuando intento repetirlo mas veces se queda bloqueado. y no se como solucionarlo.

[yusnerqui]

Código Delphi [-]
If Form1.label1.Caption = 'Primer Texto' Then 
   Form1.Label1.Caption:= 'Segundo Texto'
else
   Form1.label1.Caption := 'Primer Texto';

Espero te ayude.

Un Saludo

[ramonibk]

Si esto me a sido de mucha utilidad.
pero ahora si lo que quiero es pasar por tres estado diferentes????

[yusnerqui]

Código Delphi [-]

If Form1.label1.Caption = 'Primer Texto'  Then 
   Form1.Label1.Caption:= 'Segundo Texto'
else  
  If Form1.Label1.Caption ='Segundo Texto'  Then 
     Form1.Label1.Caption:= 'Tercer Texto'
  else       
     Form1.Label1.Caption:= 'Primer Texto';

Puedes seguir el bloque de If cuantas veces quieras en dependencia de la cantidad de estados....

Saludos

[ramonibk]

Muchas gracias parece que ya me queda claro

[roman]

Si vas a usar múltiples estados quizá te convenga utilizar un arreglo con los posibles textos:

Código Delphi [-]
const
  Textos: array [1..5] of String = (
     'Primer texto',
     'Segundo texto',
     'Tercer texto',
     'Cuarto texto',
     'Quinto texto'
   );

y usar alguna variable entera (incluso la propiedad Tag del botón) para conocer el índice del texto que debes presentar:

Código Delphi [-]
Inc(Button1.Tag);
Button1.Caption := Textos[Button1.Tag];

De esta manera tienes un código más claro sin tantos condicionales.

Edito:

Para poder regresar al primer texto luego del último (quino en el ejemplo), en lugar de

Inc(Button1.Tag)

podías usar

Button1.Tag := (Button1.Tag + 1) mod 5;

// Saludos