Record erweitern

[himitsu]

wie zu sehn ... ist es doch recht einfach

Delphi-Quellcode:

type
  Rec = record
    case Integer of
      0: (p1: TPoint;
          p2: TPoint;
          p3: TPoint;
          p4: TPoint);
      1: (p: Array[1..4] of TPoint);
  end;

oder

Delphi-Quellcode:

type
  Rec = record
    case Integer of
      0: (p1, p2, p3, p4: TPoint);
      1: (p: Array[1..4] of TPoint);
  end;