Ausgewählten ( Combobox ) Eintrag als Standart speichern u..

[Christian Seehase]

Moin Timm,

dazu ein kleiner Exkurs in Sachen "Wo finde ich was, und wie"

Komponenten, Funktionen, Konstanten usw. sind, meist sinnvoll, in einzelnen Units zusammengefasst.
Nicht alle dieser Units werden automatisch unter uses eingebunden (bei einem leeren Formular wird z.B. die Unit StdCtrls automatisch eingebunden, wenn Du z.B. einen Button auf das Formular packst und kompilierst oder speicherst).

Bei allen Kompos, die nicht auf das Formular gelegt werden (z.B. TIniFile), muss man sich ggf. selber darum kümmern, dass die passende Unit zur Verfügung steht.
Die zu finden ist meist auch nicht schwierig, denn in der Hilfe steht bei jeder Kompo oder Funktion, in welcher Unit sie deklariert wird.

In Deinem Falle hiesse das:
Mit dem Cursor auf TIniFile und F1 drücken.

Die Hilfe zeigt Dir dann, dass TIniFile in der Unit IniFiles steht.

Bei den API Funktionen heisst die Unit meist so, wie die Headerdatei (ohne .h) in der die Funktion deklariert wurde)

[TimmA]

Zitat:

Zitat von Luckie

Du hast auch die Unit IniFiles eingebunden? :roll:

Nein konnte ich ja nicht wissen :) aber jetzt geht es ! Viele Dank !!!

:dancer: :dancer2:


:D

[TimmA]

hallo,

einmal muss ich noch nerven :oops:

Wie kann ich nun den Wert aus der ini auslesen ? über die Suchfunktion finde ich leider keine Beispiele ;(

[r_kerber]

Dann schau Dir mal in der OH für TIniFile die Methoden an, die mit Read beginnen.

[TimmA]

Zitat:

Zitat von r_kerber

Dann schau Dir mal in der OH für TIniFile die Methoden an, die mit Read beginnen.

"OH" ?

Sorry kann ich nichts mit anfangen :oops:

[r_kerber]

OH = Online-Hilfe

[Tpercon]

Und da steht dann irgendwo ReadString bzw. ReadInteger! :wink:

[Luckie]

Online Help = Online Hilfe. Da wo du landest, wenn du in der Delphi IDE F1 drückst.

[TimmA]

Hallo,

die Delphi-Hilfe bringt mich nicht weiter :( .

Hat keiner einen kleinen Codeschnipsel für mich ? :roll:

[r_kerber]

Zitat:

Zitat von TimmA

die Delphi-Hilfe bringt mich nicht weiter

Das verstehe ich nicht. Hier Code-Schnipsel, die ich direkt aus der OH kopiert habe. Du mußt den nur auf Deine Belange anpassen:

Delphi-Quellcode:

var

  GameIni: TIniFile;
begin
  Gameini := TIniFile.Create('fungame.ini');
  with GameIni do
  begin
    WriteBool('Options', 'Sound', True);
    WriteInteger('Options', 'Level', 3);
    WriteBool('Configuration', 'ShowToolBar', True);
    Free;
  end;

end;

bzw.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
  MyIniFile: TIniFile;
  begin
  MyIniFile := TIniFile.Create('myapp.ini');
  Memo1.Clear;
  MyIniFile.ReadSectionValues('Transfer', Memo1.Lines);
  if Memo1.Lines.Values['Title1'] <> 'Picture Painter' then
    MyIniFile.WriteString('Transfer', 'Title1', 'Picture Painter');
  MyIniFile.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  MyIniFile: TIniFile;
  begin

  MyIniFile := TIniFile.Create('myapp.ini');

  { wenn der Eintrag vorher nicht da war, wird er jetzt gelöscht }
  if Memo1.Lines.Values['Title1'] = '' then
    MyIniFile.DeleteKey('Transfer', 'Title1')
  { andernfalls alten Wert wiederherstellen }
  else
    MyIniFile.WriteString('Transfer', 'Title1', Memo1.Lines.Values['Title1']);
  MyIniFile.Free;
end;