Collections speichern: Items mit Unterobjekt

[CalganX]

Hi,
einfacher gehts wohl kaum:

Delphi-Quellcode:

  TXCConfig = class(TObject)
  private
    FRecursive: Boolean;
    FSimulate: Boolean;
    FConfirmOverwrite: Boolean;
    FDetailed: Boolean;
    FAddParams: string;
    FSource: TStringList;
    FTarget: TStringList;
    FOnlyExistingFiles: Boolean;
  public
    constructor Create;
    destructor Destroy; override;
  published
    property ConfirmOverwrite: Boolean read FConfirmOverwrite write FConfirmOverwrite;
    property Recursive: Boolean read FRecursive write FRecursive;
    property Simulate: Boolean read FSimulate write FSimulate;
    property Detailed: Boolean read FDetailed write FDetailed;
    property AdditionalParams: string read FAddParams write FAddParams;
    property Target: TStringList read FTarget;
    property Source: TStringList read FSource;
    property OnlyExistingFiles: Boolean read FOnlyExistingFiles write FOnlyExistingFiles;
  end;

Die einzigen Methoden sind Konstruktor und Destruktor. Darin werden auch nur die Stringlisten-Objekte erstellt.

Chris

Edit: Ich nehme eine Klasse nur deswegen, weil ich beim Record nicht die Möglichkeit habe die Stringlisten zu initialisieren.