1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

delphi ini datei sectionen lesen

Dieses Thema im Forum "Delphi, Pascal, Lazarus, Kylix" wurde erstellt von jkallup, 21. Juni 2015.

  1. jkallup

    jkallup Erfahrenes Mitglied

    Hallo,

    wie kann ich diese ini datei auslesen?
    irgendwie klappt das nicht mit dem code unten:

    Code (Text):
    1. [Databases]
    2. BeispielDatenbank=@BeispielDatenbank
    3. CONTAXT=@contaxt
    4.  
    5. [@BeispielDatenbank]
    6. wurzel=1
    7. quadreat=2
    8. rechteck=3
    9. kreis=4
    10.  
    11. [@contaxt]
    12. würfel=2
    13. ddd=1

    Code (Text):
    1. procedure TForm1.getSettings;
    2. var
    3. ini: TIniFile;
    4. filename: String;
    5. tmpliste: TStringList;
    6. strliste: TStringList;
    7. i: Integer;
    8. begin
    9. try
    10. filename := ExtractFilePath(ParamStr(0)) + 'kdb.ini';
    11. ini := TIniFile.Create(filename);
    12. tmpliste := TStringList.Create;
    13. strliste := TStringList.Create;
    14. ini.ReadSection('Databases', tmpliste);
    15. for i := 0 to tmpliste.count - 1 do
    16. begin
    17. strliste.Add(tmpliste[i]);
    18. end;
    19. showmessage(strliste.text);
    20. tmpliste.clear;
    21. for i := 0 to strliste.Count - 1 do
    22. begin;
    23. ini.ReadSection(strliste.strings[i],tmpliste);
    24. showMessage(tmpliste.text);
    25. end;
    26. except
    27. ShowMessage('Fehler: INI Datei fehlerhaft.');
    28. end;
    29. FreeAndNil(tmpliste);
    30. FreeAndNil(ini);
    31. end;
     
Die Seite wird geladen...