...check, if a filename statement is masked?

{++++++++++++++++++++++ Deutsch ++++++++++++++++++++++++++++++++++++++++++++
Identifizieren einer "maskierten" Angabe vom Typ Filename.
Kann u.a. beim Anlegen einer vom User festgelegte neuen Datei nützlich sein:
=> wenn maskiert, dann nicht gültig!

+++++++++++++++++++++++ English ++++++++++++++++++++++++++++++++++++++++++++
Identify a masked file name.
You can for example check for bad user input, if the file is to be created
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

function IsMaskedFileName(aFileName: string): Boolean;
begin
  // First method
  Result := (StrScan(PChar(aFileName), '*') <> nil) or
    (StrScan(PChar(aFileName), '?') <> nil);

  // Second way
  Result := ((LastDelimiter('*?', aFileName) <> 0);
end;

printed from
www.swissdelphicenter.ch
developers knowledge base