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.