75 lines
1.9 KiB
ObjectPascal
75 lines
1.9 KiB
ObjectPascal
unit BaseVariation;
|
|
|
|
interface
|
|
|
|
type
|
|
TCalcFunction = procedure of object;
|
|
|
|
type
|
|
TBaseVariation = class
|
|
protected
|
|
|
|
public
|
|
vvar: double; // normalized interp coefs between variations
|
|
FTx, FTy: ^double;
|
|
FPx, FPy: ^double;
|
|
|
|
class function GetName: string; virtual; abstract;
|
|
class function GetInstance: TBaseVariation; virtual; abstract;
|
|
|
|
class function GetNrVariables: integer; virtual;
|
|
class function GetVariableNameAt(const Index: integer): string; virtual;
|
|
|
|
function SetVariable(const Name: string; var value: double): boolean; virtual;
|
|
function GetVariable(const Name: string; var value: double): boolean; virtual;
|
|
|
|
procedure Prepare; virtual;
|
|
|
|
procedure CalcFunction; virtual; abstract;
|
|
procedure GetCalcFunction(var Delphi_Suxx: TCalcFunction); virtual;
|
|
end;
|
|
|
|
TBaseVariationClass = class of TBaseVariation;
|
|
|
|
|
|
implementation
|
|
|
|
{ TBaseVariation }
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
class function TBaseVariation.GetNrVariables: integer;
|
|
begin
|
|
Result := 0;
|
|
end;
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
function TBaseVariation.GetVariable(const Name: string; var value: double): boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
function TBaseVariation.SetVariable(const Name: string; var value: double): boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
class function TBaseVariation.GetVariableNameAt(const Index: integer): string;
|
|
begin
|
|
Result := ''
|
|
end;
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
procedure TBaseVariation.Prepare;
|
|
begin
|
|
end;
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
procedure TBaseVariation.GetCalcFunction(var Delphi_Suxx: TCalcFunction);
|
|
begin
|
|
Delphi_Suxx := CalcFunction;
|
|
end;
|
|
|
|
end.
|