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
Result := False;
if Name = var_n_name then begin
N := 2;
if N = 2 then N := -2
else N := 2;
Result := True;
end
else if Name = var_c_name then begin

View File

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