Es wird nur in eine datei geschrieben

[Sharky]

Zitat:

Zitat von marabu

...nur als Denkanstoß:

Noch eine kleine Ergänzung zu dem Code von marabu ;-)
Wann immer man ein Objekt erzeugt sollte man sicherstellen das dieses auch dann wieder freigegenben wird wenn während des Programmablaufes ein Fehler auftritt (Zum Beispiel wei die Datei die geladen werden soll nicht vorhanden ist).

Delphi-Quellcode:

.
.
procedure TForm1.ApplyChanges(fileName: string; changes: TStringList);
begin
  sl := TStringList.Create;
  try // Versuche den nachfolgenden Code auszuführen 
    sl.LoadFromFile(dataDir + 'var' + fileName);
    .
    .
  finally // Auch wenn ein Fehler auftritt führe diesen Code aus
    sl.Free;
  end;
end;

procedure TForm1.btsavedataClick(Sender: TObject);
begin
  changes := TStringlist.Create;
  try
    changes.Values['xrcon_pw1'] := edrcon1.Text;
    .
    .
  finally
    changes.Free;
  end;
end;

end.

Ein freundliches *blubb* von Sharky.