Konfiguration abspeichern

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