1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

unit VariaJob;

interface

uses
  System.Collections;

type
  TVariaJob = class
  private
    m_VariaObjects : ArrayList;
    m_CurrentSerial : string;
    m_MultiUse : boolean;
    m_JobQuantity : integer;
    m_MultiPartsCount : integer;
    m_MultiPartsQuantity : integer;

  public
    //Eine Liste die alle im Job vorhandenen Variablen Objekte enthält
    property VariaObjects : ArrayList read m_VariaObjects;
    //Die letzte vergebene Seriennummer
    property CurrentSerial : string read m_CurrentSerial write m_CurrentSerial;
    //Gibt an, ob der Nutzer Mehrfachnutzen wünscht
    property MultiUse : boolean read m_MultiUse write m_MultiUse;
    //Gibt an, wie oft der Job gelasert werden soll
    property JobQuantity : integer read m_JobQuantity write m_JobQuantity;
    //alle im job vorhandenen multiparts
    property MultiPartsCount : integer read m_MultiPartsCount write m_MultiPartsCount;
    //die anzahl der vom Benutzer gewünschten Multiparts
    property MultiPartsQuantity : integer read m_MultiPartsQuantity write m_MultiPartsQuantity;

    constructor Create;
  end;

implementation

constructor TVariaJob.Create;
begin
  inherited Create;
  m_VariaObjects := ArrayList.Create();
end;

end.					

1:
2:
3:
4:
5:
6:
7:

//Funktioniert:
vJob := TVariaJob.create();
m_MainForm.PropertiesGrid.SelectedObject := vJob.VariaObjects;

//Funktioniert aber nicht:
vJob := TVariaJob.create();
m_MainForm.PropertiesGrid.SelectedObject := vJob;					

1:
2:

[CategoryAttribute('Meine Kategorie')]
property Prop...					

1:
2:

property Bezeichner : string ...
property Wert : string...