Gsmuser
New error discoverd? table June 18, 2009 01:12AM |
//deletes al . // Mycontext=Replace(Mycontext,".","") Mycontext..Cursor = 1 //Rips the code from input field + transforms it into a numeric string// istartposEXPRESS is int iEndposEXPRESS is int istartposEXPRESS=Position(Mycontext,"Metaal")+2 iEndposEXPRESS=Position(Mycontext,"Kri",istartposEXPRESS) Metaal is string=Mycontext[[istartposEXPRESS+Length("Metaal") TO iEndposEXPRESS-2]] Metaal2 is string = Metaal metaal3 is string = Val(Metaal2) //adds the numeric dato to the table TableAddLine(Table1,Cordinaten,Speler,Metaal3,Kristal,Deuterium) configuration of table see image: when click button read: (Trace shows info before adding in tabel) as you can see until now evrything is working Next part of code //buton2 (code ripped from exampel)// // it use to get the max value of a colom // // create the matrix // "MATSTAT" is the logical name used to handle the matrix MatCreate("MATSTAT") // write the data i is int FOR i=1 TO TableCount(Table1) // table number of lines MatWrite("MATSTAT", Table1, i, 1) END // search for the maximum iResult is real iResult = StatMax("MATSTAT") // Display the result Info("Result=" + iResult) // Delete the matrix MatDelete("MATSTAT")