examples: add masked dbedit linked to a string field

git-svn-id: trunk@49152 -

examples/dbeditmask/Unit1.lfm

@@ -109,6 +109,27 @@ object Form1: TForm1
     Caption = 'AInt Field'
     ParentColor = False
   end
+  object DBEdit1: TDBEdit
+    Left = 271
+    Height = 21
+    Top = 80
+    Width = 193
+    CustomEditMask = True
+    DataField = 'ASTR'
+    DataSource = DataSource1
+    CharCase = ecNormal
+    EditMask = '(99) 9999.9999;1;_'
+    MaxLength = 14
+    TabOrder = 5
+  end
+  object Label2: TLabel
+    Left = 270
+    Height = 13
+    Top = 64
+    Width = 85
+    Caption = 'AStr Field (Phone)'
+    ParentColor = False
+  end
   object DataSource1: TDataSource
     DataSet = Dbf1
     left = 400

examples/dbeditmask/Unit1.pas

@@ -14,11 +14,13 @@ type
   { TForm1 }
 
   TForm1 = class(TForm)
+    DBEdit1: TDBEdit;
     IntEdit: TDBEdit;
     Dbf1ADATE: TDateField;
     Dbf1AINT: TLargeintField;
     Dbf1ASTR: TStringField;
     Label1: TLabel;
+    Label2: TLabel;
     ShowLongDateCheckBox: TCheckBox;
     DataSource1: TDataSource;
     ClientDataSet1ADate: TDateField;