Pegar Somente N�meros Int e casas Decimais separado tem como

Question

Galera � o seguinte estou com um problema com calculos .tenho que pegar um certo valor e dividir ele em casas decimais e numeros inteiros ex:vamus supor que no edits esteja o valor  200,10eu queria  f...

Vmotta · Answer

var  inteiro, decimais: integer;beginedit1.text := 200,10 ;Inteiro := Trunc(strtoFloat(edit1.text));Decimais:= (strtoFloat(edit1.text) - Interiro) * 100;end;T+...

Abueno_silva · Answer

Oi,
N�o sei se � a melhor maneira, mas na pressa, funciona:

var
valor : double;
inteiro, decimal : integer;
valor_st : string;
begin
valor := 2000.10;
inteiro := trunc(valor);
valor_st := floattostrf(valor,ffNumber,10,2);
decimal := strtoint(copy(valor_st,pos(�,�,valor_st)+ 1,2));
end;

Espero ter sido �til.
[]�s

Afarias · Answer

var  N: Extended; // ou Float, etc...  I, D: Extended;begin  N := 1234.567  I := Int(N);  { I = 1234.0 }  D := Frac(N);  { D = 0.567 }end;T+...

C-t · Answer

OBRIGADO A TODOS VOU FAZER TODOS OS EXEMPLOS MUITO OBRIGADO PELA ATENCAO A TODOS...

F�rum Pegar Somente N�meros Int e casas Decimais separado tem como #174982