Tipo de dato

[MaMu]

Resulta que tengo

Código SQL [-]
 
type
 
   TTComida = (tcSOPA, tcCARNE, tcPASTA);

y tengo un archivo de texto, que en su primera linea, en los primeros caracteres, dice el tipo de comida que es, por ejemplo:

listado.txt
=======

sopa000044444444fecha44878787....

como hago para asignarle un tipo, sin hacer

Código SQL [-]
 
if text='sopa' then tipocomida := tcSOPA;

Tengo algun tipo de conversion a ordinal, es decir, que sea un entero.
Se entiende?

Saludos

[[Al González]]

Código Delphi [-]
Uses
  TypInfo;

Type
  TTComida = (tcSopa, tcCarne, tcPasta);

procedure TForm1.Button1Click(Sender: TObject);
Var
  S :String;
  TipoComida :TTComida;
begin
  S := 'Sopa';
  TipoComida := TTComida (GetEnumValue (TypeInfo (TTComida), 'tc' + S));

  If TipoComida = tcSopa Then
    ShowMessage ('Queremos sopa para empezar.');

  S := 'Carne';
  TipoComida := TTComida (GetEnumValue (TypeInfo (TTComida), 'tc' + S));

  If TipoComida = tcCarne Then
    ShowMessage ('Y ahora queremos carne.');
end;

Espero sea lo que necesitas, MaMu.

Un abrazo entre comidas.

Al González.