pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Patch to prevent TDBEdit exception

Browse Source 
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
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
examples/germesorders/uorder.pas
View File

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