for supernewbie (логово извращенцев)

[supernewbie]

Оффтоп

function FindAddNetworkQueueNumber(StartAddr,Finder:pointer) : integer;
var
  i:integer;
  tmp:pointer;
begin
  result:=-1;
  for i:=1 to 200 do
  begin
  tmp:=Pointer(Integer(StartAddr)+(4*i));
  if tmp^=Finder^ then
  begin
    result:=i;
    Exit;
  end;
  end;
end;

ну че ему не нравится(

---

function FindAddNetworkQueueNumber(StartAddr,Finder:pointer) : integer;
var
  i:integer;
  tmp:pointer;
begin
  result:=-1;
  for i:=1 to 200 do
  begin
  tmp:=Pointer(Integer(StartAddr)+(4*i));
  if Integer(tmp^)=Integer(Finder^) then
  begin
    result:=i;
    Exit;
  end;
  end;
end;

вот так вроде робит, правда он все равно ничего не находит и возвращает -1( че-то не то(