delphi классы

[Terrance!]

если я ,например, создал класс

Tpersone=class;
private
x:integer;
y:integer;

и объявил их 3 штуки

p1=tpersone;
p2=tpersone;
p3=tpersone;

Подскажите ,как сделать так, чтобы

X:=x+1

выполнялось для всех 3?

я пробовал так

tpersone.x:=tpersone.x+1;

,но конечно же ничего из этого не вышло, заранее спасибо.

[Stilet]

Правильно. Обычно обьекты кидают в массив или в динсписок типа TObjectList, и в цикле проходя по мену присваивают свойства.

[JTG]

Статические поля (class variables), появилось в D2006, вроде

  Tpersone = class
    private
      class var 
         X: Integer;
         Y: Integer;
      var ...
...
  end;

...

  TPersone.X := TPersone.X+1;