解析delta得到sql语句的函数

　　{解析出sql语句}　　function TForm1.gensqls(AdoCon:TADOConnection; pdelta: OleVariant; const ptablename, pkeyfields: WideString): WideString;　　var　　i, j: integer;　　s1, s2: string;　　Cmdstr: string;　　FieldList, Keylist: TstringList;