Как сделать нестандартную маску в MaskEdit?

[dolphin705]

Здравствуйте, подскажите как сделать маску вида ____/____/Р______ ? То есть в результате должно вводится 10000000/101010/Р000000 такого рода запись. Но "/" вроде бы зарезервированный символ в этом компоненте. Как быть? Переписывать компонент?

[Stilet]

Как вариант попробуй поставь //

[dolphin705]

Пробовал, не вышло, ставит точки

[Serge_Bliznykov]

а если попробовать вот так: \/ (слеш обратный и сразу за ним слеш прямой) ?

[Аватар]

Не получится, по крайней мере в Д7 - всегда заменяется на DateSeparator. Или так задумано, или глюк
Так получится, но чревато

var lDateSeparator: Char;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lDateSeparator:=DateSeparator;
  DateSeparator:='/';
  MaskEdit1.EditMask:=''; //на тот случай, если в EditMask есть такая же строка
  MaskEdit1.EditMask:='0000/0000/Р000000';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DateSeparator:=lDateSeparator;
end;

[dolphin705]

Аватар, спасибо, помогло, сразу после использования меняю "/" обратно на "." и маска даты восстанавливается