Zitat von
grenzgaenger:
dir die funktion selbst zu schreiben
Oder man kennt sich einfach mit der
VCL aus
Delphi-Quellcode:
uses Masks;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
M: TMask;
begin
M := TMask.Create('a?b');
try
if M.Matches('a'#0'b') then
ShowMessage('ok')
else
ShowMessage('nope');
finally
M.Free;
end;
end;
...
...