Class Teval (unit Eval)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations

if not DelphiRunning then MessageDlg(' UNREGISTERED EVAL - This program works only while Delphi is running',mtWarning,[mbOK],0) else } {$endif



Functions

function setformula(newformula:string):string;


Function Valuta_Formula (Var p: Integer; Strg : String; Var Errore: Boolean) : real;

function DelphiRunning : boolean; var H1, H2, H3, H4 : Hwnd; const A1 : array[0.

Properties

property decimaldigit : integer


property digit : integer


property Formul : string

Published declarations

property StResult : string


property result : real


Events

event OnError : TOnErrorEvent


Variables

decimal : integer;


FOnError : TOnErrorEvent;


formula : string;

Private declarations

ncifre : integer;


resulto : real;


risult : string;



Constructors


constructor Create(AOwner: TComponent);

Public declarations

if not DelphiRunning then MessageDlg(' UNREGISTERED EVAL - This program works only while Delphi is running',mtWarning,[mbOK],0) else } {$endif


Functions


function setformula(newformula:string):string;


Function Valuta_Formula (Var p: Integer; Strg : String; Var Errore: Boolean) : real;

function DelphiRunning : boolean; var H1, H2, H3, H4 : Hwnd; const A1 : array[0..12] of char = 'TApplication'#0; A2 : array[0..15] of char = 'TAlignPalette'#0; A3 : array[0..18] of char = 'TPropertyInspector'#0; A4 : array[0..11] of char = 'TAppBuilder'#0; T1 : array[0..6] of char = 'Delphi'#0; begin H1 := FindWindow(A1, T1); H2 := FindWindow(A2, nil); H3 := FindWindow(A3, nil); H4 := FindWindow(A4, nil); Result := (H1 <> 0) and (H2 <> 0) and (H3 <> 0) and (H4 <> 0); end; } {$endif} {REG


Properties


property decimaldigit : integer


property digit : integer


property Formul : string

Published declarations


property StResult : string


property result : real


Events


event OnError : TOnErrorEvent


Variables


decimal : integer;


FOnError : TOnErrorEvent;


formula : string;

Private declarations


ncifre : integer;


resulto : real;


risult : string;