added builtin variation counter

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

View File

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

View File

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