Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
3. Apr 2006
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 = pObjekt then
begin
Result := i;
Exit;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
3. Apr 2006
Kannst du bitte die komplette Fensterbreite ausnutzen? Ich komme mir vor, als ob ich ein Gedicht lesen würde ;) .
Dafür gibt es Templates, dann hast du auch ohne Generics in 5 Sekunden eine strongly typed List. Ein dynamisches Array ist einfach unschön.
Wenn du es trotzdem per Pointer versuchen willst:
Alle Array of Referenztyp lassen sich dann nach TPointerDynArray casten.
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
3. Apr 2006
Warum willst du ein dynamisches Array mit Referenztypen (String ausgenommen) verwenden? Dazu sind sie nicht gedacht, dafür gibt es TObjectList.