INI Dateien auslesen

[Christian Seehase]

Moin Mario,

schau Dir doch mal

1. den letzten Satz meines Postings und
2. die Beschreibung von paramstr(0) in der Hilfe

an. ;-)

[nailor]

Delphi-Quellcode:

ExtractFilePath(Application.ExeName);

dürfte den Ordner mit der Exe drin sein.

[Christian Seehase]

Moin Nailor,

paramstr(0) gibt das gleiche zurück wie Application.Exename, nur hast Du in Konsolenprogrammen den Vorteil, dass Du nicht die Unit Forms einbinden musst.
Ausserdem schreibt es sich kürzer ;-)

[Daniel B]

Zitat:

Zitat von Nailor

Delphi-Quellcode:

ExtractFilePath(Application.ExeName);

dürfte den Ordner mit der Exe drin sein.

Das geht auch mit:

Delphi-Quellcode:

ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));

Nur das man so auch gleich den Namen dex exe hat und somit nur noch die Erweiterung .ini angeben muss. Die ini hat dann den Namen der exe.

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Daniel,

nur wäre es eventuell praktischer der INI einen aussagekräftigen Namen zu geben.
Zum einen ist es dann leichter sie ihrer Funktion zuzuordnen, zum anderen:

Was machst Du, wenn Du mehrere Ini's brauchst?

[Daniel B]

Moin Christian,

Zitat:

Zitat von Christian Seehase

Was machst Du, wenn Du mehrere Ini's brauchst?

Guter einwand. ;)
Hast recht, aber bis jetzt bin ich noch mit einer ausgekommen. Es gibt ja auch noch TBigIniFile. Somit kann man da auch noch genug reinpacken. ;)
Aber im prinzip hast Du recht.

Grüsse, Daniel :hi:

[Christian Seehase]

Moin Daniel,

es geht mir auch nicht um die 64KB Grenze, sondern um die sinnvolle Verteilung der Daten.

[Pseudemys Nelsoni]

hab das nun folgendermaßen:

Delphi-Quellcode:

procedure TForm3.FormActivate(Sender: TObject);
var settings: TIniFile;
begin
  settings := TIniFile.Create(ExtractFilePath(paramstr(0))+'settings.ini');
  Try
    edit1.Text := settings.ReadString('Nick', 'nickname', '');
  finally
    FreeAndNil(settings);
  end;
end;

funzt aber nicht, Inkompatible Typen TiniFIle und String

ist was falsch? (würd mich bei mir nicht wundern :D)

grus mario ;)

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var settings: TIniFile;
begin
  settings := TIniFile.Create(ExtractFilePath(paramstr(0))+'settings.ini');
  Try
    edit1.Text := settings.ReadString('Nick', 'nickname', '');
  finally
    FreeAndNil(settings);
  end;
end;

Läßt sich ohne Fehler kompilieren. Geh erst mal schlafen.

[Pseudemys Nelsoni]

ja jetzt bei mir auch hatte 2 zeilen vertauscht, aber das editfeld bleibt leer

btw: hab von 2:30 bis 6 schon geschlafen


gruss mario ;)