mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added builtin variation counter

Browse Source
This commit is contained in:
zueuk 2009-04-20 07:42:36 +00:00
parent d30495c0d9
commit c21d6ecbb1
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/Source/BaseVariation.pas
View File

@ -39,6 +39,8 @@ type
type type
TVariationLoader = class TVariationLoader = class
public public
firstVariableIndex: integer;
function GetName: string; virtual; abstract; function GetName: string; virtual; abstract;
function GetInstance: TBaseVariation; virtual; abstract; function GetInstance: TBaseVariation; virtual; abstract;
function GetNrVariables: integer; virtual; abstract; function GetNrVariables: integer; virtual; abstract;
@ -95,7 +97,7 @@ var
value: double; value: double;
begin begin
if GetVariable(Name, value) then if GetVariable(Name, value) then
Result := Format('%.6g', [value]) Result := FloatToStr(value) //Format('%.6g', [value])
else else
Result := ''; Result := '';
end; end;

3
2.10/Source/varGenericPlugin.pas
View File

@ -230,7 +230,8 @@ var
name, msg: string; name, msg: string;
PluginData : TPluginData; PluginData : TPluginData;
begin begin
NumBuiltinVars := NRLOCVAR + GetNrRegisteredVariations; NumBuiltinVariations := NRLOCVAR + GetNrRegisteredVariations;
NumBuiltinVariables := GetNrVariableNames;
// Try to find regular files matching *.dll in the plugins dir // Try to find regular files matching *.dll in the plugins dir
if FindFirst('.\Plugins\*.dll', faAnyFile, searchResult) = 0 then if FindFirst('.\Plugins\*.dll', faAnyFile, searchResult) = 0 then
begin begin