EDIT Inhalte in Datei abspeichern und wieder laden

[little_budda]

Hallo Andi44,

du kannst die Felder in eine Ini Speichern.
Dann sparst du dir auch den Weg über den Auswahldialog und du kannst eigene Profilnamen vergeben.

Delphi-Quellcode:

uses ... IniFiles ...

...


procedure SaveEdits;
var resultIniFilePfad : string;
    resultini : tinifile;
    startpfad  : string;
begin
  // Vorgabewerte sichern
  getdir(0, startpfad);                            // Eigenen Startpfad einlesen
  if (startpfad[length(startpfad)] <> '\')
    then startpfad := startpfad + '\';             // Pfad ggf. korrigieren
  resultIniFilePfad := frm_main.startpfad + '\base.ini';  // Result Default Values
  if (fileexists(resultIniFilePfad) = True) then         // Wenn das INI File vorhanden ist ...
    begin
      resultini := tinifile.Create(resultIniFilePfad);
        with resultini do
          begin
            writeString('DefaultValues_1', 'Name', ed_0.text);
            writeString('DefaultValues_1', 'drehzahl', ed_1.text);
            writeString('DefaultValues_1', 'untersetzung', ed_2.text);
            writeString('DefaultValues_1', 'steigung', ed_3.text);
          end;
        resultini.free;
    end;

end;

Gruß Holger.
[edit]code[/edit]