Check out the help for 'EInvalidOp', it talks about sever things possibly causing this including floating-point processor stack overflow problems.
Nahum. > [EMAIL PROTECTED] <mailto:owner-delphi@;delphi.org.nz> > wrote on > > Hi. > > I am getting an EInvalidOp exception in a section of code I have that > has previously worked and I am certain I havent changed anything in > that area for months...this code is now not working and Im at a loss > to explain why... > > basically I am getting the error raised on this line > > s_thedate := format_date_2_mysql(trunc(e_mymean),s_yearname); > > the format_date_2_mysql just takes a float and reformats the value to > a mysql date as follows and s_yearname is a string "2002" > There are two functions that are called repeatedly initially that > calculate e_mymean but the result is 37500.63 > > function format_date_2_mysql(s_val:float;s_year:string): string; var > w_year,w_month,w_day:word; > begin > //format the date to what we want > > decodedate(strtodate(formatdatetime(s_date_format,s_val)),w_ye > ar,w_month,w_d ay); > if s_year = s_empty then > begin > result := inttostr(w_year) + '-' + inttostr(w_month) + '-' + > inttostr(w_day); end > else > begin > result := s_year + '-' + inttostr(w_month) + '-' + > inttostr(w_day); end; > end; > > can anyone please tell me what this error is (I looked at the help > file and it could be one of three things but how can I tell which?) > > also can anyone please suggest a process to follow to sort it out? > > I think it has something to do with the data type I am using > (extended) but on the other hand I cant see this being an issue as > this is the most significant datatype for real anyway... > > Hoping and praying for advice > > Chris Veale > > --- > Outgoing mail is certified Virus Free. > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.408 / Virus Database: 230 - Release Date: 24/10/02 > > > > > ______________________________________________________ > The contents of this e-mail are privileged and/or confidential to the > named recipient and are not to be used by any other person and/or > organisation. If you have received this e-mail in error, please notify > the sender and delete all material pertaining to this e-mail. > ______________________________________________________ > -------------------------------------------------------------- > ------------- > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
