Ok.... vamos a duvida ... record(enumeration) to string ....

Delphi

10/08/2005

começa assim:
type TTParc=record
TipoParcela: (NConforme,Sucata,Parcela);
end;

em certo momento se faz a seleção:
case rgTipo.ItemIndex of
0:procedures.TipoParcela.TipoParcela:= NConforme;
1:procedures.TipoParcela.TipoParcela:= Sucata;
2:procedures.TipoParcela.TipoParcela:= Parcela;
end;

o problema esta aqui....
QuParc.SQL.Text:= ´ insert into parcela(Codigo,Carro,Qtde,Tipo) ´+
´ values(´+CodigoProj+´,´+carro_carga.Text+´,´+IntToStr(Diferenca)+´,´+procedures.TipoParcela.TipoParcela+´)´;
nesta linha ´procedures.TipoParcela.TipoParcela´ o record tem que ser convertido para string.....
Alguem tem alguma ideia?


Host

Host

Curtidas 0

Respostas

Night_man

Night_man

10/08/2005

segue um exemplo

uses
TypInfo
type
TPeriodo = (tpManha, tpTarde, tpNoite)
var
Periodo: TPeriodo
begin
Caption := GetEnumName(TypeInfo(TPeriodo), Ord(Periodo));
end;


GOSTEI 0
Massuda

Massuda

10/08/2005

O que você está armazenando na tabela no campo Tipo?

Ao invés de armazenar um nome, seria mais simples armazenar um número (0=NConforme, 1=Sucata, 2=Parcela) daí não precisaria converter procedures.TipoParcela.TipoParcela para string, bastaria fazer Ord(procedures.TipoParcela.TipoParcela) para obter o valor numérico correspondente.


GOSTEI 0
POSTAR