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

Author: Loïs Bégué
Homepage: http://www.begue.de

Category: Files

{++++++++++++++++++++++ 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), '*') <> nilor
    
(StrScan(PChar(aFileName), '?') <> nil);

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base