Design Problem: Exceptions in einer Schleife

[Luckie]

Zitat von Christian Seehase:

eben nicht. Du setzt damit den Wert des Feldes, nicht den der Eigenschaft.

Ja, das meinte ich auch.

Zitat:

Wie sieht denn die Deklaration der Eigenschaft ProcessPriority aus?

So sieht meine Klasse bisher aus:

Delphi-Quellcode:

type
  TProcess = class(TObject)
  private
    FModuleFilename: string;
    FProcID: DWORD;
    FPOwnerSID: PSID;
    FOwnerStrSID: string;
    FOwnerName: string;
    FPriorityClass: DWORD;
    FCountThreads: DWORD;
    function GetModuleFilename: string;
    function GetProcID: DWORD;
    function GetPOwnerSID: PSID;
    function GetOwnerSIDStr: string;
    function GetOwnerName: string;
    function GetPriorityClass: DWORD;
    function GetCountThreads: DWORD;
    function SetModuleFilename: string;
    function SetOwnerName: WideString;
    function SetPriorityClass: DWORD;
    function SetCountThreads: DWORD;
  public
    constructor Create(PID: DWORD);
    property ModuleFilename: string read GetModuleFilename;
    property ProcID: DWORD read GetProcID;
    property POwnerSID: PSID read GetPOwnerSID;
    property OwnerSIDStr: string read GetOwnerSIDStr;
    property OwnerName: string read GetOwnerName;
    property ProcessPriority: DWORD read GetPriorityClass;
    property CountThreads: DWORD read GetCountThreads;
    procedure KillProcess;
    procedure SetProcessPriority;
  end;