Hey DPLer,
ich möchte meine Klasse TMYIniFile die Eigenschaft ini_file vom Typ TInifiles
einbringen. Nun sollen Schreib- und Lesemthoden noch mit hinzukommen. Der Quelltext :
Delphi-Quellcode:
unit TMyIniFileUnit;
interface
uses Inifiles;
type TMYIniFile =
class(TIniFile)
ini_File : TIniFile;
public
function get_ID(Sektion, Ident :
String) :
String;
procedure set_ID(Sektion, Ident,iDID :
String);
end;
implementation
{ TMYIniFile }
function TMYIniFile.get_ID(Sektion, Ident :
String):
String;
begin
Result := ini_File.ReadString(Sektion,Ident,'
0');
end;
procedure TMYIniFile.set_ID(Sektion, Ident,iDID :
String);
begin
ini_File.WriteString(Sektion,Ident,iDID);
end;
und nun im Hauptprogramm aufgerufen:
Delphi-Quellcode:
uses TMyIniFileUnit;
procedure TMainForm.Button1Click(Sender: TObject);
var Ini : TMYIniFile;
begin
Ini := TMYIniFile.Create('bert.ini');
Ini.set_ID('A','B','C');
Label1.Caption := Ini.get_ID('A','B');
Ini.Free;
end;
und siehe da:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Projekt_Kreditanfrage.exe ist eine
Exception der Klasse EAccessViolation
aufgetreten. Meldung: 'Zugriffsverletzung bei Adresse 004B96DE in Modul
'Projekt_Kreditanfrage.exe'. Lesen von Adresse 00000000'. Prozess wurde angehalten.
Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------
Der Fehler tritt bei ini_File.WriteString(Sektion,Ident,iDID) in der Funktion auf.
Ich möchte aber über diesen Weg gehen. Ich weiß, dass strukturiert ggf. einfacher ist.
Wie lößt man so etwas richtig???
Danke Merwoinger