Hi,
irgendwie bekomme ich bei einer Endungsüberprüfung vor dem Speichern einer Playlist den Fehler "Operator not applicable to this operand type"
Hier der Code (in einem anderen Programm läuft der Code):
Delphi-Quellcode:
procedure TfrmMain.xiSaveClick(Sender: TObject);
begin
if saveP.Execute then
begin
if (ExtractFileExt(saveP.FileName) = '.asx') or if (ExtractFileExt(saveP.FileName) = '.m3u') then
begin
if saveP.FilterIndex = 1 then
begin
SaveASX(saveP.FileName);
end;
if saveP.FilterIndex = 2 then
begin
SaveM3U(saveP.FileName);
end;
end else
begin
if saveP.FilterIndex = 1 then
begin
saveP.FileName := saveP.FileName + '.asx';
SaveASX(saveP.FileName);
end;
if saveP.FilterIndex = 2 then
begin
saveP.FileName := saveP.FileName + '.m3u';
SaveM3U(saveP.FileName);
end;
end; // Diese Zeile wird bei F9 rot markiert
end;
end;