mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Compare operands

Browse source
This commit is contained in:
Alexander Koblov 2012-03-18 15:15:04 +00:00
commit 5d086c79bc
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/udetectstr.pas
View file

@ -89,9 +89,11 @@ uses
uDebug, uFileProperty, uFileSystemFileSource;
function TParserControl.calculate(aFile: TFile; operand1,operand2,Aoperator:Tmathchar):string;
var tmp:string;
var
tmp, data1: String;
begin
result:='false';
data1:= UpperCase(operand1.data);
//Not
if (operand1.data='NOT') and ((operand2.data='true') or (operand2.data='false')) then
@ -110,7 +112,7 @@ begin
end;
//EXT= EXT!=
if (operand1.data='EXT') then
if (data1 = 'EXT') then
begin
//---------------------
tmp:= aFile.Extension;
@ -124,7 +126,7 @@ begin
end;
//SIZE > < = !=
if (operand1.data='SIZE') and (fpSize in aFile.SupportedProperties) then
if (data1 = 'SIZE') and (fpSize in aFile.SupportedProperties) then
begin
tmp:= IntToStr(aFile.Size);
case Aoperator.op of
@ -135,8 +137,6 @@ begin
end;
end;
{ case Aoperator.op of
moneq: ;
moequ: ;
@ -153,7 +153,6 @@ begin
Result:= getresult(aFile);
end;
function TParserControl.TestFileResult(const aFileName: UTF8String): boolean;
var
aFile: TFile;
@ -416,4 +415,4 @@ end;
end;
end.