Vis procent tal.

Du kunne bruge
Resultat := (Tal - StrToInt(Label1.Caption))
+ (Procent - StrToInt(Label2.Caption))

jeg ville nu nok bruge
strtofloat

ja, men nu var oplægget jo heltal, altså et procenttal ganget med et tal(måske float)

ok ok ro på, det var jo o....  nej det gider jeg slet ikke svare på

//disse kan både bruge heltal samt floats...

function calcByPct(const aTotal:lInt;const aPct:double):lInt;//overload;
begin if (aTotal<>0) and (aPct>0) then result:=round((aTotal/100)*aPct) else result:=0 end;

function calcByPct(const aTotal:extended;const aPct:double):extended;//overload;
begin if (aTotal<>0) and (aPct>0) then result:=(aTotal/100)*aPct else result:=0 end;

function calcPct(const aTotal,aAmount:lInt):double;//overload;
begin if (aTotal<>0) and (aAmount<>0) then result:=round((100/aTotal)*aAmount) else result:=0 end;

function calcPct(const aTotal,aAmount:extended):extended;//overload;
begin if (aTotal<>0) and (aAmount<>0) then result:=(100/aTotal)*aAmount else result:=0 end;