EAccesViolation beim Zugriff auf ini

[Fussball-Robby]

Hey,
ich lade aus einer ini mit folgendem code einige Einstellungen:

Delphi-Quellcode:

procedure load;
Var ini:TIniFile;
    fname:string;
    i,count:integer;
begin
  fname:=Unit1.sDir+'main.ini';
  form1.listbox1.clear;
  ini:=TIniFile.create(fname);
  try
     count:=ini.readinteger('main','forms',0);
     if count >0 then do
        for i:=1 to count do
           form1.listbox1.items.add(ini.readstring('main','form'+inttostr(i),''));
  finally
     ini.free;
  end;
end;

Dabei bekomme ich die Fehlermeldung "EAccesViolation". Ich weiß, dass das bedeutet, dass ich auf Speicher zugreife, der nicht existiert oder so ähnlich, aber in anderen Prozeduren greife ich genau so auf die gleiche Datei zu. In den anderen Prozeduren benutze ich allerdings keine Schleife. Kann das damit was zu tun haben?

Hoffe, ihr könnt mir helfen

[Auf Code-Suche]

Hallo,

nachdem du die Listbox clearst, ist der Speicher freigegeben und du kannst nicht mehr drauf zugreifen.
Ersetze den Befehl form1.listbox1.clear; durch form1.listbox1.items.text := ''; Dann sollte es gehen.

[Fussball-Robby]

Erstmal Danke für die Hilfe, aber mit

Delphi-Quellcode:

form1.listbox1.items.text:='';

funktioniert es auch nicht. Selbst wenn ich die ganze Zeile rausnehme, kommt der Fehler

[Xong]

Zitat:

Zitat von Auf Code-Suche

nachdem du die Listbox clearst, ist der Speicher freigegeben und du kannst nicht mehr drauf zugreifen.
Ersetze den Befehl form1.listbox1.clear; durch form1.listbox1.items.text := ''; Dann sollte es gehen.

Zitat:

Mit Clear können Sie alle Einträge des Listenfeldes in einem Schritt löschen. Obwohl die Einträge eines Listenfeldes standardmäßig vom Typ TStrings sind, verwenden Sie die Methode Clear der Liste anstelle der Methode Clear der Eigenschaft Items. Dadurch können Nachkommen von TCustomListBox alle weiteren erforderlichen Löschvorgänge zusätzlich zum Löschen der Einträge aus der Eigenschaft Items in der Methode Clear ausführen. Daher sollten Anwendungen

ListBox1.Clear;

anstelle von

ListBox1.Items.Clear;

verwenden.

@Robby: in welcher Zeile erscheint die Meldung und welchen Wert hat i zu diesem Zeitpunkt?

[Bernhard Geyer]

Ich tipp mal drauf das form1 undefiniert ist.

Bau deine Funktion um so das du mit TStrings arbeitest und nicht auf irgendwelche globale Formularvariablen die evtl. in einem anderen Projekt standardmäßig erzeugt wurden.

[DeddyH]

Außer einem do zuviel:

Delphi-Quellcode:

if count >0 then do

fällt mir jetzt erstmal nichts auf. In welcher Zeile kommt denn der Fehler?

[Fussball-Robby]

Das ist grade das Problem, es wird weder eine Zeile markiert noch irgendein anderer Hinweis darauf gegeben, wo der Fehler auftritt. Ich nehme jetzt mal die anderen Sachen nach und nach da raus, vielleicht finde ich dann die Stelle

[Fussball-Robby]

Sorry, mal wieder ein dummer Fehler :wall: :wall: :wall: Die Variable sDir war zu dem Zeitpunkt noch nicht gesetzt... :oops:

[Bernhard Geyer]

Zitat:

Zitat von Fussball-Robby

Sorry, mal wieder ein dummer Fehler :wall: :wall: :wall: Die Variable sDir war zu dem Zeitpunkt noch nicht gesetzt... :oops:

Wenn man halt globale Variablen en Mass verwendet passiert sowas zwangsläufig.

[Fussball-Robby]

Falls es dich interessiert, das ist meine einzige Globale Variable :wink:

[Bernhard Geyer]

Zitat:

Zitat von Fussball-Robby

Falls es dich interessiert, das ist meine einzige Globale Variable :wink:

form1 wird genauso als globale variable verwendet obwohl sie es hier nicht nötig ist.

[Fussball-Robby]

Okay, dann eben zwei... Dass man nicht mit massig globalen Variablen arbeiten sollte, weiß ich außerdem aus eigener Erfahrung nur allzu gut

[Nuclear-Ping]

Wenn man schon in Delphi programmiert, sollte man sich doch auch langsam von alten Pascal-Angewohnheiten verabschieden.

Statt ...

Delphi-Quellcode:

procedure load;
Var ini:TIniFile;
    fname:string;
    i,count:integer;
begin
  fname:=Unit1.sDir+'main.ini';
  form1.listbox1.clear;
  ini:=TIniFile.create(fname);
  try
     count:=ini.readinteger('main','forms',0);
     if count >0 then do
        for i:=1 to count do
           form1.listbox1.items.add(ini.readstring('main','form'+inttostr(i),''));
  finally
     ini.free;
  end;
end;

... kannst du die Funktion "Load" auch als Methode deiner "Form1" machen und hättest damit schonmal einen Schritt in Richtung OOP getan.

Delphi-Quellcode:

unit Unit1;

interface

uses ...;

type

  TForm1 = class(TForm)
    // ...
  private
    procedure Load;
    // ...
  public
    // ...
  end;

var
  // ...

implementation

{$R *.dfm}

procedure TForm1.Load;
var
  ini: TIniFile;
  FName: String;
  i, Count: Integer;
begin
  FName := Unit1.sDir + 'main.ini'; // << globale Variable *schauder* Mach dir 'ne "Config"-Klasse
  Listbox1.Clear;
  ini := TIniFile.Create(FName);
  try
    Count := ini.ReadInteger('main', 'forms', 0);
    if Count > 0 then
      for i := 1 to Count do
        Listbox1.Items.Add(ini.ReadString('main', 'form' + inttostr(i), ''));
  finally
    FreeAndNil (ini);
  end;
end;