Konfiguration abspeichern

[N30N]

Delphi-Quellcode:

Memo1.Lines.Add(Video1);
Memo1.Lines.Add(Video2);
Memo1.Lines.Add(Video3);
Memo1.Lines.Add(Video4);
Memo1.Lines.Add(Video5);
Memo1.Lines.SaveToFile('Videos.cfg');

Ich versteh die Welt nicht mehr...Warum zur Hölle wird die Datei einfach nicht erstellt?

In der Memo1 Feld gibt es definitiv Zeilen. Wenn ich oben zitierten Code ausführen will, wird einfach nichts abgespeichert. Die Datei wird nicht mal erstellt. Woran liegt das?

[DeddyH]

Bist Du sicher, dass die Datei nicht existiert? Gib doch mal einen kompletten Pfad an.

[Cream]

deddyh: wenn sie existieren würde, würde er ohne nachfrage überschreiben. der tipp mit dem kompletten pfad müsste helfen

[N30N]

Zitat:

deddyh: wenn sie existieren würde, würde er ohne nachfrage überschreiben. der tipp mit dem kompletten pfad müsste helfen

Ich hab den Pfad mal auf c:\Videos.cfg geändert. Trotzdem passiert nichts -.-

[DeddyH]

Unter Vista?

[angos]

Zitat von N30N:

Delphi-Quellcode:

  Memo1.Lines.LoadFromFile('Videos.cfg'); -> Fehler: Konstantenausdruck erwartet
  Video1 := Memo1.Lines.Strings[0];
  Video2 := Memo1.Lines.Strings[1];
  Video3 := Memo1.Lines.Strings[2];
  Video4 := Memo1.Lines.Strings[3];
  Video5 := Memo1.Lines.Strings[4];

Wenn ich es ohne die ' ' bei Videos.cfg versuche, kommt ebenfalls eine Fehlermeldung: Undefinierter Bezeichner: 'Videos'[...]

Genau da ist der Denkfehler Das "FileName" aus dem Beitrag über deinem ist eine Variable vom Typ String. Du musst also den Pfad in '' setzen. Versuch doch mal folgendes:

 Memo1.Lines.LoadFromFile(ExtractFilePath(paramstr(0)) + 'Videos.cfg'); // gibt die datei videos.cfg an, welche im PROGRAMM-PFAD liegt Optional:

Delphi-Quellcode:

 
var
  FileName: String;
begin
  FileName := ExtractFilePath(paramstr(0)) + 'Videos.cfg';
  Memo1.Lines.LoadFromFile(FileName);
end;

Gruß

[DeddyH]

Ich habe nicht umsonst nach Vista gefragt Schau mal hier

[angos]

Ja, wenn es sich um vista handelt hat er ein erweitertes Problem, das ist mir schon bewusst. aber er hat hier etwas Grundsätzliches ebenfalls nicht verstanden (das arbeiten mit Strings), was ich ihm zeigen wollte.

[N30N]

Windows XP, aber ich denke das sollte egal sein.

[DeddyH]

OK, versuchen wir es nochmal:

Delphi-Quellcode:

procedure Speichern;
begin
  Memo1.Lines.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Videos.cfg');
end;

procedure Laden;
begin
  if FileExists(ExtractFilePath(ParamStr(0)) + 'Videos.cfg') then
    begin
      Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Videos.cfg');
      if Memo1.Lines.Count > 4 then
        try
          Video1 := Memo1.Lines.Strings[0];
          Video2 := Memo1.Lines.Strings[1];
          Video3 := Memo1.Lines.Strings[2];
          Video4 := Memo1.Lines.Strings[3];
          Video5 := Memo1.Lines.Strings[4];
        except
          MessageBox(0,'Fehler beim Laden der Liste','Fehler',MB_OK or MB_ICONERROR);
        end; 
    end;
end;