Speichern Procedure funzt sporadisch :(

[Waldteufel]

Hi.

Die Value-List wird beim Laden automatisch gelöscht. Das musst du nicht selber machen. Ich schätze, der Fehler wird sogar in VLEClear verursacht...

Delphi-Quellcode:

procedure TForm_Settings.VLELoad;
begin
  VLEClear; // <-- unnötig!
  VLE_Caps_Apps.Strings.LoadFromFile(cCAP_APP);
  ShowMessage(VLE_Caps_Apps.Strings.Text);
end;

procedure TForm_Settings.VLESave;
begin
  VLE_Caps_Apps.Strings.SaveToFile(cCAP_APP);
  ShowMessage(VLE_Caps_Apps.Strings.Text);
end;

[glkgereon]

Nein, ändert nichts...

[marabu]

Hallo Gereon,

das ist dir schon klar, das der Fehler in dem Code steckt, den wir nicht sehen können? Das Laden und Speichern über die VLE-Strings funktioniert ja.

marabu

[glkgereon]

irgendwie hat er wirklich ne andere Datei genommen.

so funkt es:

Delphi-Quellcode:

public
 DatPreFix: String;

//FormCreate
  DatPreFix:=IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));

//Load (leicht modifiziert ;-) )
procedure TForm_Settings.VLELoad;
//VLE Laden
begin
  try
    VLEClear;
    VLE_Caps_Apps.Strings.LoadFromFile(Form_Main.DatPrefix+cCAP_APP);
  except
    ShowMessage('Datei '+cCAP_APP+' wurde nicht gefunden.');
  end;
end;