Ini-Datei-Äquivalent mit Kommentarfunktion - Klasse wie realisieren?

[SneakyBagels]

Ok nehmen wir das Semikolon. Was für eine Klasse könnte man für dieses Beispiel hier verwenden?

Code:

;comment line
[testsection]
testident=testvalue

Meine Idee bisher (leider gibt showmessage sl.text eine AV + der Destruktor wird nicht aufgerufen)

Delphi-Quellcode:

unit classIniTest;

interface

uses
 System.SysUtils, System.IniFiles, System.Classes, Dialogs;

type
 TIniTest = class

 private
  Fsl: TStringList;
 public
  constructor Create(const aFileName: string); overload;
  constructor Create(const aFileName: string; Encoding: TEncoding); overload;
  destructor Destroy; override;

  property sl: TStringList read Fsl write Fsl;
 end;

implementation

constructor TIniTest.Create(const aFileName: string);
begin
 TIniTest.Create(aFileName, TEncoding.Default);
end;

constructor TIniTest.Create(const aFileName: string; Encoding: TEncoding);
begin
 sl := TStringList.Create;
 sl.LoadFromFile(aFileName, Encoding);
end;

destructor TIniTest.Destroy;
begin
 sl.Free;

 inherited Destroy;
end;

end.


var
 Test: TIniTest;
begin
 Test := TIniTest.Create('TestDatei.txt');
 try
  ShowMessage(Test.sl.Text);
 finally
  Test.Free;
 end;