Código Delphi [-] function GradeWidthDir(const Dir: Char): string; begin Result := '!90°90''90" ' + Dir + ';1;_'; end;
function GradeWidthDir(const Dir: Char): string; begin Result := '!90°90''90" ' + Dir + ';1;_'; end;
Código Delphi [-] MaskEdit1.Text := ''; MaskEdit1.EditMask := GradeWidthDir('E');
MaskEdit1.Text := ''; MaskEdit1.EditMask := GradeWidthDir('E');