Problemm bei .ini datei [E2010]

[Thendo]

Zitat:

Zitat von taaktaak

Du holst den Inhalt eines Edits und schreibst diesen Text in eine INI. Dann holst du den Wert aus der INI und verwendest diesen Text um die Beschriftung der Checkbox zu ändern. Wo liegt denn da der tiefere Sinn????

Es muss nicht alles einen Sinn ergeben ^^.

Zitat:

Zitat von DeddyH

Du verwendest einmal einen absoluten und einmal einen relativen Pfad. Außerdem wird im Button2Click die Ini nicht wieder freigegeben.

:wiejetzt:

Könntest du das bitte für mich erklären^^?

[Benedikt]

Dein Code:

Delphi-Quellcode:

  
//Schreiben
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'Launcher.ini'); 

//Lesen
ini:=TIniFile.Create('Launcher.ini');

Machs beide male so wie beim Schreiben...

[Crazy Ivan]

Zitat:

Zitat von Thendo

:wiejetzt:

Könntest du das bitte für mich erklären^^?

im button2click verwendest du ExtractFilePath + ... und im button4click nicht.

außerdem fehlt im button2click das ini.free




edit: mhm, zu spät (roter kasten?)

[Thendo]

aahhhh danke habs jetzt verstanden =)


Werd den Quellcode ma posten wenn ma einer das gleiche Problemm hat ^^:

Delphi-Quellcode:

// -----------------------------------------------------------------------------
//  Button zum speichern in die .ini datei
// -----------------------------------------------------------------------------

procedure TForm4.Button2Click(Sender: TObject);
var ini: TIniFile;
    adresse : string;
    ordner : string;
begin
ordner := Edit2.text;   // Pfad zum Ordner wo die WoW.exe liegt!
adresse := Edit1.text;  // Adresse des Servers der in Realmlist geändert werden soll

  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'Launcher.ini');

if Checkbox1.Checked then
   begin
     ini.WriteString('CheckboxInhalt','Checkbox1.Text ',  ordner);
     ini.free;
   end;
end;

// ---------------------------------------------------------------------------//
// Button zum laden der Einstellungen der Checkboxen aus der .ini             //
// ---------------------------------------------------------------------------//

procedure TForm4.Button4Click(Sender: TObject);
var ini: TIniFile;
begin
  ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
    'Launcher.ini');
  try
    Checkbox1.Caption := ini.ReadString('CheckboxInhalt','Checkbox1.Text ', ordner);
  finally
    ini.free;
  end;
end;
// ---------------------------------------------------------------------------//
// ---------------------------------------------------------------------------//
// ---------------------------------------------------------------------------//

[Benedikt]

Noch eine Anmerkung:
1. wird deine Ini beim Speichern nur freigegeben, wenn die CheckBox gecheckt ist.
2. fehlt dir da der Ressourcenschutzblock, wie du ihn beim Lesen ja gemacht hast... (try..finally..end)

[DeddyH]

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var ini: TIniFile;
begin
  if Checkbox1.Checked then
   begin
     ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
       'Launcher.ini');
     try 
       ini.WriteString('CheckboxInhalt','Checkbox1.Text ',Edit2.text);
     finally
       ini.free;
     end;
   end;
end;

Wozu erst alles ermitteln und die Ini anlegen, wenn Du dann ggf. doch nicht reinschreibst?

[edit] Code gekürzt [/edit]

[Thendo]

Danke für die Tipps bzw Quellcode.

Hab`s verändert.