N
netfool
Unregistered / Unconfirmed
GUEST, unregistred user!
以下是代码:
如上代码,有标识的那行,运行时设置断点,断点标识为打X,行跟踪时直接跳过这行代码了
怎么也不执行这行代码,无法跟踪进入函数IsFieldValueMatch
代码:
function IsFieldValueMatch(const Value: Integer): Boolean;
var
V: Variant;
begin
V := Dataset.FieldByName(KeyValues[Value]).Value;
Result := False;
case FindOperatorArray[Value] of
foEqual: Result := SameText(V, sa[Value]);
foLike: Result := AnsiPos(V, sa[Value]) > 0;
foLessThan: Result := V <= sa[Value];
foLargeThan: Result := V >= sa[Value];
end;
end;
function DoLocate: Boolean;
var
I: Integer;
B: Boolean;
begin
Result := False;
for I := Low(sa) to High(sa) do
begin
B := IsFieldValueMatch(I)
// 这行不执行
Result := B and Result;
end;
end;如上代码,有标识的那行,运行时设置断点,断点标识为打X,行跟踪时直接跳过这行代码了
怎么也不执行这行代码,无法跟踪进入函数IsFieldValueMatch