Einstellungen speichern/laden

[Knotti2005]

Weil ich auf dem System keine Rückstände hinterlassen will

Komisch speichern geht nur laden nicht...

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var d :string;
begin
    ini := Tinifile.Create(ExtractFilePath(Application.Exename)+'Einstellungen.dat');
      ini.ReadString('tapi','aktiviert',d);

   if d = 'yes' then form1.CheckBox2.Checked:=true;
   if d = 'false' then form1.CheckBox2.Checked:=false;
       ini.Free;

[marabu]

Die Methode ReadString() ist eine Funktion - was machst du denn mit dem Rückgabewert?

marabu

[Knotti2005]

naja die Variable d auslesen oder????

[Knotti2005]

Was mach ich falsch? Helft mir!!!

Wenn ich es so probiere stürzt die Anwendung komplett ab..

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var a :string;
begin
    ini := Tinifile.Create(ExtractFilePath(Application.Exename)+'Einstellungen.ini');
      a := ini.ReadString('tapi','aktiviert','');
    ini.Free;

   if a = 'yes' then form1.CheckBox2.Enabled:=true
   else
   form1.CheckBox2.Enabled:=falsE;
   end;
end.

[PierreB]

Zitat von zer00:

Wieso Speicherst Du die Einstellungen nicht in der Registry, ini-Files sind IMHO so was von lästig für die Anwender.

Und ich als Anwender möchte nicht das mein System mit Daten von einem Programm zugemüllt wird, dass ich vielleicht 2mal im Jahr benutze.

[Luckie]

Die Diskussion pro - contra Registry oder Dateien gehört nicht hier her. Er hat sich nun mal für Dateien entschieden. Und jeden Recht machen kann man es eben nicht.

[NormanNG]

Hi,

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var INI:tIniFile;
begin
  Ini := Tinifile.Create(ExtractFilePath(Application.Exename)+'Einstellungen.ini');
  try
    Form1.CheckBox2.Enabled := (ini.ReadString('tapi','aktiviert','yes')='yes');       
  finally
    Ini.Free;
  end; 
end.

Aber Vorsicht: Form1 muss zu diesem Zeitpunkt bereits vorhanden sein! Besser ist es sicher, die Einstellungen unabhaengig vom Dialog einzulesen. Vgl. Antwort von marabu!

[zer00]

Zitat von Luckie:

Die Diskussion pro - contra Registry oder Dateien gehört nicht hier her. Er hat sich nun mal für Dateien entschieden. Und jeden Recht machen kann man es eben nicht.

Ok, akzeptiert.

grz zer00

[pacman1986]

Was für ein Fehler kommt den ???

[Waldteufel]

Hi.

Zitat von Knotti2005:

Komisch speichern geht nur laden nicht...

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var d :string;
begin
  ini := Tinifile.Create(ExtractFilePath(Application.Exename) + 'Einstellungen.dat');
  ini.ReadString('tapi', 'aktiviert', d);

  if d = 'yes' then form1.CheckBox2.Checked := true;
  if d = 'false' then form1.CheckBox2.Checked := false;
    ini.Free;

Wie Marabu schon sagte... ReadString ist eine Funktion .

Code:

-> Wert := ReadString(Abschnitt, Schlüssel, [size=18][b]Standardwert[/b][/size]) <-

Du nimmst also d als Standardwert und verwirfst das Ergebnis

PS: Gute Nacht! *ratzepüh*