Mehrere Eigenschaften zusammenfassen - aber wie?

[Marco Steinebach]

Hallo zusammen,
Wenn mir ein schönerer Betreff eingefallen wäre, hätte ich vielleicht auch was suchen können...
Also: nehmen wir mal die berühmte Adresse, mit den Eigenschaften Name, Vorname, Strasse, usw. und das ganze als Klasse.
Die sollte man ja, denke ich, ungefähr so definieren:

Delphi-Quellcode:

type
  TAdresse = Class (TObject)
  private
    fName: string;
    fVorname: string;
    fStrasse: string;
    function leseName: string;
    procedure SetzeName (s: string);
    function leseVorname: string;
    procedure SetzeVorname (s: string);
    function leseStrasse: string;
    procedure SetzeStrasse(s: string);
  public
    property name read leseName write setzeName;
    property Vorname read leseVorname write SetzeVorname;
    property strasse read leseStrasse write setzeStrasse;
  end;

implementation

function TAdresse.LeseName: string;
begin
  result := fName;
end;

procedure TAdresse.SetzeName(s: string);
begin
  if s <> name then
  begin
    fName := s;
  end;
end;
//...
end.

Die Klasse, um die es mir geht, speichert alle Einstellungen meines programms. Das sind so rund 50 Stück. Muß ich jetzt echt für jede dieser Einstellungen eine lese, eine schreibe-prozedur, eine interne Variable und die Eigenschaft definieren? Oder geht das auch irgendwie kürzer, denn jede der lese- und schreib-Prozeduren sind alle gleich.
Ich steh da echt auf dem Schlauch!!!
Viele Grüße
Marco

[ele]

Du musst nur eine Prozedur bzw. Funktion angeben, wenn du etwas zusätzlich zum speichern oder laden des Wertes machen möchtest. Wenn du den Wert nur ins Feld schreiben bzw. vom Feld lesen möchtest kannst du nach read bzw. write direkt den Namen des Feldes angeben:

Delphi-Quellcode:

  TAdresse = Class (TObject)
  private
    fName: string;
    fVorname: string;
    fStrasse: string;
  public
    property name: string read fName write fName;
    property Vorname: string read fVorname write fVorname;
    property strasse: string read fStrasse write setzeStrasse;
  end;

[blauweiss]

Hallo Marco,

1. was hindert Dich daran, auf die Properties der Klasse einfach direkt zuzugreifen ?

Delphi-Quellcode:

type
  TAdresse = Class (TObject)
  public
    Nachname: string;
    Vorname: string;
    Strasse: string;
  end;

2. eine Property namens "name" würde ich prinzipiell nicht empfehlen !

Gruß,
blauweiss

[Lemmy]

Hi,

hast Du schon mal folgendes versucht:

Delphi-Quellcode:

 TAdresse=Class(TObject)
  
  public
    property NachName:String;
    property Vorname:String;
    property Strasse:string;
  end;

und dann STRG+C gedrückt?

und zu

Zitat:

1. was hindert Dich daran, auf die Properties der Klasse einfach direkt zuzugreifen ?

warum dann nicht gleich globale Variablen?

Grüße


[edit] Nachtrag

Delphi-Quellcode:

procedure TAdresse.SetzeName(s: string);
begin
  if s <> name then
  begin
    fName := s;
  end;
end;

die Überprüfung "s <> name" ist nur dann sinnvoll, wenn Du anschließend ein Event wie z.B. PropertyChanged aufrufen möchtest. Nur um bei Gleichheit die Zuweisung zu unterbinden ist das echt etwas übertrieben...

[Deep-Sea]

Zitat von Lemmy:

warum dann nicht gleich globale Variablen?

Oder gleich weg von Objekten und Hochsprachen. Back to the roots

@Marco Steinebach:
Du könntest auf einen Wert auch über einen Index oder einen String zugreifen ... hat wie immer Vor- und Nachteile ...

@Lemmy:
Zu deinem Nachtrag: Stimmt, aber falsch ist es auch nicht. So kann man es wenigstens nicht vergessen, falls doch mal ein Event o.ä. hinzukommt ...

[himitsu]

Nein, nicht diese Felder einfach nach Public verschieben ... wenn man diese über Property freigibt, dann kann man später einfacher die Zugriffe bearbeiten.
Also wenn, dann siehe den Code von ele ... wenn du in den Settern/Gettern nichts besonderes machst, dann diese einfach weglassen und das Property direkt umleiten.

Man könnte aber auch einen Index nutzen:

Delphi-Quellcode:

TAdresse = Class
private
  function StringGetter(Index: Integer): String;
  procedure StringSetter(Index: Integer; Value: String);
  ...
public
  property Name:       String  index 0 read StringGetter  write StringSetter;
  property Vorname:    String  index 1 read StringGetter  write StringSetter;
  property Strasse:    String  index 2 read StringGetter  write StringSetter;
  property Hausnummer: Integer index 3 read IntegerGetter write IntegerSetter;
end;

Jetzt kann man das entweder direkt behandeln oder z.B. auf entsprechende Arrays weiterleiten:

Delphi-Quellcode:

TAdresse = Class
private
  fStringValues: array[0..2] of String;
  fIntegerValues: array[0..0] of Integer;
  function StringGetter(Index: Integer): String;
  procedure StringSetter(Index: Integer; Value: String);
  function StringGetter(Index: Integer): String;
  procedure StringSetter(Index: Integer; Value: String);
public
  property Name:       String index 0 read StringGetter write StringSetter;
  property Vorname:    String index 1 read StringGetter write StringSetter;
  property Strasse:    String index 2 read StringGetter write StringSetter;
  property Hausnummer: String index 0 read IntegerGetter write IntegerSetter;
end;

[Marco Steinebach]

Hallo zusammen,
ganz herzlichen Dank für die vielen, und, vor allem, sehr hilfreichen Antworten.
Da ich vor habe, die Einstellungen nur zu speichern, wenn sich an mindestens einer Einstellung etwas geänderthat, wird es wohl bei den, etwas umfangreicheren Settern und Gettern bleiben. Mal sehen, ob mir die Indizierung was nützt, und ob's weniger Zeilen gibt.
Ganz herzlichen Dank nochmal und viele Grüße
Marco