| Class Teval (unit Eval) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);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;| Properties |
property decimaldigit : integer
property digit : integer
property Formul : string
property StResult : string
property result : real| Events |
event OnError : TOnErrorEvent| Variables |
decimal : integer;
FOnError : TOnErrorEvent;
formula : string;
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 : stringPublished 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;