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