扫雷源码，望高手来评评（100分）(100分)

下面是我写的扫雷主要代码，请各路高手评点一下！
程序把单个的地雷作为类(TBomb)来处理，hideflag=0~8，bomb;showflag是其他的标记
写这个类时，一直困扰我的是TBomb存在的理由——：给我一个理由，好不好（星仔）
不过它存在了，她够简单够明了！
程序从创建雷区，到左击翻开，右击标记红旗，双击推开一片，然后结束。代码中附有解释。
procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k,ran,row,col:integer;
hideflagarray:array[0..bombrow-1,0..bombcol-1] of integer;
begin
//从资源中载入地雷的运行显示位图
showflagbitmap:=tbomb.LoadShowFlagBitmap;
hideflagbitmap:=tbomb.LoadHideFlagBitmap;
//设定雷区中每个雷的hideflag,然后创建她create,再画出她onpaint
for i:=0 to bombrow-1do
for j:=0 to bombcol-1do
hideflagarray[i,j]:=0;
k:=bombnumber;
randomize;
repeat
ran:=random(bombareasize);
row:=ran div bombcol;
col:=ran mod bombcol;
if hideflagarray[row,col]<>-1 then
begin
hideflagarray[row,col]:=-1;
dec(k);
for i:=-1 to 1do
for j:=-1 to 1do
begin
if (row+i>-1) and (row+i<bombrow) and
(col+j>-1) and (col+j<bombcol) then
if hideflagarray[row+i,col+j]<>-1 then
inc(hideflagarray[row+i,col+j]);
end;
end;
until k=0;
for i:=0 to bombrow-1do
for J:=0 to bombcol-1do
begin
bombarray[i*bombcol+j]:=tbomb.create(hfzero,i*BOMBheight,j*BOMBwidth);
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
begin
//判定按键，在按下时记录
if button=mbright then
begin
rbutton:=true;
with bombarray[(y div bombheight)*bombcol+(x div bombwidth)]do
begin
ChangeShowFlag;
draw(form1.Canvas,showflagbitmap);
end;
end else
begin
if button=mbleft then
begin
lbutton:=true;
end;
end;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i,j:integer;
begin
for i:=0 to bombrow-1do
for j:=0 to bombcol-1do
bombarray[i*bombcol+j].Draw(form1.Canvas ,showflagbitmap);
end;

procedure TForm1.FormMouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);
var
row,col:integer;
i,j,count:integer;
whf:whideflag;
begin
//左键翻开地雷，双击按规则处理
row:=y div bombheight;
col:=x div bombwidth;
if lbutton and rbutton then
begin
whf:=bombarray[row*bombcol+col].gethideflag;
count:=0;
for i:=-1 to 1do
for j:=-1 to 1do
begin
if (row+i>-1) and (row+i<bombrow) and
(col+j>-1) and (col+j<bombcol) then
//index:=(row+i)*bombcol+(col+j);
with bombarray[(row+i)*bombcol+(col+j)]do
begin
if isredflag then
inc(count);
end;
end;
if whideflag(count)=whf then
begin
for i:=-1 to 1do
for j:=-1 to 1do
if (row+i>-1) and (row+i<bombrow) and
(col+j>-1) and (col+j<bombcol) then
with bombarray[(row+i)*bombcol+(col+j)]do
begin
if not isredflag then
uncover(row+i,col+j);
end;
end;
lbutton:=false;
rbutton:=false;
end else
begin
if button=mbleft then
begin
lbutton:=false;
with bombarray[(y div bombheight)*bombcol+(x div bombwidth)]do
begin
uncover(row,col);
end;
end else
begin
if button=mbright then
rbutton:=false;
end;
end;
end;

procedure TForm1.Uncover(ARow, Acol: integer);
var
i,j:integer;
brow,bcol:integer;
begin
//翻开地雷，为地雷结束，为0则推开
with bombarray[arow*bombcol+acol]do
begin
Draw(form1.Canvas,hideflagbitmap);
if gethideflag=hfbomb then
showmessage('Hello!');
if gethideflag=hfzero then
begin
for i:=-1 to 1do
for j:=-1 to 1do
begin
if (arow+i>-1) and (arow+i<bombrow) and
(acol+j>-1) and (acol+j<bombcol) then
begin
brow:=arow+i;
bcol:=acol+j;
uncover(brow,bcol);
end;
end;
end;
end;
end;

如果你看到这里了，请一定留下你的高见！

当年学turbo pascal 5.5时便写了一个[]

很不错，相信你是个编程迷，水平也很高。[]

请讲讲设定地雷的算方法。好吗

你行！

几位高手，有空聊聊？

一时没看懂
贴了慢慢看

不错

to 贴主:实在是没有必要弄各类出来[]
我给大家简单讲讲我大一时用tp5.5写的那个扫雷的思路(代码不堪入目,不看也罢):
程序初始化,用一个2维数组表示棋盘(战场),另外最好再来个大小一样数组存放玩家的动作,并随机在数组里放些'-1',表示此地是雷.
..................
当用户点击一个方格时,若该点值为'-1',then
game over[],若不是'-1'则看看八个方向
是不是有雷,若雷数>0 then
显示雷数 else
递归揭开所有这样的点.
...........................................................
最后根据玩家的数组和战场数组判断是不是都找到了,if 全找到 then
win
大体是这样的,年数久远,忘得差不多了 大家将就看吧.
欢迎喜欢做游戏的朋友访问我的网站: http://kuga.51.net

写这个程序时，主要想练一下如何构造一个类，动动脑子。

大家都好强啊，我是一个初学者，不知什么时候能赶上你们

写的真的很好呀，我应该学习才对

我打算自已来一个