[AleD]

Сообщение от lmikle

...Тут не телепаты собрались...

да вообще, когда надо их нету мне казалось я обьяснил нормально, лана вот пример:

Код:

type
  PMyRec = ^TMyRec;
  TMyRec = record
    var1: Integer;
    var2: Pointer;
  end;
...
procedure TForm1.DoIt();
var
  mylist: TList;
  p: TMyRec;
  i: Integer;
begin
  mylist := TList.Create;
  for i:=0 to 10 do
  begin
    {вот здесь надо создать новый экземпляр в переменную p, но как?}
    FillChar(p,SizeOf(TMyRec),$00);
    p.var1 := i;
    mylist.Add(@p);
  end;

  for i := 0 to mylist.Count - 1 do
    Memo1.Lines.Add(IntToStr(PMyRec(mylist[i])^.var1));
  {здесь в мемо выводится все 10, ну это, как я понимаю, изза того что все итемы в листе с одним адресом}
end;