SaveDialog und unzulässiger Dateiname

[DeddyH]

Naja, soviel Arbeit ist das aber auch nicht. Eine schnell zusammengeproggte Version:

Delphi-Quellcode:

function ValidFileName(const sFileName: TFileName): Boolean;
//ohne Anspruch auf Vollzähligkeit, habe auf die Schnelle keine Liste gefunden
const BadChars: set of char = ['*','?', //Wildcards
                               '<','>', //Dateiumleitung
                               '|',     //Pipezeichen
                               '/','\'  //PathDelimiter
                               ];
var i: integer;
begin
  Result := Length(trim(sFileName)) > 0;
  if Result then
    for i := 1 to Length(sFileName) do
      if sFileName[i] in BadChars then
        begin
          Result := false;
          break;
        end;
end;