Title: [Help] Conversão de variaveis Delphi
Post by: bironet on 21 de April , 2007, 09:23:10 AM
Post by: bironet on 21 de April , 2007, 09:23:10 AM
Olá pessoal preciso fazer essa conversão em Delphi ... Se alguém puder me ajudar. Todos os campos são N no Bd
dm_controle.tb_lanc_pardiaKmRodados:=StrToFloat(dm_controle.tb_lanc_pardiaKmFinal)-(dm_controle.tb_lanc_pardiaKmInicial);
Alguém me da uma luz ai que tô é passando raiva.
dm_controle.tb_lanc_pardiaKmRodados:=StrToFloat(dm_controle.tb_lanc_pardiaKmFinal)-(dm_controle.tb_lanc_pardiaKmInicial);
Alguém me da uma luz ai que tô é passando raiva.
Title: Re: [Help] Conversão de variaveis Delphi
Post by: Anonymous on 28 de April , 2007, 05:41:58 PM
Post by: Anonymous on 28 de April , 2007, 05:41:58 PM
vc pode criar um jogo de variaveis por exemplo
a:=strtoflot(ovalor1);
b:=strtofloat(ovalor2);
c:=a-b;
a:=strtoflot(ovalor1);
b:=strtofloat(ovalor2);
c:=a-b;
Title: Re: [Help] Conversão de variaveis Delphi
Post by: Hacker Xtreme on 30 de April , 2007, 02:33:21 PM
Post by: Hacker Xtreme on 30 de April , 2007, 02:33:21 PM
var
A, B, C: Real;
begin
A := StrToFloat('10');
B := StrToFloat('15');
C := A - B;
ShowMessage(FloatToStr(C));
(;
A, B, C: Real;
begin
A := StrToFloat('10');
B := StrToFloat('15');
C := A - B;
ShowMessage(FloatToStr(C));
(;
Title: Re: [Help] Conversão de variaveis Delphi
Post by: TGA on 30 de April , 2007, 07:10:18 PM
Post by: TGA on 30 de April , 2007, 07:10:18 PM
VAr
Resultado : Double;
begin
resultado := StrToFloat(dm_controle.tb_lanc_pardiaKmFinal) - StrToFloat(dm_controle.tb_lanc_pardiaKmInicial);
//SE O CAMPO DA TABELA FOR DO TYPO STRING (VARCHAR) USE ISSO
dm_controle.tb_lanc_pardiaKmRodados := FloAtToStr(resultado);
//SE FOR DO TIPO INTEGER (NUMERICO) USE ISSO
dm_controle.tb_lanc_pardiaKmRodados := resultado;
END;
Só uma abservações na linha abaixo:
dm_controle.tb_lanc_pardiaKmRodados Se não estou enganado é uma Tabela dentro do DataModule, você tem que especificar o campo tb.. Vlw.. abraços...
TGA
Resultado : Double;
begin
resultado := StrToFloat(dm_controle.tb_lanc_pardiaKmFinal) - StrToFloat(dm_controle.tb_lanc_pardiaKmInicial);
//SE O CAMPO DA TABELA FOR DO TYPO STRING (VARCHAR) USE ISSO
dm_controle.tb_lanc_pardiaKmRodados := FloAtToStr(resultado);
//SE FOR DO TIPO INTEGER (NUMERICO) USE ISSO
dm_controle.tb_lanc_pardiaKmRodados := resultado;
END;
Só uma abservações na linha abaixo:
Code Select
dm_controle.tb_lanc_pardiaKmRodados:=StrToFloat(dm_controle.tb_lanc_pardiaKmFinal)-(dm_controle.tb_lanc_pardiaKmInicial);dm_controle.tb_lanc_pardiaKmRodados Se não estou enganado é uma Tabela dentro do DataModule, você tem que especificar o campo tb.. Vlw.. abraços...
TGA