C ++ Builder self-contained function library (2)

Void setEditcell (TStringGrid * SG, INT X, INT Y) {// Any cells gets focus, and can enter TGRIDRECT MyRect; myRect.Top = Y; myRect.Right = x; MyRect.right = x; MyRect.right = x; MyRect.right = x; MyRect .Bottom = y; sg-> selection = myRect; SG-> Options << GoEditing; sendMessage (sg-> handle, wm_lbuttondown, 0, 0);} //----------- -------------------------------------------------- --------- Void deleterow (TSTRINGGRID * SG, INT X) // Delete the first X line (0 ...) {for (int y = 0; y Colcount; Y ) {TSTRINGLIST * ss = new TSTRINGLIST (); ss-> add ("); ss-> add (" "); ss-> delete (x); sg-> cols [y] = ss; delete SS;}} // ---------------------------------------------------------------------------------------------------------------------- ----------------------------- ISNUM (STRING S) {Try {S.TOINT (); Return 1;} catch Econverterror & S) {ShowMessage ("Not an integer!"); Return 0;}} // ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------- ---- Void setPapersize (int W, int h, bool bhengxiang) // sets the default printer paper size W * h (* 0.1mm) {char device [cchdevicename]; char driving [max_path]; char port [32] .

TPrinter * prn = printer (); prn-> getprinter (Device, Driver, Port, HDMode); if (HDMode! = Null) {pdmode = (pdevmode) Globalock ((Hglobal &) HDMODE); if (pdmode! = Null ) {pDMode-> dmPaperSize = 256; pDMode-> dmFields = pDMode-> dmFields | DM_PAPERSIZE; pDMode-> dmPaperLength = h; // high * 0.1mm pDMode-> dmFields = pDMode-> dmFields | DM_PAPERLENGTH; pDMode-> dmPaperWidth = w; // width * 0.1mm pDMode-> dmFields = pDMode-> dmFields | DM_PAPERWIDTH; if (bHengXiang) pDMode-> dmOrientation = DMORIENT_LANDSCAPE; else pDMode-> dmOrientation = DMORIENT_PORTRAIT;} ResetDC (Prn-> Handle, pDMode) Globalunlock (hglobal &);}} // ------------------------------------ ------------------------------------------------- String Safetrunc (const string s, int count) {string result; widEString WS (s); do ws = ws.substring (1, ws_len--); while ((Result = WS) .length ()> COUNT);

Return Result;}

String newguid () {// produces unique guid _guid gid; string guid; try {createguid (GID); // createclassID () Guid = guidtostring (gid);} catCH (...) {return ";} return Guid }

Int splitstr (Tstringlist * Value, String Splitstr, String SourceStr) {

// Separate string // tstringlist * value = new tstringlist (); value-> text = "; // String splitstr ="; // Ansistring SourceStr = "asdfghjkl"; int sp = splitstr.length (); INDEX = 0; int pos = sourceStr.pos (splitstr); string tmp; int CAPA = 0; While (POS> 0) {value-> strings [index] TMP = SourceStr.Substring (1, POS-1); Value-> Add (TMP); SourceStr.Substring (POS, SourceStr.Length () - POS 1); //MessageBox (Handle, Value Readers "[index].c_str() ,""", mb_ok); SourceStr . De (1, POS); SourceStr = SourceStr.Substring (POS SP, SourceStr.Length () - POS-SP 1); POS = SourceStr.POS (Splitstr); Index ;} value-> add (SourceStr) Capa = value-> count; return capa; / * for (int m = 0; M Strings [M] .c_str (), "", MB_OK); * / // Value-> strings [d] = SourceStr; // delete value;} void nextdlg () {if (key == vk_return) {key = 0; sendMessage (handle, wm_nextdlgctl, 0, 0);}} / Ansistring Converthztopy (char * as_hzstring) {// presents Chinese characters static int li_secposvalue [] = {1601, 1637, 1833, 2010, 2274, 2302, 2433, 2594, 2787, 3106, 3212, 372, 3635, 3722, 3730, 3858, 4 027, 4086, 4390, 4558, 4684, 4925, 5249}; static char * lc_firstletter [] = {"a", "b", "c", "d", "e", "f", "g" , "H", "J", "K", "L", "M", "N", "P", "Q", "R", "S", "T", " W "," x "," y "," z "}; static char * ls_secondsectable ="

CJWGNSPGCGNE [Y [BTYYZDXYKYGT [JNNJQMBSGZSCYJSYY [PGKBZGY [YWJKGKLJYWKPJQHY [W [DZLSGMRYPYWWCCKZNKYYGTTNJJNYKKZYTCJNMCYLQLYPYQFQRPZSLWBTGKJFYXJWZLTBNCXJJJJTXDTTSQZYCDXXHGCK [PHFFSS [YBGXLPPBYLL [HLXS [ZM [JHSOJNGHDZQYKLGJHSGQZHXQGKEZZWYSCSCJXYEYXADZPMDSSMZJZQJYZC [J [WQJBYZPXGZNZCPWHKXHQKMWFBPBYDTJZZKQHY "" LYGXFPTYJYYZPSZLFCHMQSHGMXXSXJ [[DCSBBQBEFSJYHXWGZKPYLQBGLDLCCTNMAYDDKSSNGYCSGXLYZAYBNPTSDKDYLHGYMYLCXPY [JNDQJWXQXFYYFJLEJPZRXCCQWQQSBNKYMGPLBMJRQCFLNYMYQMSQYRBCJTHZTQFRXQHXMJJCJLXQGJMSHZKBSWYEMYLTXFSYDSWLYCJQXSJNQBSCTYHBFTDCYZDJWYGHQFRXWCKQKXEBPTLPXJZSRMEBWHJLBJSLYYSMDXLCLQKXLHXJRZJMFQHXHWY "" WSBHTRXXGLHQHFNM [YKLDYXZPYLGG [MTCFPAJJZYLJTYANJGBJPLQGDZYQYAXBKYSECJSZNSLYZHSXLZCGHPXZHZNYTDSBCJKDLZAYFMYDLEBBGQYZKXGLDNDNYSKJSHDLYXBCGHXYPKDJMMZNGMMCLGWZSZXZJFZNMLZZTHCSYDBDLLSCDDNLKJYKJSYCJLKWHQASDKNHCSGANHDAASHTCPLCPQYBSDMPJLPZJOQLCDHJJYSPRCHN [NNLHLYYQYHWZPTCZGWWMZFFJQQQQYXACLBHKDJXDGMMY "" DJXZLLSYGXGKJRYWZWYCLZMSSJZLDBYD [ FCXYHLXCHYZJQ [[qagmnyxpfrkssbjlyxyxysyglnscmhzwwmnzjjlxxhchsy " XTAYBGAJCXLY [DCCWZOCWKCCSBNHCPDYZNFCYYTYCKXKYBSQKKYTQQXFCWCHCYKELZQBSQYJQCCLMTHSYWHMKTLKJLYCXWHEQQHTQH [PQ [QSCFYMNDMGBWHWLGSLLYSDLMLXPTHMJHWLJZYHZJXHTXJLHXRSWLWZJCBXMHZQXSDZP "" MGFCSGLSXYMJSHXPJXWMYQKSMYPLRTHBXFTPMHYXLCHLHLZYLXGSSSSTCLSLDCLRPBHZHXYYFHB [GDMYCNQQWLQHJJ [YWJZYEJJDHPBLQXTQKWHLCHQXAGTLXLJXMSL [HTZKZJECXJCJNMFBY [SFYWYBJZGNYSDZSQYRSLJPCLPWXSDWEJBJCBCNAYTWGMPAPCLYQPCLZXSBNMSGGFNZJJBZSFZYNDXHPLQKZCZWALSBCCJX [YZGWKYPSGXFZFCDKHJGXDLQFSGDSLQWZKXTMHSBGZMJZRGLYJB ""

PMLMSXLZJQQHZYJCZYDJWBMYKLDDPMJEGXYHYLXHLQYQHKYCWCJMYYXNATJHYCCXZPCQLBZWWYTWBQCMLPMYRJCCCXFPZNZZLJPLXXYZTZLGDLDCKLYRZZGQTGJHHGJLJAXFGFJZSLCFDQZLCLGJDJCSNZLLJPJQDCCLCJXMYZFTSXGCGSBRZXJQQCTZHGYQTJQQLZXJYLYLBCYAMCSTYLPDJBYREGKLZYZHLYSZQLZNWCZCLLWJQJJJKDGJZOLBBZPPGLGHTGZXYGHZMYCNQSYCYHBHGXKAMTX "" YXNBSKYZZGJZLQJDFCJXDYGJQJJPMGWGJJJPKQSBGBMMCJSSCLPQPDXCDYYKY [CJDDYYGYWRHJRTGZNYQLDKLJSZZGZQZJGDYKSHPZMTLCPWNJAFYZDJCNMWESCYGLBTZCGMSSLLYXQSXSBSJSBBSGGHFJLYPMZJNLYYWDQSHZXTYYWHMZYHYWDBXBTLMSYYYFSXJC [DXXLHJHF [SXZQHFZMZCZTQCXZXRTTDJHNNYZQQMNQDMMG [YDXMJGDHCDYZBFFALLZTDLTFXMXQZDNGWQDBDCZJDXBZGS "" QQDDJCMBKZFFXMKDMDSYYSZCMLJDSYNSBRSKMKMPCKLGDBQTFZSWTFGGLYPLLJZHGJ [GYPZLTCSMCNBTJBQFKTHBYZGKPBBYMTDSSXTBNPDKLEYCJNYDDYKZDDHQHSDZSCTARLLTKZLGECLLKJLQJAQNBDKKGHPJTZQKSECSHALQFMMGJNLYJBBTMLYZXDCJPLDLPCQDHZYCBZSCZBZMSLJFLKRZJSNFRGJHXPDHYJYBZGDLQCSEZGXLBLGYXTWMABCHECMWYJYZLLJJYHLG [DJLSLYGKDZPZXJ "" YYZLWCXSZFGWYYDLYHCLJSCMBJHBLYZLYCBLYDPDQYSXQZBYTDKYXJY [CNRJMPDJGKLCLJBCTBJDDBBLBLCZQRPPXJCJLZCSHLTOLJNMDDDLNGKAQHQHJG YKHEZNMSHRP [QQJCHGMFPRXHJGDYCHGHLYRZQLCYQJNZSQTKQJYMSZSWLCFQQQXYFGGYPTQWLMCRNFKKFSYYLQBMQAMMMYXCTPSHCPTXXZZSMPHPSHMCLMLDQFYQXSZYYDYJZZHQPDSZGLSTJBCKBXYQZJSGPSXQZQZRQTBDKYXZK "" HHGFLBCSMDLDGDZDBLZYYCXNNCSYBZBFGLZZXSWMSCCMQNJQSBDQSJTXXMBLTXZCLZSHZCXRQJGJYLXZFJPHYMZQQYDFQJJLZZNZJCDGZYGCTXMZYSCTLKPHTXHTLBJXJLXSCDQXCBBTJFQZFSLTJBTKQBXXJJLJCHCZDBZJDCZJDCPRNPQCJPFCZLCLZXZDMXMPHJSGZGSZZQLYLWTJPFSYASMCJBTZKYCWMYTCSJJLJCQLWZMALBXYFBPNLSFHTGJWEJJXXGLLJSTGSHJQLZFKCGNNNSZFDEQ "" FHBSAQTGYLBXMMYGSZLDYDQMJJRGBJTKGDHGKBLQKBDMBYLXWCXYTTYBKMRTJZXQJBHLMHMJJZMQASLDCYXYQDLQCAFYWYXQHZ "; AnsiString result =" "; int H, L, W; unsigned int i, stringlen = strlen (as_HzString); int j;

For (i = 0; I 1600 && W <5590) {for (j = 22; J> = 0; J -) IF (w> = li_secposvalue [j]) {result = lc_firstletter [j]; i ; break;} Continue;} else {i ; w = (h - 160 - 56) * 94 L - 161; if (w> = 0 && w <= 3007) Result = ls_secondsectable [W]; Else {Result = (char) h; result = (char) L;}} }

Return Result;}

String MakeStr (String MSTR, CHAR B, INT LEN, BOOL QH) {Int Slen = mstr.Length (); String TMP = ""; IF (Slen

String Makelen (String Mstr, INT LEN) {IF (mstr.Length ()

To divide the unit ANSISSTRING GETBIGMONEY (ANSISTRING S) {IF ((S.Length () <= && (S.TointDef (0) == 0)) Return "Coin Zero Zero Horn"; Ansistring ODXC, ODXS, OSZC , OSCC, OSCC0; INT OI, OI0, I; Double ORMB = STRTOFLOAT (S); // Gold === 0.00) Return "Coin Zero Rad Gee"; ODXC = "Pradestrics Wan Qi 100 million picked up 100 million "; odxs =" Zero Zibo Lu Zi Lu "; OSZC = FLOATTOSTR (ABS (ORMB)); i = ANSIPOS ('.', S) Oszc.delete (I, 1); // Stuf (OSZC, 18, 1, ''); OSZC = TRIM (OSZC); OSCC = ""; OI0 = 0; for (Oi = OSZC.LENGTH (); Oi> 0; oi--) {oscc = odxc.substring (OI0 * 2 1, 2) OSCC; oscc = odxs.substring (STRTOINT (OSZZC.SUBSTRING (OI, 1)) * 2 1, 2) OSCC; OI0 ;} oscc0 = ""; for (Oi = 1; Oi <= oscc.Length (); Oi = Oi 4) {IF (oscc.substring (OI, 2) == "zero") { IF (Oscc.Substring (Oi 2, 2) == "Wan") {if (Oscc0.Substring (oscc0.Length () - 3, 4)! = "零") {if (oscc0.substring (oscc0 .Length () - 1, 2) == "zero") oscc0 = oscc0.substring (1, oscc0.Length () - 2) "10,000"; else oscc0 = oscc0 "10,000";} Continue;} IF Oscc.substring (Oi 2, 2) == "Round") {oscc0.substring (oscc0.Length () - 1, 2) == "zero") oscc0 = oscc0.substring (1, oscc0.length () -2) "round"; else oscc0 = OSCC0 "round"; Continue;} (oscc.substring (OI 2, 2) == "100 million") {if (oscc0.Substring (oscc0.Length () - 1, 2) == "zero") oscc0 = oscc0.substring (1, OSCC0. Length () - 2) "100 million"; Else OSC0 = OSCC0 "100"; CONTINUE; oscc0.Substring (oscc0.Length () - 1, 2)! = "Zero") oscc0 = oscc0 "zero" } else oscc0 = oscc0 oscc.substring (Oi, 4);

} IF (oscc0.substring (oscc0.Length () - 3, 4) == "Round zero")) {oscc0 = oscc0.substring (1, oscc0.Length () - 2) "RETURN OSCC0 ;} if ((oscc0.substring (oscc0.Length () - 3, 4) == "angular zero")) {oscc0 = oscc0.Substring (1, oscc0.Length () - 2) "whole"; return OSCC0;}} f (oscc0.substring (oscc0.Length () - 1, 2) == "zero")) oscc0 = oscc0.substring (1, oscc0.Length () - 2) "round"; return OSCC0;} / String Uppermoney (Double JN) {INT L, ZL, Z, U, V; ANSISTRING F = "壹 贰 伍 柒捌"; ANSISUSTRING G = "Yuanwan 10 billion 万 佰"; ANSISTRING AA, B, JNS; JNS.SETLENGTH (255); Double Je;

IF (JN <= 0) Return "zero";

JE = (JN <1? JN * 100: JN);

Printf (jns.c_str (), "% 26.2f", JE); JNS = Trimright (Trimleft (jns));

L = strlen (jns.c_str ()); l = (JN <1? (JN <0.1? 1: 2): L);

ZL = L 1;

AA = ANSISTRING (""); b = ansistring ("");

For (; l> 0;) {z = strtoint (jns.substring (ZL-L, 1)); u = int (L / 4); v = L% 4;

IF (z> 0) {u = (v == 0? u U-1: V V (u> 0? 7: 13)); AA = aa b f.substring (z z-1 , 2) g.Substring (u, 2); b = "";} else {if (l == 1) AA = aa "whole"; ELSE {if (v == 0) AA = aa g. Substring (U * 2-1, 2); ELSE AA = aa "";