26 de ago. de 2012

Operações matemáticas com virgula no Delphi 7

Um visitante do blog teve esta dúvida, e abaixo está a resolução:
Para trabalhar com números com virgula você tem que usar a opção Float ao invez de integer e string.
Abaixo um exemplo de como achar 3,75% de 600:

var
v1, v2, v3, v4 : Double;
begin
v1 := (600);
v2 := (v1*3.75);
v3 := (100);
v4 := (v2 / v3);
Label1.Caption := FloatToStr(v4);

Nota-se: Quando se usa o 'Float' não usamos a função 'Div' para divisões e sim o sinal '/'.


Nenhum comentário:

Postar um comentário