DBLookupComboBox

[André Luiz Cezar 0]

Galera, alguém poderia me dar uma luz!?

 

Tenho o seguinte código no evento Click do Botão:

 

procedure TForm2.Button4Click(Sender: TObject);

var Arquivo: TStringList;

begin

Arquivo := TStringList.Create;

try

Arquivo.Add('OD');

Arquivo.Add('N');

Arquivo.Add('D6');

Arquivo.Add('A550,197,0,4,1,1,N,' + DBLookupComboBox1.KeyValue);

Arquivo.Add('A100,282,0,4,1,1,N,' + DBEdit2.Text);

Arquivo.Add('A191,349,0,5,1,1,N,' + DBEdit3.Text);

Arquivo.Add('A191,197,0,5,1,1,N,' + DBLookupComboBox2.KeyValue);

Arquivo.Add('A190,51,0,5,1,1,N,' + DBEdit5.Text);

Arquivo.Add('A430,500,0,5,1,1,N,' + DBEdit6.Text);

Arquivo.Add('A35,520,0,2,1,1,N,' + DBEdit7.Text);

Arquivo.Add('B90,570,0,1E,3,10,70,B,' + DBEdit11.Text);

Arquivo.Add('A40,753,0,2,1,1,N,' + ' Av. Sulplast, n. 1969 - Distr. Industrial - Rio Claro - SP ');

Arquivo.Add('P1');

Arquivo.SaveToFile('C:\Arquivo.txt');

finally

Arquivo.Free;

end;

end;

Meu problema esta na linha em vermelho.. No meu banco de dados esse campo que é preenchido do DBLookUpCombobox esta como decimal! Como tenho que fazer a conversão para poder gravar?

O meu DBLookupComboBox1 que pega é um char.

Tentei converter em String o segundo, porem sem sucesso...

Obrigado!

 

[Chrnos 30]

Não entendi muito bem, você quer converter a key do dbLookupCombobox para string, é isso?

[André Luiz Cezar 0]

Não entendi muito bem, você quer converter a key do dbLookupCombobox para string, é isso?

 

 

Nao.. precisaria converter para Decimal (é um campo com um valor de CNPJ)

 

Fiz algumas pesquisas e testes e consegui assim:

 

Arquivo.Add('A191,197,0,5,1,1,N,' + IntToStr(StrToInt64(DBLookupComboBox2.KeyValue)));

 

Deu o resultado esperado!

 

Seria esse o caminho mesmo?

[Chrnos 30]

O keyValue do dbLookUpCombobox é do tipo Variant.... logo, se o que deseja é converter o valor decimal que ele representa para string sem exibir as casas decimais, poderia usar o FormatFloat('#####', DBLookupComboBox2.KeyValue).