2019年12月25日
listview item 拖拽
摘要： procedure TForm1.lv1DragDrop(Sender, Source: TObject; X, Y: Integer);var aItem, bItem: TListItem;begin if(Source is TListView) then begin bItem := (So 阅读全文
posted @ 2019-12-25 15:42 绿水青山777 阅读(354) 评论(0) 推荐(0)
十进制转十六进制 十六进制转十进制
摘要： procedure TForm1.Button6Click(Sender: TObject);var i:Integer;str:string;begin i := 255; ShowMessage(IntToHex(i,8)); ShowMessage(Format('%.10x',[i])); 阅读全文
posted @ 2019-12-25 14:14 绿水青山777 阅读(263) 评论(0) 推荐(0)
base64转换string
摘要： 1.通过函数转 function Base64ToStr1(const Base64: string): string;var I, J, K, Len, Len1: Integer; B4: array[0..3] of Byte;begin if Base64 = '' then begin R 阅读全文
posted @ 2019-12-25 09:03 绿水青山777 阅读(4184) 评论(0) 推荐(0)