Record in Liste speichern

[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;