- 博客(3)
- 收藏
- 关注
RSS订阅原创 Rect的合并 TCANVAS
var DestRect,SrcRect:TRect; i,TemW:Integer;begin Result:=TBitmap.Create; Result.Width:=0; for i:=0 to Soruce.Count-1 do begin Result.Width:=Result.Width+TBitmap(Soruce.Items[i]).Width; Res
2010-05-11 16:47:00
6309
原创 流合并 和流解析
procedure TForm1.btn1Click(Sender: TObject);var S:TMemoryStream; T:TMemoryStream; M:TMemoryStream; P:Pinteger; PSize:Pinteger;begin T:=TMemoryStream.Create; S:=TMemoryStream.C
2010-05-11 16:44:00
407
原创 关于XML中字节写入流字段时的说明
方法一： 采取通用的base64编码方式，取时解码存时加码。 毛老师提供了完整的编码代码，且效率很高。 unit Base64; interface uses SysUtils, Classes; type {$IFDEF UNICODE} Base64String = AnsiString; {$EL
2010-05-05 14:11:00
682
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人