ResetValue toggles values

This commit is contained in:
zueuk 2006-09-06 12:33:00 +00:00
parent c768ad8195
commit 8289fc9b91
2 changed files with 5 additions and 2 deletions

View File

@ -355,7 +355,8 @@ function TVariationJulian.ResetVariable(const Name: string): boolean;
begin begin
Result := False; Result := False;
if Name = var_n_name then begin if Name = var_n_name then begin
N := 2; if N = 2 then N := -2
else N := 2;
Result := True; Result := True;
end end
else if Name = var_c_name then begin else if Name = var_c_name then begin

View File

@ -391,6 +391,7 @@ begin
end end
else if Name = var_c_name then begin else if Name = var_c_name then begin
c := value; c := value;
Result := True;
end; end;
end; end;
@ -398,7 +399,8 @@ function TVariationJuliaScope.ResetVariable(const Name: string): boolean;
begin begin
Result := False; Result := False;
if Name = var_n_name then begin if Name = var_n_name then begin
N := 2; if N = 2 then N := -2
else N := 2;
Result := True; Result := True;
end end
else if Name = var_c_name then begin else if Name = var_c_name then begin