AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Initialisierung über Stringlist vereben

Ein Thema von Flogo · begonnen am 14. Feb 2005 · letzter Beitrag vom 14. Feb 2005
 
Benutzerbild von Flogo
Flogo

Registriert seit: 24. Mär 2003
Ort: Freiburg im Breisgau
317 Beiträge
 
Delphi 7 Professional
 
#1

Initialisierung über Stringlist vereben

  Alt 14. Feb 2005, 07:10
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?
If one coincidence can occur, then another coincidence can occur. And if one coincidence happens to occur just after another coincidence, then that is just a coincidence.
DNA

www.Anyxist.de
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz