Ini Datei wird nicht erstellt...

[Codix32]

Hallo,

versuche gerade probeweise eine Ini - Datei zu erstellen, aber die Datei wird nicht erstellt, sie ist nirgends zu finden:

Delphi-Quellcode:

uses
 ,... IniFiles;
//...

  public
    { Public-Deklarationen }
    procedure erzeugeIni(IniName:string);
  end;

....

procedure TForm1.erzeugeIni(IniName:string);
var
  ini:TIniFile;
begin
ini := TIniFile.Create(IniName);
// INI-Datei erstellen (falls nicht vorhanden) und initialisieren
try
ini.WriteString('Sektion1', 'Eigenschaft1', 'Dein String');
// String in Sektion1 unter Eigenschaft1 abspeichern
ini.WriteInteger('Sektion2', 'Eigenschaft1', 1234);
// Integerwert in Sektion2 unter Eigenschaft1 abspeichern
ini.WriteBool('Sektion2', 'Eigenschaft2', True);
// Wert vom Typ Boolean abspeichern
finally
ini.Free;
// Variable ini wieder freigeben
end;
end;

.....

procedure TForm1.Button1Click(Sender: TObject);
begin
    erzeugeIni('MyKredinif');
end;

Ist da noch ein Fehler drin, den ich nicht sehe?

[DeddyH]

Keine relativen Pfadangabe verwenden, Du weißt nie mit Sicherheit, was aktuell das Arbeitsverzeichnis ist.

[Codix32]

Zitat von DeddyH:

Keine relativen Pfadangabe verwenden, Du weißt nie mit Sicherheit, was aktuell das Arbeitsverzeichnis ist.

Danke DeddyH,
aber auch über die Suchen Funktion läßt sich nirgends auf der Festplatte die Ini finden.

[DeddyH]

Wonach hast Du denn gesucht? Eine "MyKredinif" ohne Endung müsste sich eigentlich finden lassen.

[himitsu]

WritePrivateProfileString

Wobei INIs nicht "nur" im Arbeitsverzeichnis landen, wenn man keine Pfad angibt ... siehe Remarks

[Codix32]

Zitat von DeddyH:

Wonach hast Du denn gesucht? Eine "MyKredinif" ohne Endung müsste sich eigentlich finden lassen.

erzeugeIni('MyKredinif.ini'); geht auch nicht und wenn ich nach MyKreditinif auf C: suche, wird die 'Unit1' gefunden

Delphi-Quellcode:

procedure TForm1.erzeugeIni(IniName:string);
var
   ini:TIniFile;
begin
 ini := TIniFile.Create(IniName+'.ini');   //<- geändert
// INI-Datei erstellen (falls nicht vorhanden) und initialisieren
try

[DeddyH]

Dann gib doch einen absoluten Pfad an.

[Codix32]

Zitat von DeddyH:

Dann gib doch einen absoluten Pfad an.

Meinst Du das?

Delphi-Quellcode:

procedure TForm1.erzeugeIni(IniName:string);
var
    ini:TIniFile;
begin
  ini := TIniFile.Create(extractfilepath(paramstr(0))+IniName+'.ini'); //<- geändert
// INI-Datei erstellen (falls nicht vorhanden) und initialisieren
try

Ich glaube ich bin heut völlig daneben

[Codix32]

Ok:

ini := TIniFile.Create(extractfilepath(paramstr(0))+IniName+'.ini'); damit geht es, danke euch.

[Popov]

@Codix32

Früher landeten Inis ohne Pfadangabe im Windows-Verzeichnis. Der ist aber heute schreibgeschützt, womit es eigentlich eine Fehlermeldung geben müsste (vorausgesetzt das ich nicht abgeschaltet). Gibt es keine Meldung, sollte irgendwo eine Datei erstellt worden sein.