FieldMaskToEditMask()

FieldMaskToEditMask() – Konvertieren einer Eingabemaske in eine PictureMask

Diese Funktion erzeugt aus einer Eingabe-Maske, welche z.B. mit MPicture() erzeugt werden kann,
eine PictureMask für alle gängigen be-Controls

Parameter	Beschreibung
cText:C	Zeichenkette der zu konvertierenden Eingabemaske
bIncludeMinus:L	Kennzeichen, ob Minus enthalten sein darf default = true

Rückgabewert

Alphanumerisch - PictureMaske

Beispiel

CODE


//##############################################################################
//##############################################################################
// Beschreibung:
//##############################################################################
//##############################################################################

|
   oForm, edt_ExamplePictureMask, lbl_ExamplePictureMask
|

//##############################################################################
//##############################################################################
// Konstanten
//##############################################################################
//##############################################################################

//##############################################################################
//##############################################################################
// Funktionen
//##############################################################################
//##############################################################################

function CreateForm()
   oForm                  := CreateObject('TFormEx',  'ExampleForm'),
   lbl_ExamplePictureMask := CreateObject('TBeLabel', 'ExampleLabel',  oForm, oForm),
   edt_ExamplePictureMask := CreateObject('TBeEdit',  'ExampleEdit', oForm, oForm),

   oForm.ClientWidth  := 250,
   oForm.ClientHeight := 50,
   oForm.Font.Name    := 'Segoe UI',

   lbl_ExamplePictureMask.Caption := 'Eingabe Maske testen',
   lbl_ExamplePictureMask.Top     := 10,
   lbl_ExamplePictureMask.Left    := 10,

   edt_ExamplePictureMask.Width := 100,
   edt_ExamplePictureMask.Top   := 7,
   edt_ExamplePictureMask.Left  := 125,
end,

function InitPictureMask()
| nLen, nDec, cText1, lWithMinus, cText2 |

   nLen                                        := 10,
   nDec                                        := 3,
   cText1                                      := MPicture(nLen, nDec),
   edt_ExamplePictureMask.Text                 := '',
   lWithMinus                                  := false,
   cText2                                      := FieldMaskToEditMask(cText1, lWithMinus),
   edt_ExamplePictureMask.PictureMaskFromField := false,
   edt_ExamplePictureMask.Picture.PictureMask  := cText2,
end,

//##############################################################################
//##############################################################################
// Hauptprogramm
//##############################################################################
//##############################################################################

startseq
   CreateForm(),
   startseq
      InitPictureMask(),
      ShowModal(oForm),
   always
      DestroyObject(oForm),
   stopseq,
onerror
   MessageDlg('Fehler im Programm ' + ProgName() + crlf +
              GetErrorText() + crlf + crlf +
              DebugArr(GetErrorStack(true)), mtError),
stopseq,