I need to check if a string contains following characters/tokens (between the single qoutes).
',':','|' (these are the characters/tokens that aren't allowed in filenames).
For entering individual characters in the editfield I use the function below in the OnKeyPress-event. But when a user paste a string into the editfield, this event isn't fired. Therefor I want to check the inserted string afterwards.
Can anybody supply me with a fast function that will do the trick? Or maybe a better solution is possible?
function GeldigTekenBestandsnaam(var Key : Char) : Boolean;
Result := True;
If (key in ['*','"','/','\','<','>','?',':','|']) then
Result := False;