03 2018 档案

combobox addobject 字符串
摘要：procedure TForm1.Button2Click(Sender: TObject);begin cbb2.Items.Clear; OraQuery1.First; while not OraQuery1.Eof do begin cbb2.Items.AddObject(OraQuery 阅读全文
posted @ 2018-03-23 15:23 绿水青山777
转：delphi dpk编译 Error: E2161 RLINK32: Unsupported 16bit resource in file xxx 问题解决
摘要：[问题解决]delphi dpk编译 Error: E2161 RLINK32: Unsupported 16bit resource in file xxx 问题解决 原创 2013年08月27日 22:15:46 标签： delphi 资源编译 5444 原创 2013年08月27日 22:15 阅读全文
posted @ 2018-03-22 17:23 绿水青山777
ansistring-->unionstring 怪码
摘要：function Tpublicf.PKHisDo(inStr: string; var OutStr: string): Integer;var JG: PWideChar; sinstr: PWideChar;begin GetMem(JG, 2048); GetMem(sinstr, 2048 阅读全文
posted @ 2018-03-18 14:12 绿水青山777