函数的具体实现如下：

procedure Generate2DCode(AStr: string; ASize: Integer; ABmp: TBitmap);
var
s : TByteArray;
m : TByteArray;
i, j: Integer;
w, h : integer;
cc: Integer;
begin
if not Assigned(ABmp) then
Exit;
SetLength(s, Length(AStr));
for

同一张图片，用LoadFromFile()和LoadFromStream()得到的结果完全不同，如下图所示：
左边是LoadFromStream()所加载的，右边是LoadFRomFile()所加载的

要修正这个问题，实际上很简单，就是比较一下LoadFromFile()和LoadFromStream()有何不同。
从文件加载，其最终也是将文件变为FileStream再读入。所以将LoadFromFile()的代码复制一份，再略做

前几天我一个玩跑团的同事说了这个需求，说是要在一个地图上绘制出正六边形的网格，以便进行该战棋游戏。虽然我对跑团游戏完全不懂，不过还是写了这个简单的算法，以实现如下图的要求

正六边形是相当有规则的一种图形，只需知道一个点和每边长度，即可算出其他的点所在的位置，下图可以说明这种关系：

这是一款用于方便用户的小软件，它可以识别出你的GPhone，并向它安装软件。或是将电脑和手机的文件互拷，这在有些屏蔽了USB，电脑识别不出手机的地方很有用。另外，它还可以将你的手机重启到BootLoader或是Recovery模式，喜欢刷机的用户可能会喜欢这个功能吧～

下载地址：点击进入

软件截图：