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
摘要: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

浙公网安备 33010602011771号