Patch to prevent TDBEdit exception

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@648 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
MageSlayer 2009-01-01 21:41:48 +00:00
parent cc8c03e635
commit d84334d764

View File

@ -121,6 +121,9 @@ begin
dsOrder.TableName:='Orders';
dsOrder.PrimaryKey:='ID';
//workaround to prevent mask exception :(
DBEdit1.EditMask:='';
BaseConnect.ConnectToBase(dsOrgs);
dsOrgs.SQL:='select ID, Name from Orgs order by Name';
dsOrgs.Open;