Case pero con cadenas en vez de con caracteres

[[Chris]]

No sé si se podrá, pero puedes intentar provandando con constantes.

Código Delphi [-]
CONST
UNO = 'uno';
DOS = 'dos';
...

Case Value of
UNO: // code
DOS: //code
...
end;

Saludos.

[[Chris]]

Si no funciona el anterio, puedes:

Código Delphi [-]
procedure evaluar(valor_inicial: string);
var
elementos: TStringlist;
inx: Integer;
begin
try
elementos := TStringlist.create;
elementos.text := 'uno,dos,tres,cuatro,cinco'; // enumerar todos los posibles casos

inx := elementos.indexof(valor_inicial);

case inx of
0: // codigo para cuando sea "uno"
1: // código para "dos"
...
end;

finally
elementos.free;
end;
end;
end;

Saludos.

[noob]

Voy a probar, muchas gracias.

[noob]

@D&W

Creo que para añadir elementos a la lista sería así:

Código Delphi [-]
elementos.Add := ('uno');
elementos.Add := ('dos');
elementos.Add := ('tres');
elementos.Add := ('cuatro');
elementos.Add := ('cinco');

Saludos.

[[Chris]]

Empezado por noob

@D&W

Creo que para añadir elementos a la lista sería así:
Código Delphi [-]elementos.Add := ('uno'); elementos.Add := ('dos'); elementos.Add := ('tres'); elementos.Add := ('cuatro'); elementos.Add := ('cinco');


Saludos.

No es necesario escribir tantas líneas.
Si no funciona con el código que escribí anteriormente, que realmente no estoy seguro:

Código Delphi [-]
elementos.text := 'uno,dos,tres,cuatro,cinco'; // enumerar todos los posibles casos

Entonces, solo hay que hacer una ligera modificación. Que con éste código si estoy seguro de que funciona.

Código Delphi [-]
elementos.text := StringReplace('uno,dos,tres,cuatro,cinco', ',', #13#10); // enumerar todos los posibles casos

Saludos.

[roman]

Sería así:

Código Delphi [-]
elementos.CommaText := 'uno,dos,tres,cuatro,cinco';

// Saludos

[[Chris]]

Empezado por roman

Sería así:
Código Delphi [-]elementos.CommaText := 'uno,dos,tres,cuatro,cinco';

// Saludos

Up !!!
No sabía que existía esa propiedad. Nunca me había dado cuenta.
Sin embargo, personalmente prefiero utilizar el ".text = stringresplace(...)" porque es más seguro y funciona a "como yo quiero"

Gracias roman por el dato.

saludos.