Incorrect warning message

[TheDog6]

Hi, I've put it in Helpful tip for no other option. With this code:

function FillRFIndexes(rfindexesInteger):Integer;
var
i:Integer;
zinteger;
begin
Result:=0;
z:=rfindexes;
if rfindexes=nil then
exit;
for i:=0 to {some}.Count-1 do
begin
if {some condition} then
begin
Inc(Result);
try
rfindexes^:=i;
Inc(rfindexes,sizeof(Integer));
except
Result:=0;
break;
end;
end;
end;
rfindexes:=z;
end;

The compiler warns 'Value assigned to rfindexes never used'. It's not correct, because the rfindexes value it is used in the function return. It's a delphi 7 issue.

 

[whosrdaddy]

??? what's your point here.
the compiler gives a valid warning since I don't see
Result := rfindexes^;

/Daddy

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[Griffyn]

if you want to return the value of z to the calling code, you'll need to declare the function as

function FillRFIndexes([b]var[/b] rfindexes:PInteger):Integer;

or, return your result by changing the last line to

rfindexes^ := z^;