Hi alle
Ich initailisiere ein Objekt über Stringlisten. ungefähr so:
Delphi-Quellcode:
type
TBase = class(TObject)
VariableA: Integer;
VariableB: string;
procedure Initialisiere(Dateinname: string);
end;
[...]
procedure TBase.Initialisiere(Dateinname: string);
var SL: TSringlist;
begin
SL := TSringlist.Create;
SL.LoadFromFile(Dateiname);
VariableA := StrToInt(SL.Values['VarA']);
VariableB := SL.Values['VarB'];
SL.Free;
end;
Das Problem entsteht, wenn ich diese Klasse ableiten und erweitern will:
Delphi-Quellcode:
type
TDerived = class(TBase)
VariableC: string;
procedure Initialisiere(Dateinname: string); override;
end;
[...]
procedure TDerived.Initialisiere(Dateinname: string);
begin
inherited;
//hier sollte VariableC ausgelesen werden
end;
Im Moment fallen mir nur zwei Lösungen ein:
1) Den Text nochmal in eine Stringlist laden.
2) Die Stringlist unter public deklarieren und mit einer procedure EndInitialize wieder freigeben
Beide Lösungen finde ich nicht besonders sauber/schön. Gibts da vielleicht was eleganteres?