Record-Array als Property einer Klasse: einfacher Zugriff auf die Record-Felder

[changlee]

Hallo,

ich glaube ich habe ein ganz einfaches Problem aber mir fällt keine vernünftige Lösung ein.

Das Feld fJobs meiner Klasse TJoblist ist ein dynamisches Record-Array.
Wie kann ich von außen auf die Felder des Records lesend und schreiben zugreifen?

Code:

TStrArray          = array of string;

TJobData = record
    Name:           string;
    uid:            integer;
    sources:        TStrArray;
end;

TJobList = class(TObject)
  private
    fJobs: array of TJobData;
    procedure SetJob(jobIndex: integer; const job:TJobData);
    function  GetJob(jobIndex: integer):TJobData;
  public
    property Jobs[jobIndex: integer]: TJobData read GetJob write SetJob; //???? die eigenschaften des jobs können dennoch beschrieben werden! (soll auch so sein)
  end;

Idealerweise würde ich gern wie folgt darauf zugreifen:

Code:

joblist.Jobs[1].Name := joblist.Jobs[1].Name + ' TEST';

Beim Lesen und insbesondere beim Schreiben möchte ich aber in der Klasse über Set- und Get-Methoden die Kontrolle darüber behalten, was gelesen und geschrieben wird.
Eine Idee war statt des Records einen Pointer auf den Record zurückzugeben. Aber dann bekomme ich ja vom Schreiben nichts mehr mit, oder?

So wie es aktuell implementiert ist, benötige ich mehrere Zeilen um eine Job.Eigenschaft zu verändern:

Code:

job := joblist.Jobs[1];
job.Name := job.Name + ' TEST';
joblist.Jobs[1] := job;

Gibts einen besseren Weg?

Viele Grüße
Stefan