BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  Error with TFieldDataLink: EStackoverflow          BorlandTalk.com Forum Index -> Delphi VCL Components Writing View previous topic :: View next topic   Author Message Renato A. Martins Guest Posted: Tue Oct 07, 2003 11:59 am    Post subject: Error with TFieldDataLink: EStackoverflow Hi, I am with a problem, when i insert a new record in the dataset, he return a error menssage in procedure: procedure TMySqlCheckBox.OnDataChange(Sender: TObject); begin if FDataLink.Field.IsNull then checked:=false else checked:=true; end; the procedure run normaly, but when i insert a new record, he return the menssage "Stack overflow". Back to top Robert Cerny Guest Posted: Tue Oct 07, 2003 11:27 pm    Post subject: Re: Error with TFieldDataLink: EStackoverflow Setting Checked property somehow re-triggers OnDataChange. -- Robert Cerny DelphiShaman "Renato A. Martins" <renato (AT) inoutnet (DOT) com.br> wrote Quote: Hi, I am with a problem, when i insert a new record in the dataset, he return a error menssage in procedure: procedure TMySqlCheckBox.OnDataChange(Sender: TObject); begin if FDataLink.Field.IsNull then checked:=false else checked:=true; end; the procedure run normaly, but when i insert a new record, he return the menssage "Stack overflow". Back to top Renato A. Martins Guest Posted: Mon Oct 13, 2003 2:44 pm    Post subject: Re: Error with TFieldDataLink: EStackoverflow But this component is have the ancestor Tcheckbox and not TDBcheckbox. The event OnDataChange is create for me. look the resumed code: type TMySqlCheckBox = class(TCheckBox) constructor TMySqlCheckBox.Create(AOwner: TComponent); begin inherited Create(AOwner); FDataLink := TFieldDataLink.Create; FDataLink.OnDataChange := OnDataChange; end; procedure TMySqlCheckBox.OnDataChange(Sender: TObject); begin if FDataLink.Field.IsNull then checked:=false else checked:=true; end; procedure TMySqlCheckBox.Click; begin if (datasource.dataset.state=dsinsert) or (datasource.dataset.state=dsedit) then begin if datasource.dataset.fieldbyname(datafield).asstring='X' then datasource.dataset.fieldbyname(datafield).asstring:='' else datasource.dataset.fieldbyname(datafield).asstring:='X'; end else begin if datasource.dataset.fieldbyname(datafield).asstring='X' then checked:=true else checked:=false; end; end; ----- Original Message ----- From: "Robert Cerny" <robert.qwe.cerny (AT) neosys (DOT) xrs.qwe.si> Newsgroups: borland.public.delphi.vcl.components.writing Sent: Tuesday, October 07, 2003 8:27 PM Subject: Re: Error with TFieldDataLink: EStackoverflow Quote: Setting Checked property somehow re-triggers OnDataChange. -- Robert Cerny DelphiShaman "Renato A. Martins" <renato (AT) inoutnet (DOT) com.br> wrote in message news:3f82aa6a (AT) newsgroups (DOT) borland.com... Back to top Robert Cerny Guest Posted: Tue Oct 14, 2003 12:53 pm    Post subject: Re: Error with TFieldDataLink: EStackoverflow If you want to reinvent the wheel, do it properly. Also: ..asstring:='' sets is to empty string, while OnDataChange checks for ..IsNull. -- Robert Cerny DelphiShaman "Renato A. Martins" <renato (AT) inoutnet (DOT) com.br> wrote Quote: But this component is have the ancestor Tcheckbox and not TDBcheckbox. The event OnDataChange is create for me. look the resumed code: type TMySqlCheckBox = class(TCheckBox) constructor TMySqlCheckBox.Create(AOwner: TComponent); begin inherited Create(AOwner); FDataLink := TFieldDataLink.Create; FDataLink.OnDataChange := OnDataChange; end; procedure TMySqlCheckBox.OnDataChange(Sender: TObject); begin if FDataLink.Field.IsNull then checked:=false else checked:=true; end; procedure TMySqlCheckBox.Click; begin if (datasource.dataset.state=dsinsert) or (datasource.dataset.state=dsedit) then begin if datasource.dataset.fieldbyname(datafield).asstring='X' then datasource.dataset.fieldbyname(datafield).asstring:='' else datasource.dataset.fieldbyname(datafield).asstring:='X'; end else begin if datasource.dataset.fieldbyname(datafield).asstring='X' then checked:=true else checked:=false; end; end; Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi VCL Components Writing All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.