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 |
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,