Speichern Procedure funzt sporadisch :(

[glkgereon]

Hi

ich speichere im OnClose meiner Anwendung den Inhalt eines ValueListEditors...
doch die änderungen sind beim nächsten start (ja, ich lade wieder) wieder weg.

irgendwie funzt das speichern nur für die cells in col 0 und und die erste reihe...

hier der Code:

Delphi-Quellcode:

procedure TForm_Settings.VLELoad();
var I: Integer;
    Temp: TStringList;
begin
  //leeren
  VLEClear;
  //Laden
  Temp:=TStringList.Create;
  Temp.LoadFromFile(CAP_APP);
    for i:=0 to (Temp.Count div 2)-1 do
      VLE_Caps_Apps.InsertRow(Temp[i*2],Temp[i*2+1],True);
  Temp.Free;
end;

procedure TForm_Settings.VLESave;
var I: Integer;
    Temp: TStringList;
begin
  Temp:=TStringList.Create;
  Temp.Clear;
  with VLE_Caps_Apps do
    for i:=1 to RowCount-1 do
      begin
      Temp.Add(Cells[0,i]);
      Temp.Add(Cells[1,i]);
      end;
  Temp.SaveToFile(CAP_APP);
  Temp.Free;
end;

[marabu]

Hallo Gereon,

das Laden und Speichern geht so einfacher und weniger fehleranfällig:

Delphi-Quellcode:

VLE.Strings.SaveToFile(CAP_APP);
VLE.Strings.LoadFromFile(CAP_APP);

Grüße vom marabu

[glkgereon]

:(

so einfach?

wieso heisst das net items oder lines? :wall:

[glkgereon]

aha, und die linke spalte?

[pirechner]

in deiner save anweisung steht 1 und 0 anstatt i (zählvariable).

[glkgereon]

nein, 1 und 0 sind die spalten (gibt nur 2)

[glkgereon]

:wall:

in strings is ja beides drin

aber es funzt trotzdem nicht.

Delphi-Quellcode:

procedure TForm_Settings.VLELoad;
begin
  VLEClear;
  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;

wenn ich nun was änder, so is die Showessage richtig. erneut laden, alles ok.
aber programm beenden, neu starten, laden, und es ist falsch!
kennt einer das problem?

[TKC]

köönte es sein das du die Ausgabe Datei erst löschen musst bevor du sie speicherst (wenn schon vorhanden).

[glkgereon]

nope, gerade ausprobiert

kann es sein das der irgendwie unterschiedliche dateien nimmt? (wobei, kann doch eigentlich gar net sein...)

[TKC]

wie ist denn der inhalt der Variablen cCAP_APP zur zeit des Laden/Speicherns ?

[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]

:wall:

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;