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?

Adam
God... please help me become the person my dog thinks I am.

Re: Incompatible types error

try this:
TotalNetProfit:= frmValidation.edValidTotalNetProfit.Value;
instead of:
TotalNetProfit:= frmValidation.edValidTotalNetProfit;

Re: Incompatible types error

Thanks a lot bemorhona-qt.................


My 1 cell brain failed to spot that simple mistake.

Adam
God... please help me become the person my dog thinks I am.