OOP Variablen übergeben.

[Dragon27]

Hallo,

Also wenn ich deinen Code so lese, würde ich dir empfehlen ein paar "Regeln" einzuhalten. Diese sind vielleicht am Anfang nervig... aber sie erleichtern dir Vieles.

Zum ersten solltest du Felder immer mit einem Vorangestellten F deklarieren. Zum anderen deinen Settern einigermaßen eindeutige Namen geben... auf keinen Fall "set1 bis x".

Ich hab dir deinen Code mal ansatzweise sauber umgeschrieben. Bitte mach aber nicht den Fehler, diesen einfach zu kopieren. Er soll dir verdeutlichen, wie es besser geht...

Delphi-Quellcode:

type
  TAussehen = class(TObject)
  private
    FBorder_width: integer;
    FBorder_color: TColor;
    FColor: TColor;
    FBorder_Pattern: string;
    procedure SetBorder_color(const Value: TColor);
    procedure SetBorder_Pattern(const Value: string);
    procedure SetBorder_width(const Value: integer);
    procedure SetColor(const Value: TColor);
  public
    property Border_color: TColor read FBorder_color write SetBorder_color;
    property Border_Pattern: string read FBorder_Pattern write SetBorder_Pattern;
    property Border_width: integer read FBorder_width write SetBorder_width;
    property Color: TColor read FColor write SetColor;
  end;

implementation

procedure TAussehen.SetBorder_color(const Value: TColor);
begin
  FBorder_color := Value;
end;

procedure TAussehen.SetBorder_Pattern(const Value: string);
begin
  FBorder_Pattern := Value;
end;

procedure TAussehen.SetBorder_width(const Value: integer);
begin
  FBorder_width := Value;
end;

procedure TAussehen.SetColor(const Value: TColor);
begin
  FColor := Value;
end;

Beste Grüße