Hallo,
ich habe folgendes Problem. Ich setzte bei ein paar Feldern manchmal EditMask (im Feld des TTable). Es können aber schon Werte in dem Feld stehen die der Maske nicht entsprechen.
Jetzt möchte ich den alten Wert wenn er der Maske nicht entspricht löschen. MatchesMask funktioniert wohl leider nur für Dateinamen.
Hier ein kleines aus dem Code der leider nicht funktioniert wie gewollt:
Code:
data.TAukopfAUKVERSNR.EditMask:='000/00/000000000;1;_';
data.TAukopfAUKABSCHADENNR.EditMask:='000-00-00000000-0;1;_';
data.TAukopfAukABSZEIT.EditMask:='00.00.0000';
if data.TAukopf.State in [dsedit,dsinsert] then
begin
if not MatchesMask(data.TAukopfAUKVERSNR.AsString,'000/00/000000000;1;_') then
data.TAukopfAUKVERSNR.Value:='';
if not MatchesMask(data.TAukopfAUKABSCHADENNR.AsString,'000-00-00000000-0;1;_') then
data.TAukopfAUKABSCHADENNR.Value:='';
if not MatchesMask(data.TAukopfAukABSZEIT.AsString,'00.00.0000') then
data.TAukopfAukABSZEIT.Value:='';
end;