Forum: Object-Pascal / Delphi-Language
Delphi
by o-sch,
12. Mär 2008
Ich habe eine Workaround gefunden.
Wenn ich mach jedem Add sofort sortiere, dann läuft es zumindest durch.
Schöne und saubere Lösungen sehen anders aus :(
function TMyItemList.NewMyItem(a1,a2,a3:Integer):TmyItem;
begin
Result := NIL;
Result := TmyItem.Create(Self);
Forum: Object-Pascal / Delphi-Language
Delphi
by o-sch,
11. Mär 2008
Nein, leider nicht - das muss die Liste selbst machen. (OwnsObjects)
TObjectList.Create(True);
@Dax just joking
Forum: Object-Pascal / Delphi-Language
Delphi
by o-sch,
11. Mär 2008
Schau mal ganz oben. Der erste Codeschnippsel im Startpost.
Es gibt auch nur diese eine Methode um ein Objekt zu erzeugen und der eigenen Liste zuzufügen.
@thkerkmann: Else kommt mir nicht ins Haus :zwinker:
Forum: Object-Pascal / Delphi-Language
Delphi
by o-sch,
11. Mär 2008
Der Code wird nicht 1:1 benutzt, sondern ist stark vereinfacht. Das ist ein Fehler in der Fehlerbeschreibung :?
function MyListCompare(pmyItem1, pmyItem2: pointer): integer;
begin
Result := 0
if TmyItem(pmyItem1).V1 > TmyItem(pmyItem2).V1 then Result := 1;
if TmyItem(pmyItem1).V1 < TmyItem(pmyItem2).V1 then Result := -1;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by o-sch,
11. Mär 2008
Hallo !
Danke für deine Antwort.
pmyItem1 und pmyItem2 sind die übergebenen Pointer:
function MyListCompare(pmyItem1, pmyItem2: pointer): integer;
^^^^^^^^^ ^^^^^^^^
Forum: Object-Pascal / Delphi-Language
Delphi
by o-sch,
11. Mär 2008
Hallo !
Ich habe hier eine abgeleitete TObjectList die ich mit eigenen Objekten befülle:
(Der Code ist frisiert, damit ich das Problem einfacher darstellen kann)
function TMyItemList.NewMyItem(a1,a2,a3:Integer):TmyItem;
begin
Result := NIL;
Result := TmyItem.Create(Self);