天才弟弟果然是个天才,我阿德佩服的五体投地,我对天才弟弟的佩服之情犹如滔滔江水……觉得肉麻的兄弟就up
解决方案 »
- 怎样使formular one单元格处理可编辑状态?我想用双击单元格的形式修改单元格的内容,该怎么办呢?
- 系统设计请教?
- 现在要实现一个导出和导入数据的功能
- 如何象瑞星那样监控网页代码?顶者有分!
- SPCOMM控件在Delphi7中是否不能用?总不能得到正确结果!
- DELPHI 6 的Update pack1/2 在哪里有下载的啊?
- 如何取得ListBox中的内容
- 简单问题,在线等待~~~
- 操作10万记录的数据库,要求检索没有延迟(快),且最终的exe精巧(小),同时不希望占用太多内存,请问应采取哪种数据库存取方案?
- 将当前屏幕抓取下来,并将鼠标指针也抓取下来。
- 我设计了一个统计程序,因为统计时间比较长,所以想让统计时弹出一个对话框,显示统计的进度,统计完毕后这个对话框自动关闭。要用什么语
- 如何实现文件的下载?
等待,如沙漠行舟,痛苦万分
去死----------------------------------------------------------
等待,如沙漠行舟,痛苦万分
我只是说常理,但真理是掌握在少数人手中,也许你是特例
ollea(一定要mf到胡萝卜) : 那是我复制粘贴人家的,留着灌水玩的 :)
还有不少,你要吗?
苹果呀,不能说!说了我的这个分就白散了 :(杀手小眼镜:只有你们这些儿童才会琢磨怎么弄出这些玩艺来。我们?老了……
DWGZ:教训的是,所以俺只在晚上发,发了就下班,呵呵……
你这家伙!怎么侮辱我!
给分!!!
PPPPPPPPPPPPPPPPPPPPPPPP
UUUUPPPPUUUUUUUUUUUUPPPP
PPUUPPPPUUPPPPUUPPPPUUPP
PPUUPPPPUUPPPPUUPPPPUUPP
PPUUPPPPUUPPPPUUUUUUPPPP
PPUUPPPPUUPPPPUUPPPPPPPP
PPUUPPPPUUPPPPUUPPPPPPPP
PPUUPPPPUUPPPPUUPPPPPPPP
PPPPUUUUPPPPUUUUUUPPPPPP
PPPPPPPPPPPPPPPPPPPPPPPP
PPPPPPPPPPPPPPPPPPPPPPPP
var
bmp:TBitmap;
i,j,w,h:integer;
wj:TstringList;
s:String;
begin
wj:=TstringList.Create;
Bmp := TBitmap.Create;
Bmp.Canvas.Font.Name:='宋体';
Bmp.Canvas.Font.Size:=16;
h:=Bmp.Canvas.TextHeight('水');
w:=Bmp.Canvas.TextWidth('水');
Bmp.Width:=w;
Bmp.Height:=h;
Bmp.Canvas.TextOut(0,0,'水');
for i:=1 to w do begin
s:='';
for j:=1 to h do begin
if bmp.Canvas.Pixels[j,i]=0 then s:=s+'水' else s:=s+'灌';
end;
wj.Add(s);
end;
wj.SaveToFile('d:\a.txt');
end;
大概就是这个鸟样子..
偶还以为这些东东是闲人没事干写上去的那.......to:microjuz(天才弟弟)
偶不想死,偶想分,偶更想money...