Generische TObjectlist erzeugt AVs

[Neutral General]

Hi,

Folgender Testcode erzeugt bei mir eine Zugriffsverletzung:

Delphi-Quellcode:

type
  TTest = class
  end;

var
  test: TObjectList<TTest>

procedure TForm1.Button1Click(Sender: TObject);
var tmp: TTest;
begin
  test := TObjectList<TTest>.Create;

  tmp := TTest.Create;
  test.Add(tmp);

  Caption := IntToStr(test.IndexOf(tmp));  // <--- IndexOf !

  test.Free;
end;

Das sollte eigentlich nicht so sein oder?

Gruß
Neutral General

[himitsu]

Ja, da scheint wohl irgendwas (in D2009) schiefzugehn

hier wird zwar Count beim .Add gesetzt, aber SetLength ändert anscheinend die FItems nicht

Jedefalls stimmt .Count, aber in FItems ist einfach nichts drin, weswegen dann die Bereichsprüfung zuschlägt.
komisch ... jetzt geht es plötzlich ... also das.Count und FItems stimmen, aber die Exception kommt immernoch


edit: hab's (glaub ich) FComparer ist NIL

Delphi-Quellcode:

function TList<T>.IndexOf(const Value: T): Integer;
var
  i: Integer;
begin
  for i := 0 to Count - 1 do
    if FComparer.Compare(FItems[i], Value) = 0 then
      Exit(i);
  Result := -1;
end;

[Neutral General]

Also was mir auch aufgefallen ist... (grml zu langsam.. aber egal )

Delphi-Quellcode:

function TList<T>.IndexOf(const Value: T): Integer;
var
  i: Integer;
begin
  for i := 0 to Count - 1 do
    if FComparer.Compare(FItems[i], Value) = 0 then
      Exit(i);
  Result := -1;
end;

Ich glaube FComparer ist nil. Man kann einen im constructor übergeben...

Ich hab das jetzt so gemacht:

test := TObjectList<TTest>.Create(TComparer<TTest>.Create) Jetzt kommt keine AV mehr, sondern ein abstrakter Fehler

Edit: Klar... Compare ist bei TComparer auch noch abstract -.-


ABER:

Das heißt ja ich muss mir entweder ne Klasse von TComparer ableiten oder ich muss mir sone Compare function schreiben und einem TDelegatedComparer im constructor übergeben.

Der Aufwand macht die generischen Listen ja schon wieder fast unnötig

[himitsu]

Delphi-Quellcode:

var tmp: TTest;
  comp: IComparer<TTest>;
begin
  test := TObjectList<TTest>.Create(comp);

da comp=nil wird hier jetzt der Default-Comparer installiert,
blöder Weise wurde dieses beim "normalen" .Create vergessen


[add]
so geht es auch
test := TObjectList<TTest>.Create(IComparer<TTest>(nil));

[Neutral General]

Ok danke, klappt jetzt

[himitsu]

hab erstmal schnell sowas gemacht ._.
http://www.delphipraxis.net/internal...t.php?t=167833