Aufbau eigene Klasse mit Property und TStrings

[Jens Hartmann]

Hallo zusammen,

in folgendem Thread habe ich nach dem Aufbau einer Anwendung/Dienst gefragt.

Dienst oder Anwendung

Ich Versuche die Sache gerade mit dem Datenmodul und einer eigene Klasse zu lösen. Jetzt möchte ich einfach mal wissen, ob folgender Aufbau der unten gezeigten Klasse in Ordnung ist. Da ich sowas bislang noch nicht gemacht habe, bin ich mir z.B. mit dem Aufbau von..

Delphi-Quellcode:

constructor TMB100.create;
begin
  inherited;
  FComPortProperty := TStringlist.Create;
  FComPortProperty.Add('Test');
  FComPortProperty.Add('Test 2');
end;
//und
destructor TMB100.destroy;
begin
  FComPortProperty.Free;
  inherited;
end;

nicht sicher, ob ich dort meine TStringliste.Create und .Free einbinden kann. Desweiteren würde ich mal gerne wissen, ob ich über die
Property nicht auch einen Record übergeben kann. Dies wäre den Daten die ich übergeben will näher.

Hier mal die gesamte Klasse...

Delphi-Quellcode:

unit mb100parser;

interface

uses
  Classes, Graphics;

  type
    TMB100 = class
      constructor create;
      destructor destroy;
    private
      FFarbe : array [1..4] of TColor;
      FComPortProperty : TStrings;
      function GetComPortPropertys : TStrings;
      procedure SetColor(Nr : integer; SetFarbe : TColor);
      function GetColor(Nr : integer) : TColor;
    public
      property ComPortPropertys : TStrings read GetComPortPropertys write FComPortProperty;
      property Farbe[Nr : integer] : TColor read GetColor write SetColor;
    end;

implementation

constructor TMB100.create;
begin
  inherited;
  FComPortProperty := TStringlist.Create;
  FComPortProperty.Add('Test');
  FComPortProperty.Add('Test 2');
end;

destructor TMB100.destroy;
begin
  FComPortProperty.Free;
  inherited;
end;

function TMB100.GetComPortPropertys : Tstrings;
begin
  Result := FComPortProperty;
end;

procedure TMB100.SetColor(Nr : integer; SetFarbe : TColor);
begin
  FFarbe[Nr] := SetFarbe
end;

function TMB100.GetColor(Nr : integer) : TColor;
begin
  Result := FFarbe[Nr];
end;
end.

Vielen dank schon mal und Gruß Jens