Record in Liste speichern

[Helmi]

Hallo,

ich steh grad auf dem Schlauch.

Ich möchte gerne eine Liste haben, die als List-Items ein Record hat.

(Normalerweise hab ich ein Array dafür - möcht ich jetzt aber nicht nutzen, da ich es für property brauch)

Nur welche Liste kann ich dazu am besten nehmen und wie?

[Helmi]

Warum komm ich erst auf die Lösung nachdem ich nen Thread aufgemacht hab?

quick-n-saudirty:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Liste: TList;
  test : TTest;

  i : TTest;

begin
  Liste := TList.Create;

  test.test1 := 1;
  test.test2 := 999;

  try
    Liste.Add(@test);


    ShowMessage(IntToStr(Liste.Count));

    i := TTest(Liste.Items[0]^);

    ShowMessage(IntToStr(i.test2));

  finally
    Liste.Free;
  end;

end;

[DeddyH]

Bei XE2 würde ich aber eine generische Liste vorziehen.

[Helmi]

Zitat von DeddyH:

Bei XE2 würde ich aber eine generische Liste vorziehen.

klingt gut! - hast du da ein Beispiel?

[DeddyH]

Delphi-Quellcode:

var
  Liste: TList<TTest>;
  test, test2: TTest;
begin
  test.test1 := 1;
  test.test2 := 999;
  Liste := TList<TTest>.Create;
  try
    Liste.Add(test);
    ShowMessage(IntToStr(Liste.Count));
    test2 := Liste.Items[0];
    ShowMessage(IntToStr(test2.test2));
  finally
    Liste.Free;
  end;
end;

[Helmi]

Bei der Zeile:
Liste: TList<TTest>; bekomm ich folgenden Fehler gemeldet:

Zitat:

[DCC Fehler] Unit1.pas(33): E2003 Undeklarierter Bezeichner: 'TList<>'