以下这段代码能帮我读一下吗,我没用过delphi,这段代码是我在别的论坛上发帖子,别人给我的回复,我用的开发工具不是delphi,所以没读明白,望大家帮忙,大概的内容就是处理一个检验仪器发出来的数据,从发出来的数据提取其中某一段关于图形的数据进行处理画出散点图
散点图的搞定，代码如下(delphi:),其中graph.txt为两中括号中的内容，去掉中间的空格，原理，实际上就是取每 一位的数据看是否为1或0，如果1就画
procedure TForm1.Button1Click(Sender: TObject);
var
I, X, Y: Integer;
Stream: TMemoryStream;
C2: Array[0..1] of Char;
Points: Array[0..127, 0..15] of Byte;
M: Byte;
begin
Stream := TMemoryStream.Create;
try
Stream.LoadFromFile('c:\graph.txt');
Stream.Seek(0, 0);
for I := 0 to 2047 do
begin
Stream.Read(C2, 2);
Points[I div 16, I mod 16] := StrToInt('$' + C2);
end; // while
finally
Stream.Free;
end;
for Y := 0 to 127 do // Iterate
begin
for X := 0 to 15 do // Iterate
begin
for I := 0 to 7 do // Iterate
begin
if I = 0 then
M := $80
else
M := $80 shr I;
if Points[Y, X] and M = M then
Canvas.Pixels[Y, X * 8 + I + 1] := clBlack;
end; // for
end; // for
end; // for
end;
