Inifile in eine Klasse und ansteuern

[Merowinger]

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

[MathiasSimmack]

Mal abgesehen von deinem Problem: Gibt es denn einen Grund, eine Klasse in eine Klasse zu packen?

[Der_Unwissende]

Hi,
dein Problem liegt darin, dass du glaube ich nicht wirklich viel vom Ableiten verstanden hast, oder? Meine es gar nicht böse. Aber du leitest etwas von einem Inifile ab. Das heißt die neue Klasse hat alle Eigenschaften und Methoden (z.B. writeString), die auch alle seine Vorfahren haben.
Das wiederum führt uns zu der Frage von Mathias, warum du eine Variable vom Typ iniFile in einem IniFile (also einem Nachfahren) brauchst. Ganz zu schweigen davon, dass diese Variable auch nicht published sein sollte, wird von der nie eine Instanz erzeugt.

Mit deinem Set soll aber in dieses IniFile (nil) geschrieben werden. Wenn du einfach die Variable löscht und stattdessen self.writeString benutzt wird alles gut.

Gruß Der Unwissende

[Merowinger]

Hey DPler,

ja ich weiß das es auch sehr viel einfacher geht. Über strukturiert...

Zitat:

Mal abgesehen von deinem Problem: Gibt es denn einen Grund, eine Klasse in eine Klasse zu packen?

Nein, eigentlich nicht. Aber die Aufgabenstellung verlangte es und damit der Lehrer nicht meckert macht es ein Schüler.

Zitat:

dein Problem liegt darin, dass du glaube ich nicht wirklich viel vom Ableiten verstanden hast, oder?

Da hast du vollkommen recht. Bin gerade dabei die OOP zu entdecken... is auch nicht ganz einfach.

Zitat:

Wenn du einfach die Variable löscht und stattdessen self.writeString benutzt wird alles gut.

Ja! Mann lernt ja mit jedem Fehler.

Danke Merowinger