안녕하세요. 최용일입니다.

흠...  TPoint의  포인터인 PPoint를 사용하셔두 되구, @써서 주소 참조하셔두 되구... 상황에 따라서 사용하시면...

^^ 항상 즐코하세요...

답변감사합니다.
@을 이용해서 해 봤는데 좀 문제가 있어서...
TList를 상속한 TPointList라는 놈을 만들려고 하는데...
즉 TPoint들의 리스트이죠...
근데 테스트 하다 보니
포인터 형이라 그런지 리스트에 담으면 그 값이 마지막 값으로 바뀌어져있네요..
각 값들을 갖구 있으려 하면 어떻게 해야 하나요?
저 바보인가봐요...정신이 딴데 가 있어서리 ㅋㅋ
/////////////테스트///////////////////////////////////

procedure TForm1.Button2Click(Sender: TObject);
var
  list: TList;
  i: integer;
  a: TPoint;
  p: PPoint;
begin
  list := TList.Create;
  for i:=0 to 3 do
  begin
    a := Point(100+i,100);
    list.Add(@a);
//    showMessage(IntToStr(TPoint(list.Items[i]^).X));
  end;
  for i:=0 to List.Count-1 do
  begin
    showMessage(IntToStr(TPoint(list.Items[i]^).X));
  end;

end;

///////////////////만들려는 TPointList 클래스////////////////
property Items [index: Integer]: TPoint read GetPoint write SetPoint; default;

procedure TPointList.SetPoint(Index: Integer; Value: TPoint);
begin
   inherited Items[Index]:= @Value;
end;

function TPointList.GetPoint(Index: Integer): TPoint;
begin
   Result:= TPoint(inherited Items[Index]^);
end;

procedure TPointList.Add(Value: TPoint);
begin
   inherited Add(@Value);
end;

안녕하세요. 최용일입니다.

TList에 넣으실려면 참조연산자 쓰시면 안되죠. 각각 메모리 할당받으셔야 합니다. 리스트쓰실려면 TPoint보다는 PPoint를 쓰세요...

var
    A: PPoint;
begin
    ......
    for i:=0 to 3 do
    begin
        New(A);
        A^ := Point(100+i,100);
        list.Add(A);
    end;
end;

다 쓰신 뒤에는 메모리 해제해주시구요...

for I := 0 to List.Count - 1 do
    Dispose(List.Items[I]);

^^ 항상 즐코하세요...