Mega Code Archive
Check, if a filename statement is masked
<![CDATA[
Title: 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;
]]>