"Operator not applicable to this operand type"

[Nils_13]

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;