#include #include using namespace std; int main(){ long a,b,c; int i,flag; bool is_positive; char result[9]; while(cin>...
分类：
其他好文 时间：
2014-07-31 02:38:15
阅读次数：
215
function ItemExist(Text:string;TreeView:TTreeView):Boolean;var i: Integer;begin Result:=False; if (Trim(Text)'') then begin for i := 0 to TreeView.Ite...
分类：
其他好文 时间：
2014-07-29 21:41:52
阅读次数：
252
Gson解析json 先定义好一个对象，对象的成员类型都已经确定，如果json数据里的类型不对，这样直接报错。如果json数据放回 {“reslult”:["xxx","xxx"]} 对象定义是个数组即可解析出来，如果遇到“result” 为空？（{“reslult”:null}）怎么办？Gson解...
分类：
Web程序 时间：
2014-07-29 21:20:54
阅读次数：
324
EDIT Ini写Ini配置
usesIniFiles; {$R*.dfm} function IniFileName:string;
begin Result:=ExtractFilePath(Application.ExeName)+'Settings.ini';
end;
procedureS...
分类：
其他好文 时间：
2014-07-29 21:17:14
阅读次数：
233
//获得汉字字符个数function ChineseWordsCount(text:string):Integer;var i,sum,e,c,t: Integer;begin Result:=0; c := 0; sum := Length(text); if Sum=0 then exit; f...
分类：
其他好文 时间：
2014-07-29 21:14:32
阅读次数：
211
function ReverseString(s: string): string;var i: integer; s1:string;begin s1 := ''; for i := 1 to Length(s) do s1 := s[i] + s1; Result:=s1;end;procedu...
分类：
其他好文 时间：
2014-07-29 21:05:32
阅读次数：
197
言语不多，直接上代码。private Map introspect(Object obj) throws Exception { Map result = new HashMap(); BeanInfo info = Introspector.getBeanInfo(o...
分类：
其他好文 时间：
2014-07-29 21:05:22
阅读次数：
218
uses Jpeg;function BMPtoJPG(var BMPpic, JPGpic: string): boolean;var Bitmap: TBitmap; JpegImg: TJpegImage;begin result := False; Bitmap := TBitmap.Cre...
分类：
其他好文 时间：
2014-07-29 20:42:42
阅读次数：
177
根据其他画面传入的回调方法名，在自己的画面上去调用该方法。这是带参数的方法定义：functioncall_back(funName,result){this.func=function(result){};this.func=eval(funName);}不带参数的方法定义：functioncall_back(funName){this.func=function(){};this.func=eval(funN..
分类：
编程语言 时间：
2014-07-29 15:58:09
阅读次数：
198
在开发中我们会遇到多重ajax调用的情况，这时比较适宜用$.when方法，无需再为每次调用请求分别定义一个回调。使用实例：varserverData={};varget1=$.get(‘/1‘).done(function(result){serverData[‘1‘]=result;});varget2=$.get(‘/2‘).done(function(result){serverData[‘2‘]=re..
分类：
Web程序 时间：
2014-07-29 15:26:00
阅读次数：
264
