Hallo zusammen. Mein Gott...ich und die Ini Dateien.
Ich krieg bei folgendem Code immer eine EAccesViolation.
Ich habe ein EditFeld, in das ich einen Namen eingeben und eine Listbox, in der alle vorhandenen Kategorien sind. Jetzt will ich, dass das Programm den String einer zeile ausliest, eine IniDatei mit dem Namen des Strings öffnet und dann, falls der String aus dem Editfeld in der Ini Datei als Section existiert, den Namen der gerade durchsuchten Ini in die erste Zeile des StringGrid schreibt. (...Hoffentlich versteht ihr das, ich verstehs nämlich selber fast nicht
)
Könnt ihr mir sagen, wo da der Fehler liegt?
Delphi-Quellcode:
procedure TForm1.BilderSuche(LBS1: TListbox);
var
BilderSuchIni : TIniFile;
BilderSuchInt : Integer;
begin
For BilderSuchInt := 0 to LBS1.Items.Count -1 do
BilderSuchIni := TIniFile.Create(PathS+LBS1.Items.Strings[BilderSuchInt]+'.ini'); //PathS ist der Programmpfad ;
Try
IF BilderSuchIni.SectionExists(Edit1.Text) THEN // <--- Hier bekomm ich nen Error
StringGrid1.Cells[0,StringGrid1.RowCount-1] := LBS1.Items.Strings[BilderSuchInt];
StringGrid1.Cells[1,StringGrid1.RowCount-1] := Edit1.Text;
StringGrid1.Row := StringGrid1.Row +1;
end;
finally FreeAndNil(BilderSuchIni);
end;
end;
Danke fürs Lesen. Man liest sich. Stanlay