Topic: Incompatible types error
procedure CalculateTotal;
var
WinPercent, LossPercent: Real;
WinPercent2, LossPercent2: Real;
TotalNetProfit: Currency;
begin
WinPercent:= frmValidation.edValidWLwinPerc.value;
LossPercent:= frmValidation.edValidWLlossPerc.Value;
WinPercent2:= frmValidation.edResultsWLWinPercent.value;
LossPercent2:= frmValidation.edResultsWLLossPercent.Value;
TotalNetProfit:= frmValidation.edValidTotalNetProfit;
begin
if (frmValidation.edValidWLwinCount.Value <> 0) and (frmValidation.edValidWLlossCount.Value <> 0) then
begin
frmValidation.edValidWLwinPerc.Value := frmValidation.edValidWLwinCount.value / (frmValidation.edValidWLwinCount.value + frmValidation.edValidWLlossCount.value) * 100;
frmValidation.edValidWLlossPerc.Value := frmValidation.edValidWLlossCount.value / (frmValidation.edValidWLwinCount.value + frmValidation.edValidWLlossCount.value) * 100;
end;
if (frmValidation.edResultsWLWinCount.Value <> 0) and (frmValidation.edResultsWLLossCount.Value <> 0) then
begin
frmValidation.edResultsWLWinPercent.Value := frmValidation.edResultsWLWinCount.value / (frmValidation.edResultsWLWinCount.value + frmValidation.edResultsWLLossCount.value) * 100;
frmValidation.edResultsWLLossPercent.Value := frmValidation.edResultsWLLossCount.value / (frmValidation.edResultsWLWinCount.value + frmValidation.edResultsWLLossCount.value) * 100;
end;
if (frmValidation.edValidEndBal.Value <> 0) and (frmValidation.edValidStartBal.Value <> 0) then
begin
frmValidation.edValidTotalNetProfit:= frmValidation.edValidEndBal.value - frmValidation.edValidStartBal; //frmValidation - TOTAL NET PROFIT CALC
end;
end;
end;
I get the error for the line below within script above:
TotalNetProfit:= frmValidation.edValidTotalNetProfit;
What's missing or wrong please?
God... please help me become the person my dog thinks I am.