Ini Tutorial © Toenn

[Toenn]

Hi,
dies ist mein erstes Tutorial und ich hoffe, dass es leicht verständlich ist.

1. Was sind INI's
2. Welche Vorteile haben INI's
3. Wie kann ich Einstellungen in INI's speichern
4. Wie kann ich Einstellungen aus INI's lesen

_______________________

Was sind INI's ?
INI's sind Dateien, um viele Einstellungen in einer Datei zu speichern.

Welche Vorteile haben INI's ?
-Können viele Einstellungen speichern
-Sind übersichtlich
-Viel mehr

Welche Nachteile haben INI's ?
-Haben laut S2B nur eine begrenzte Größe
-Können bei sehr vielen Einstellungen langsam werden

Wie kann ich Einstellungen in INI's speichern?
Das kommt ganz darauf an, was man speichern will.
Wenn wir die Position Left und Top von einer Form speichern wollen, müssen wir den Befehl WriteInteger verwenden.
Das geht so (In die Uses-Klausel muss IniFiles eingefügt werden):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 begin
  //TIniFile wird geladen
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) +  'data.ini') do
   try
    //Top wird geschrieben, Left wird geschrieben
    WriteInteger('Position', 'TOP', Form1.Top);
    WriteInteger('Position', 'Left', Form1.Left);
   finally
    //Ini wird freigegeben
    Free;
  end;
end;

Ein Edit kann man so schreiben:
WriteString('Text', 'Edit1', Edit1.Text); Wie kann ich das ganze jetzt wieder laden?
Das geht fast genauso:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
 begin
  //TIniFile wird geladen
  with TIniFile.Create(ExtractFilePath(ParamStr(0)) +  'data.ini') do
   try
    //Top wird geladen, Left wird geladen
    Form1.Top := ReadInteger('Position', 'TOP', 0);
    Form1.Left := ReadInteger('Position', 'Left', 0);
   finally
    //Ini wird freigegeben
    Free;
  end;
end;

Das Editfeld laden geht so:
Edit1.Text := ReadString('Text', 'Edit1', '');
Das wars für heute.
Morgen oder Übermorgen gibts die Fortsetzung wie man z.B. speichern kann ob die Checkbox gecheckt ist.