Herr im Himmel.
Nehmt doch endlich mal das
TIniFiel.Create aus dem
try-Block raus!
Lest ihr euch denn nicht die Warnungen durch, die der Kompiler ausgibt?
Wenn ich das so mache wie ihr, steht da immer:
Zitat:
[Warnung] Unit1.pas(35): Variable 'ini' wurde wahrscheinlich nicht Initialisiert
Das habe ich schon öfters bemängeld und korrigiert.
Hier noch mal wie es richtig geht:
Code:
[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]var[/b]
ini: TiniFile;
[b]begin[/b]
ini := Tinifile.Create(ChangeFileExt(ParamStr(0), '.ini'));
[b]try[/b]
ini.WriteString('Programm', 'Pfad', ParamStr(0));
[b]finally[/b]
ini.Free;
[b]end[/b];
[b]end[/b];