home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 3 / Developers_Source_Vol_03_1996.iso / parad / jun95 / kran112.gif < prev    next >
Graphics Interchange Format  |  1995-11-16  |  8.3 KB  |  566x368  |  4-bit (5 colors)
   ocr: - ARTICLELSLHLbTaTYIHIC setFieldValue* method TC setfielavalue(const tablename String, const FleldName String, const theValue Anytype) Logical var retval Logical endvar tcDyn(tableNameJ.edit0) if not ccoyntablenane).LOCkkecordo then tcDyn(tableName).endEdit0) return False endif retval = ccDyn(tableName).setfieldvalue(fieldName ,thevalue) tcDyn(tableName).endEdit0) return retval endmethod Edit Line: 3 Col: 14