// *** Beispiel : Ini Datei schreiben. // unit uWriteInifile; interface uses // Ergänzung um = IniFiles Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IniFiles; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure WriteInifile(filename: String); var // inifile = anzulegende Datei. inifile: TIniFile; begin // Erstellung oder öffnen der Datei ( filename ) inifile := TIniFile.Create(filename); // Benötigte Daten in die Datei test.ini schreiben. with inifile do begin (* Zum testen werden die Formpositionen Links, Oben, Weite und Höhe in die Datei geschrieben. WriteInteger = Writes an integer value to an INI file. procedure WriteInteger(const Section, Ident: String; Value: Longint); virtual; *) // Position Links WriteInteger('SectionHeader', 'Left', Form1.Left); // Position Oben WriteInteger('SectionHeader', 'Top', Form1.Top); // Formweite WriteInteger('SectionHeader', 'Width', Form1.Width); // Formhöhe WriteInteger('SectionHeader', 'Height', Form1.Height); end; // Ende with // Freigabe der Resourcen inifile.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin // *** Prozduraufruf WriteInifile('.\test.ini'); (* Durch die Dateinamenangabe test.ini würde die anzulegende Datei in das Windows Verzeichnis abgelegt werde. Geben Sie einen Punkt vor dem Dateinamen an wird die Datei in das Programmverzeichnis abgelegt. Aufbau der Beispielsektion : [SectionHeader] Left=404 Top=330 Width=216 Height=108 *) end; procedure TForm1.Button2Click(Sender: TObject); begin // Testen ob die Datei vorhanden ist... // fileexists = Tests if a specified file exists. if fileexists('./test.ini') then ShowMessage('Datei vorhanden...') else ShowMessage('Datei nicht vorhanden...'); end; end.