Konfiguration abspeichern

[N30N]

Zitat:

Wie sieht denn der Aufruf zum Starten aus und was steht im Memo?

Delphi-Quellcode:

procedure TForm1.LadenClick(Sender: TObject);
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;

Ausgabe in Memo1:

Zitat:

\\Server\technik\Holger\Mercedes.mpg
\\Server\technik\Holger\Mercedes.mpg
\\Server\technik\Holger\Mercedes.mpg
\\Server\technik\Holger\Mercedes.mpg
\\Server\technik\Holger\Mercedes.mpg