Error en un Case....al tratar de copiar registros

[ilichhernandez]

Les cuento, tengo una tabla llamada comparacion, la cual tiene n registros, estos registros tienen un campo llamado tipo, el que puede tomar solo ciertos valores ( 'funcional','quimico','fisico','micro'), entonces debo enviar cada registro a su tabla especifica, tquimico,tfisico,tmicro,tfuncional, he intentado con el codigo siguiente....

Código Delphi [-]
While (not dm.tcomparacion.Eof) Do
    Begin
    temp := dm.tcomparacion.FieldByName('tipo').AsString;
    Case  temp of
    'quimico'       :Begin
                      end;
    'fisico'        :Begin
                     end;
    'micro'         :Begin
                     end;
    'funcional'     :Begin
                     end;
     end; //case
    end; //while

Pero me lanza estos errores.... agradeceria muchisimo que alguien pudiera guiarme a concluir esta operacion.....


[Error] Unit10.pas(1239): Ordinal type required
[Error] Unit10.pas(1241): Incompatible types: 'Integer' and 'String'
[Error] Unit10.pas(1243): Incompatible types: 'Integer' and 'String'
[Error] Unit10.pas(1245): Incompatible types: 'Integer' and 'String'
[Error] Unit10.pas(1247): Incompatible types: 'Integer' and 'String'


Desde ya muchas gracias
ilich Hernandez

[[Héctor Randolph]]

El mensaje de error se debe a que la sentencia CASE no trabaja con cadenas.

Si quieres hacer este trabajo deberías hacer que tipo sea un valor entero.

A cada tipo asignale un valor

0=quimico
1=fisico
2=funcional , etc.

Otra forma de hacerlo sería utilizar IF en lugar de CASE.

Un saludo.

[Neftali [Germán.Estévez]]

Utiliza IF en lugar de CASE; Como bien dicen los mensajes no puedes utilizar CASE con Strings.

[ilichhernandez]

Gracias..... les seguire el consejo....

ilich hernandez