Указатели, TList и разыменовывание

[Smogg]

ЧЯДНТ?

var
pTmp: ^TPoint;
lst : TList;
iTmp : integer;
...
begin
...
// читаю  файл, хз, а пишется ли что-то вообще в pTmp? 

 while not EOF(f) do
  begin
    New(pTmp);
     Read(f, i);
     pTmp.X := i;
     Read(f, i);
     pTmp.Y := i;
     lstPntInit.Add(pTmp);
  end;

// пытаюсь как-то достучаться до значения, чтоб посмотреть в отладчике:

iTmp := @TPoint(lstPntInit.Items[i]).X; // ERRORRRR!!
....

end;

Oшибка: Invalid typecast.

...Блин, ваще не курю указатели в дельфях... ((

Собственно, два вопроса:
1) Как работать с TList?
2) почему применим оператор "точка" к pTmp? В с++ это ж ошибка.

[Streletz]

В помощь:
TList

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var pTmp: ^TPoint;
    lst : TList;
    i: integer;
begin
  lst:=TList.Create;
  New(pTmp); pTmp.X:=25; pTmp.y:=35; lst.Add(pTmp);
  New(pTmp); pTmp.X:=5;  pTmp.y:=6;  lst.Add(pTmp);

  for i:=0 to lst.Count-1 do begin
    Memo1.Lines.Add(Format('i=%d X=%d Y=%d',[i,TPoint(lst.Items[i]^).X,TPoint(lst.Items[i]^).Y]));
    FreeMem(lst.Items[i]);
  end;
  lst.Free;
end;

[Smogg]

Аватар, спасибо! Теперь понял)

TPoint(lst.Items[i]^).X

Сначала разыменовываем итем и получаем нечто неясного размера. Затем эту шнягу приводим к нужному типу. Иппанутся алогичность.

Вот жеж дельфи, где не надо - избыточные абстракции, а где надо - нужно помнить про самый низкий уровень, что переменная - это на самом деле индекс ячейки в памяти, где начинается храниться объект.

[Smogg]

Ап! кагрится)

Еще один вопрос - как удалить объект TPoint?

Dispose(TPoint(lstPntInit.Items[i]));

Оять - [Error] Unit1.pas(71): Invalid typecast

[Аватар]

Там не надо TPoint. Просто указатель Dispose(lst.Items[i]);

[Smogg]

То есть, при выделении памяти где-то там в какой-то таблице менеджера памяти указано сколько байт выделено под этот конкретный указатель (типа void)? Поэтому явно размер указывать не надо, он уже компьютеру известен?

Вроде понятно стало.

[Alter]

Переменные - указатели