Exception beim Createn eines IniFiles

[grenzgaenger]

so, hier mal 'n bischen code

Delphi-Quellcode:

PROGRAM Project1;

{$APPTYPE CONSOLE}

USES
  SysUtils,
  Classes,
  inifiles;

TYPE
  TFiles = CLASS(TStringList)
  strict private
    fDirName: string;
  public
    PROCEDURE LoadFiles;
    PROCEDURE LoadIni(aIdx: integer);
  END;

  { TFiles }

  PROCEDURE TFiles.LoadFiles;
  VAR
    sr: tsearchRec;
  BEGIN
    fDirName := ExtractName(ParamStr(0));
    Clear;
    IF FindFirst(fDirName + '*.ini', faAnyFile, sr) = 0 THEN
    BEGIN
      REPEAT
        Add(sr.Name);
      UNTIL FindNext(sr) <> 0;
      FindClose(sr);
    END;
  END;

  PROCEDURE TFiles.LoadIni(aIdx: integer);
  VAR
    aIni: tinifile;
  BEGIN
    IF aIdx <= Count THEN
    BEGIN
      aIni := TIniFile.Create(fDirName + Strings[aIdx]);
      TRY
        Clear;
        //hier die daten laden
      FINALLY
        aIni.Free;
      END;
    END;
  END;

VAR
  fTFiles: TFiles;
BEGIN
  fTFiles := TFiles.Create;
  TRY
    fTFiles.loadFiles;

    //hier selktieren und laden
    fTFiles.LoadIni(fTFiles.IndexOf('test') {aIndex});
  FINALLY
    fTFiles.Free;
  END;
  readln;
END.

der sollte eigentlich deinen bisherigen code abdecken...

mit loadfiles lädst du die liste der *.inis in deine klasse,

über indexof wählst du die datei aus

und in loadini, lädst du dann deine daten aus der ini...

jetzt brauchst du dann nur noch auf die einzelnen einträge zugreifen, und schon hast du alle deine daten...

<HTH> GG