String
Boa tarde ..
eu tenho um campo numerico com com valores 12,98 exemplo, para mandar para a impressora eu tenho q mandar 1298
usei a função delete para extrair a virgula , mas da um erro [Error] Caixa.pas(520): Missing operator or semicolon
tá assim meu código
Preco:=DM.TbItemVALORUNI.asstring;
delete(Preco, pos( ´,´ , Preco), 1);
pensei em outra solução
pego o numero e multiplico por 100, dai extraiu os 3 ultimos caracteres tipo
ex
12,98 - multiplico por 100 fica 1298,00 tiro o ,oo e fico com o meu numero 1298, mas não sei como fazer isso ..
Como extraiu, tiro, deleto os ultimos 3 caracteres?!?!??!
Valeuuu
eu tenho um campo numerico com com valores 12,98 exemplo, para mandar para a impressora eu tenho q mandar 1298
usei a função delete para extrair a virgula , mas da um erro [Error] Caixa.pas(520): Missing operator or semicolon
tá assim meu código
Preco:=DM.TbItemVALORUNI.asstring;
delete(Preco, pos( ´,´ , Preco), 1);
pensei em outra solução
pego o numero e multiplico por 100, dai extraiu os 3 ultimos caracteres tipo
ex
12,98 - multiplico por 100 fica 1298,00 tiro o ,oo e fico com o meu numero 1298, mas não sei como fazer isso ..
Como extraiu, tiro, deleto os ultimos 3 caracteres?!?!??!
Valeuuu
Anonymous
Curtidas 0
Respostas
Anonymous
06/02/2003
Tente :
Preco:=inttostr(int(DM.TbItemVALORUNI.asFloat * 100));
Preco:=inttostr(int(DM.TbItemVALORUNI.asFloat * 100));
GOSTEI 0
Dor_poa
06/02/2003
Mas a variavel tem que passar a ser Double....
GOSTEI 0