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]

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 von Nailor:

ExtractFilePath(Application.ExeName); dürfte den Ordner mit der Exe drin sein.

Das geht auch mit: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

[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 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

[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 )

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