Fórum Ok.... vamos a duvida ... record(enumeration) to string .... #291359
10/08/2005
0
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?
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
Curtir tópico
+ 0
Responder
Posts
11/08/2005
Night_man
segue um exemplo
uses
TypInfo
type
TPeriodo = (tpManha, tpTarde, tpNoite)
var
Periodo: TPeriodo
begin
Caption := GetEnumName(TypeInfo(TPeriodo), Ord(Periodo));
end;
uses
TypInfo
type
TPeriodo = (tpManha, tpTarde, tpNoite)
var
Periodo: TPeriodo
begin
Caption := GetEnumName(TypeInfo(TPeriodo), Ord(Periodo));
end;
Responder
Gostei + 0
11/08/2005
Massuda
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.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)