Calcule avec delphie

Begin

    Table1.Open;

    N := Table1.RecordCount;  // N est une variable Integer

   Table1.Close;

End;

Begin

    Query1.Sql.Clear;

    Query1.Sql.Add(' Select Count(*) As N From ta_base');

    Query1.Open;

    N := Query1.FieldByName('N').AsInteger;  // N est une variable Integer

   Query1.Close;

End;

Begin

    Table1.Open;

    Montant := Table1.FieldByName('Prix').AsFloat *
                           Table1.FieldByName('Qte').AsFloat;
                           // Montant est une variable Real

   Table1.Close;

End;

Begin

    Query1.Sql.Clear;

    Query1.Sql.Add(' Select Prix*Qte As Montant From ta_base');

    Query1.Open;

    Montant := Query1.FieldByName('Montant').AsFloat;  
 
   Query1.Close;

End;