Aber auch nur mit dieser zusätzlichen Zeile
Delphi-Quellcode:
var
ProgrammEinstellungen: TProgrammEinstellungen;
Was ist hiergegen einzuwenden?
Delphi-Quellcode:
type
TProgrammEinstellungen = record
public
type Allgemein = record
class var Bla...
end;
type Dateien = record
class var Bla...
end;
end;
Alle meine Units mit Prozeduren und Funktionen sind mit solchen Records mit class-vars aufgebaut.
Was absolut für eine Klasse mit Settern und Gettern spricht ist aber, dass ich schon in der
Unit selber Überprüfungen durchführen kann
hier mein erster eigener versuch
Delphi-Quellcode:
// Unit uSettings
uses uSettingsAllgemein;
type
TSettings =
class
private
protected
public
Allgemein: TAllgemein;
constructor Create;
overload;
destructor Destroy;
override;
end;
var
Settings: TSettings;
implementation
constructor TSettings.Create;
begin
inherited;
Settings.Allgemein:= TAllgemein.Create;
end;
destructor TSettings.Destroy;
begin
Settings.Allgemein.Free;
inherited;
end;
Delphi-Quellcode:
// Unit uSettingsAllgemein
type
TAllgemein =
class
private
function GetBla: Integer;
procedure SetBla(
const Value: Integer);
public
constructor Create;
overload;
destructor Destroy;
override;
property Bla: Integer
read GetBla
write SetBla;
end;
implementation
... contructor
destructor
function TAllgemein.GetBla: Integer;
begin
Result .. keine Ahnung was hier hin muss
end;
procedure TAllgemein.SetBla(
const Value: Integer);
begin
auch hier keine Ahnung wo was zugewiesen wird.
hier würde ich aber prüfen, ob Value < -1 oder > X wäre
end;