paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 14:18:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: started conditional evaluation

Browse Source 
git-svn-id: trunk@17866 -
This commit is contained in:
mattias 2008-12-19 11:37:16 +00:00
parent 3817032fa7
commit 20fee49b9d
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/compoptsmodes.pas
View File

@ -135,6 +135,9 @@ type
FChangeStamp: integer;
FEvaluator: TExpressionEvaluator;
FRoot: TCompOptCondNode;
FEvaluatorStamp: integer;
FValuesValid: boolean;
FValues: array[TCOCValueType] of string;
function GetValues(const ValueType: TCOCValueType): string;
procedure SetEvaluator(const AValue: TExpressionEvaluator);
public
@ -312,7 +315,13 @@ end;
function TCompOptConditionals.GetValues(const ValueType: TCOCValueType): string;
begin
if (not FValuesValid)
or (FEvaluator.ChangeStamp<>FEvaluatorStamp) then begin
// ToDo
FValuesValid:=true;
FEvaluatorStamp:=FEvaluator.ChangeStamp;
end;
Result:=FValues[ValueType];
end;
procedure TCompOptConditionals.SetEvaluator(const AValue: TExpressionEvaluator
@ -320,6 +329,7 @@ procedure TCompOptConditionals.SetEvaluator(const AValue: TExpressionEvaluator
begin
if FEvaluator=AValue then exit;
FEvaluator:=AValue;
FValuesValid:=false;
end;
constructor TCompOptConditionals.Create;