12 2017 档案

摘要:function UnicodeToAnsi(s: WideString): string;var lpChar: PChar; len: integer;begin len := Length(s) * 2; GetMem(lpChar, len); ZeroMemory(lpChar, len) 阅读全文
posted @ 2017-12-25 11:31 绿水青山777
摘要:delphi中调用 DLL一定要注意声明函数的大小写 阅读全文
posted @ 2017-12-21 10:29 绿水青山777
摘要:procedure TForm1.Button1Click(Sender: TObject);var s:string;begin s := 'dsd' ; s:= s + slinebreak +s; //sLineBreak 换行 raise Exception.Create('test');e 阅读全文
posted @ 2017-12-12 22:09 绿水青山777