Ini Datei mit Bigini in Listview einlesen

[Heino Piper]

Moin,
Ich habe folgenden funktionierenden Code

Delphi-Quellcode:

procedure TdfmForm1.FormShow(Sender: TObject);
var
  ini: TIniFile;
  x: Integer;
  Eintrag: TListItem;
  sl: TStringList;
begin
  ini := TiniFile.Create(ExtractFilePath(ParamStr(0)) + 'Dateiname.ini');
  sl := TStringList.Create;
  try
    listview1.Clear;
    for x := 1 to 100 do
    begin
      Eintrag := Listview1.Items.Add;
      Eintrag.Caption := ini.ReadString(IntToStr(x), 'Test', '');
      Eintrag.SubItems.Add(ini.ReadString(IntToStr(x), 'Test-1', ''));
      Eintrag.SubItems.Add(ini.ReadString(IntToStr(x), 'Test-2', ''));
  end;
finally
    ini.Free;
end;

soweit so gut, da meine ini größer wird als 64k habe ich es versucht mit Bigini
und habe folgendes zu meinem Projekt hinzugefügt:

uses Bigini;

Delphi-Quellcode:

private
    { Private-Deklarationen }
    BigIniFile : TBiggerIniFile;
    FFileName  : String;

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
  FFileName  := ExtractFilePath(Application.ExeName)+'Rebsorten.ini';
  BigIniFile := TBiggerIniFile.Create(''); { no filename now}
end;

und die procedure TdfmForm1.FormShow(Sender: TObject) so abgeändert:

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var
  x: Integer;
  Eintrag: TListItem;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    listview1.Clear;
    for x := 1 to 100 do
    begin
      Eintrag := Listview1.Items.Add;
      Eintrag.Caption := BiginiFile.ReadString(IntToStr(x), 'Test', '');
      Eintrag.SubItems.Add(BiginiFile.ReadString(IntToStr(x), 'Test-1', ''));
      Eintrag.SubItems.Add(BiginiFile.ReadString(IntToStr(x), 'Test-2', ''));
    end;
finally
    BiginiFile.Free;
end;
end;

Ich habe schon im Netz und in allen Foren nach einem Beispiel zum Einlesen einer ini Datei
mit Bigini in ein Listview gesucht aber leider nichts gefunden.
Die Datei Bigini.pas habe ich auch in meinem Projektordner gelegt.
Beim Aufruf bleibt mein Listview jedoch leer.
Das Demoprogramm von Bigini hilft mir auch nicht weiter, weil dort nicht das Einlesen als Procedure
nicht vorhanden ist.

Vielen Dank im voraus Heino