1. Du brauchst keine Ini anlegen und auch nicht prüfen ob die Ini da ist. Wenn du z.B. das eingibst:
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:
| uses ..., IniFiles;
procedure TForm1.FormActivate(Sender: TObject); var DelphiIni: TIniFile; begin DelphiIni := TIniFile.Create('C:\Delphi32.Ini'); with DelphiIni do begin with Canvas do begin TextOut(10, 50, 'Editor-Schriftart = ' + ReadString('Editor', 'FontName', 'ERROR')); end; end; DelphiIni.Free; end; |
und es gibt die Ini nicht, dann wird die Ini automatisch erstellt. Falls es den Value (Schlüssel) nicht gibt, dann wird der Ersatztext genommen (hier 'ERROR'). Du kannst aber auch einen leeren String nehmen (z.B. ''). In diesem Fall ist ist das Ergebnis leer.
Weiter.
2. Wenn du schreiben willst, dann brauchst du auch keine Ini Datei anlegen. Die Ini wird automatisch beim
DelphiIni := TIniFile.Create('C:\Delphi32.Ini');
angelegt.