|
@@ -1345,7 +1345,7 @@ Var
|
|
i: Integer;
|
|
i: Integer;
|
|
|
|
|
|
begin
|
|
begin
|
|
- Writeln(F,'---> ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' <----------------');
|
|
|
|
|
|
+ Writeln(F,'---> ', aName, ' at $', HexStr(@VargSrc), ' <----------------');
|
|
with VargSrc do begin
|
|
with VargSrc do begin
|
|
|
|
|
|
if vType and varByRef = varByRef then
|
|
if vType and varByRef = varByRef then
|
|
@@ -1371,7 +1371,7 @@ begin
|
|
WriteLn;
|
|
WriteLn;
|
|
|
|
|
|
if vType and varArray = varArray then begin
|
|
if vType and varArray = varArray then begin
|
|
- Writeln(F,'---< ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' >----------------');
|
|
|
|
|
|
+ Writeln(F,'---< ', aName, ' at $', HexStr(@VargSrc), ' >----------------');
|
|
Writeln(F);
|
|
Writeln(F);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
@@ -1382,7 +1382,7 @@ begin
|
|
if (vType and varByRef = varByRef) or (vType and varTypeMask = varVariant) then
|
|
if (vType and varByRef = varByRef) or (vType and varTypeMask = varVariant) then
|
|
if not Assigned(vPointer) then begin
|
|
if not Assigned(vPointer) then begin
|
|
WriteLn(F, 'nil]');
|
|
WriteLn(F, 'nil]');
|
|
- Writeln(F,'---< ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' >----------------');
|
|
|
|
|
|
+ Writeln(F,'---< ', aName, ' at $', HexStr(@VargSrc), ' >----------------');
|
|
Writeln(F);
|
|
Writeln(F);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
@@ -1438,7 +1438,7 @@ begin
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
- Writeln(F,'---< ', aName, ' at $', IntToHex(Cardinal(@VargSrc), 8), ' >----------------');
|
|
|
|
|
|
+ Writeln(F,'---< ', aName, ' at $', HexStr(@VargSrc), ' >----------------');
|
|
Writeln(F);
|
|
Writeln(F);
|
|
end;
|
|
end;
|
|
|
|
|