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;