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:48:06 +00:00
parent 4998861d1e
commit 164690e28a
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
2.10/Source/XFormMan.pas
View File

@ -9,7 +9,8 @@ const
NRLOCVAR = 30; NRLOCVAR = 30;
var var
NumBuiltinVars: integer; NumBuiltinVariations: integer;
NumBuiltinVariables: integer;
function NrVar: integer; function NrVar: integer;
function Varnames(const index: integer): String; function Varnames(const index: integer): String;
@ -92,11 +93,19 @@ end;
procedure RegisterVariation(Variation: TVariationLoader); procedure RegisterVariation(Variation: TVariationLoader);
var var
i: integer; i: integer;
newvars: integer;
begin begin
VariationList.Add(Variation); VariationList.Add(Variation);
for i := 0 to Variation.GetNrVariables - 1 do newvars := Variation.GetNrVariables;
VariableNames.Add(Variation.GetVariableNameAt(i)) if newvars > 0 then begin
Variation.firstVariableIndex := VariableNames.Count;
for i := 0 to newvars-1 do
VariableNames.Add(Variation.GetVariableNameAt(i));
end
else
Variation.firstVariableIndex := -1;
end; end;
/////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////