呵呵，自己画吧，没有现成的
给你个我的例子，25*25个点，除边界外每个点与上下左右4个点连
var
y:array[0..624] of integer;
x:array[0..624] of integer;
i,j,l,m:integer;
buf:byte;
f:tfilestream;
s:string;
begin
form1.DoubleBuffered :=true;
f:= TfileStream.Create('C:/wg', fmOpenRead);
image2.Canvas.Pen.Color :=clyellow;
for i:=0 to 624 do
begin
f.Seek(4*i, soFromBeginning);
f.Read(buf,1);
s :=IntToHex(buf,2);
f.Read(buf,1); // 再读出1字节
s:=s+IntToHex(buf,2);
y:=trunc((strtoint('$'+s ))/d);
f.Read(buf,1);
s :=IntToHex(buf,2);
f.Read(buf,1); // 再读出1字节
s :=s+IntToHex(buf,2);
x:=trunc((strtoint('$'+s ))/c);
end;
f.Free ;
image2.Canvas.MoveTo (x[0],y[0]);
for j:=1 to 624 do
begin
if (j mod 25=0) then
begin
image2.Canvas.MoveTo (x[j],y[j]);
end
else
begin
image2.Canvas.LineTo (x[j],y[j]);
end;
end;
for m:=0 to 24 do
begin
image2.Canvas.MoveTo (x[m],y[m]);
for l:=1 to 24 do
begin
image2.Canvas.LineTo (x[l*25+m],y[l*25+m]);
end;
end;
end;
