{++++++++++++++++++++++ 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;
|
