Position eines Objekts im Array

[TheAn00bis]

Zitat von alzaimar:

Wem der Text zu breit ist, der verkleinert sein Browserfenster. DAS ist die wahre Freiheit der Typographie!

Dadurch wird der Text aber nicht kleiner zumindest nur bis zu einem gewissen Grad.


Damits nicht nur OT ist hier die Funktion, die ich aus Interesse doch noch mal zu Ende geschrieben habe:
Vielleicht kann sie ja doch nochmal wer gebrauchen, der genauso schlecht mit Pointern ist, wie ich:

 TPointerDynArray = array of Pointer;

Delphi-Quellcode:

function Where(pArrayPointer:TPointerDynArray; pObject: Pointer):integer;
var i:integer;
begin
   i:=0;
   while (pArrayPointer[i] <> pObject) and (i<high(pArrayPointer)) do inc(i);
   result:=i;
end;

Aufruf:

position:=where(TPointerDynArray(abc), Pointer(def)); mit

abc: array of Twhatever;
und def: TWhatever.

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