Da Probiere ich ewig herum und stelle dann fest, dass die Lösung so naheliegend wie es überhaupt geht ist:
hier die Funktion:
Delphi-Quellcode:
function TForm1.CheckFile(FName: String): Boolean;
var
TempList: TStringList;
PNr, XNr: Integer;
PIni: TInifile;
i: Integer;
fileerror: Boolean;
xstr: String;
begin
Result:=false;
if ExtractFileExt(FName) = '.spl' then begin //Wenn Playliste
try
TempList := TStringList.Create;
TempList.LoadFromFile(OpenDialog.FileName);
//Blablabla [...] (der ganze Rest)
end;
Wer hinschaut (
) sieht dass Die Liste mit dem FileName des OpenDialog geladen wird - und nicht mit FName. FileName ist beim Programmstart leer. Das war alles. Entschuldigung für die unnötige Frage und danke für den Hinweis, sonst hätte ich den Fehler wahrscheinlich nicht gefunden!.