Hallo,
Ich habe ein Programm geschrieben indem ich inis benutze um einstellungen zu speichern. Nun habe ich mein programm so geschriebn das bei jedem Programmstart in der Prozedur Form1 OnCreate Standardwerte für diese Einstellungen gesetzt werden. Nun ich tue dies damit man beim ersten Programmstart nicht erstaml alles einstellen muss, was ich als eher lästig empfinde. Mein Problem ist aber nun, dass nun auch beim zweiten Programmstart diese Standardeinstellungen gesetzt werden, obwohl man seine persöhnlichen einstellungen schon gesetzt hat. Praktisch werden bei jedem Programmstart die einstellungen resetet.
Mein Ziel ist es nur bei dem ersten Programmstart die Einstellungen zu setzen. Eine Idde habe ich auhc schon, weiß nur net wie ich sie umsetzen soll.
Ich will, dass bevor die Standardeinstellungen in der OnCreate Prozedur gesetzt werden überprüft wird ob eventuell schon eine "settings.ini" vorhanden ist. Wenn ja dann nicht folgende befhele durchführen. Wenn sie nicht vorhandne ist dann folgende befehledurchführen.
Ich hoffe ich habe mein Problem gut genug erklärt und dass ihr mir helfen könnt. (Ich Füge noch im folgenden meine Prozedur ein dmait es für euch besser nachzuvollziehen ist)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
| procedure TForm1.FormCreate(Sender: TObject);
var Ini : TIniFile;
pfad2 : string;
begin
DragAcceptFiles(Form1.Handle, true);
pfad2:=(extractFilepath(paramstr(0)));
Ini:=TIniFile.Create(pfad2 + '\settings.ini');
Ini.WriteInteger('Section' , 'Schluessel1' , 225);
Ini.WriteInteger('Section' , 'Schluessel2' , 136);
Ini.WriteInteger('Section' , 'Schluessel3' , 48);
Ini.WriteInteger('Section' , 'Schluessel4' , 289);
Ini.WriteBool('Section2' , 'Schluessel1' , true);
Ini.WriteInteger('Section3' , 'Schluessel1' , 320);
Ini.WriteInteger('Section3' , 'Schluessel2' , 470);
Ini.WriteInteger('Section3' , 'Schluessel3' , 353);
end; |
Gruß man-u
Moderiert von 
AXMD: Delphi-Tags hinzugefügt.
"FILEEXISTS"