Hallo,

ich bin neu hier im Forum und hoffe, dass mir hier jemand auf die Sprünge helfen kann.

Ich habe während meiner Schulzeit bereits mit INI-Dateien gearbeitet. Ich hatte das eigentlich als sehr sehr leicht in Erinnerung. Leider stellt sich jetzt heraus, dass ich doch nichts mehr kann.

Ich habe mir folgende Anleitung bzgl. INI-Files INI Howto angesehen und versucht ein kleines Beispiel zu programmieren.

Meine INI-Datei test.ini

[Person]
vorname=Michael

und hier mein Programmcode

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
 Ini := TIniFile.Create('test.ini');
  try
  Caption := Ini.ReadString('person', 'vorname', 'Kein Name');
  finally
    Ini.Free;
  end;
end;

Wenn ich alles richtig verstanden habe, dann ist 'Kein Name' ein Default Wert, der Zurückgegeben wird, wenn kein Wert in der INI-Datei gefunden wird. Für mich eigentlich unlogisch aber bitte.

Mein Problem ist jetzt, dass ich keinen Wert, außer "Kein Name" erhalte. Die Ini-Datei und das Programm sind im selben Ordner gespeichert. Der Pfad sollte also stimmen.

Warum funktioniert das nicht??

Vielleicht wird Deine Ini Datei nicht gefunden.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ini: TIniFile;
begin
Ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'test.ini'); //<- geändert
  try
    Caption := Ini.ReadString('person', 'vorname', 'Kein Name');
  finally
    Ini.Free;
  end;
end;

Und herzlich Willkommen in der DP.

Grüße
Klaus

Guck mal mit GetLastError rein oder versuche mal "Kein Name" wegzulassen. Eventuell wird die Datei trotzdem nicht gefunden, versuchs mal mit:

Ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'test.ini');

Du muss beimm Dateinamen für die Ini ein ".\" mit angeben oder den "Vollständig Qualifizierten Namen" (drive:\path\file.ext), also den Path.

Zitat von DerMike:

Die Ini-Datei und das Programm sind im selben Ordner gespeichert. Der Pfad sollte also stimmen.

Tut er aber nicht.

So funktioniert es:
ExtractFilePath(ParamStr(0)) + 'test.ini' Gruß

Die Antworten kamen ja schnell

hier gefällts mir.

Ich habe den Programm teil jetzt eingefügt, so wie du in mir geschickt hast.

Weglassen kann ich 'Kein Name' nicht, da er einen dritten Parameter erwartet. Wenn ich '' schreibe ist der Default Wert natürlich auch '' und somit mein Ergebnis.

ExtractFilePath(ParamStr(0)) + 'test.ini' funktioniert auch nicht



THEMA ABGESCHLOSSEN.

Ich habe alles gelöscht und neu angefangen. Die Ini-Datei habe ich auch neu erstellt. Dann habe ich das ganze so gemacht wie ihr es mir beschrieben habt. ExtractFilePath(ParamStr(0)) + 'test.ini' .

Jetzt funktioniert es. Danke Danke. Fragt mich aber nicht warum es vorher nicht funktioniert hat

Zitat von DerMike:

ExtractFilePath(ParamStr(0)) + 'test.ini' funktioniert auch nicht

ExtractFilePath(ParamStr(0)) + '\test.ini' AFAIK nimmt ExtractFilePath auch das letzte '\' weg.

THEMA ABGESCHLOSSEN.

Ich habe alles gelöscht und neu angefangen. Die Ini-Datei habe ich auch neu erstellt. Dann habe ich das ganze so gemacht wie ihr es mir beschrieben habt. Delphi-Quellcode:
ExtractFilePath(ParamStr(0)) + 'test.ini')

Jetzt funktioniert es. Danke Danke. Fragt mich aber nicht warum es vorher nicht funktioniert hat

Hallo!

ExtractFilePath lässt den letzten Slash stehen, es hätte also so funktionieren müssen (hat´s ja dann auch). Die Fehlerquelle war wohl woanders.

Cu,
Udontknow