Position eines Objekts im Array

[Khabarakh]

Zitat:

Edit: Ein Problem gibts natürlich, wenn das Objekt nicht drin ist.

Delphi-Quellcode:

function Where(pArrayPointer: TObjectDynArray; pObjekt: TObject):integer;
var i:integer;
  a: Array of Pointer;
begin
  for i := 0 to Length(pArrayPointer) - 1 do
    if pArrayPointer[i] = pObjekt then
    begin
      Result := i;
      Exit;
    end;
  Result := -1;
end;