Question

关于delphi程序问题，delphi求大虾们解释一下

procedure create_label_file(filestr:string);
var
filename:file;
st:string;
labelnum:dword; //文字数量
t:_map_text;
text:string;
begin
assignfile(filename,filestr);
rewrite(filename,1);

st:='LB';
blockwrite(filename,st[1],length(st));

labelnum:=0;
blockwrite(filename,labelnum,sizeof(labelnum));

closefile(filename);
end;

procedure append_label_record(filestr:string;lb:string;x:single;y:single;z:single;si:dword);
var
filename:file;
st:string;
blocknum:dword; //色块数量
textnum:dword; //文字数量
t:_map_text;
text:string;
i:longint;
begin
if lb='' then exit;
if not(fileexists(filestr)) then exit;

assignfile(filename,filestr);
reset(filename,1);

st:=' ';
blockread(filename,st[1],2);
if st<>'LB' then
begin
closefile(filename);
exit;
end;

blockread(filename,textnum,sizeof(textnum));
for i:=1 to textnum do
begin
blockread(filename,t,sizeof(t));
setlength(st,t.len);
blockread(filename,st[1],t.len);
end;

text:=lb;
t.len:=length(text);
t.x:=x;
t.y:=y;
t.z:=z;
t.color:=rgb(255,0,0);
t.size:=si;
blockwrite(filename,t,sizeof(t));
blockwrite(filename,text[1],length(text));

seek(filename,2);
inc(textnum);
blockwrite(filename,textnum,sizeof(textnum));

closefile(filename);

end;

end.

在程序 create_label_file中
st:='LB';
blockwrite(filename,st[1],length(st));

labelnum:=0;
blockwrite(filename,labelnum,sizeof(labelnum));
这四句代码的作用是什么，他的目的是干嘛的，求大虾解释一下！

Answer 1

delphi语言中，过程BlockWrite的功能是：写入一块数据记录到一个无类型的二进制文件中去。

其原型定义如下：

procedure BlockWrite ( var FileHandle : File; var Buffer; RecordCount : Integer {; var RecordsWritten : Integer} ) ;

描述：BlockWrite过程将Buffer中的内容写入RecordCount数量的数据记录到由FileHandle指定的文件中去。文件必须先用AssignFile指定，再由Reset或ReWrite打开。

Reset和ReWrite子程序打开文件，默认的记录大小是128字节。当然，记录大小也可以由用户自行指定（见例子代码）。

数据从Buffer（通常是一个字符串或字节数组）中读出并被写入到文件中。如果记录大小是10字节、RecordCount是3，那么有3 x 10 个字节被写入，Buffer中读取了30个字节。

实际的记录读取数量被储存在可选变量RecordsRead中（如果提供的话）。如果小于RecordCount，说明已经硬盘已满了。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－
rewrite(filename,1); //定义单条'记录'为1字节

st:='LB';
blockwrite(filename,st[1],length(st));

这两句代码的作用是，将 st 内容以块（记录）方式写入文件，因为设置单条记录为1字节，所以可以用leght来获取字节数来写入。

labelnum:=0;
blockwrite(filename,labelnum,sizeof(labelnum));

这两句代码的作用是，将 labelnum 内容以块（记录）方式写入文件。因为设置单条记录为1字节，所以可以用 sizeof 来获取字节数来写入。

以上代码的目的是建立一个记录文件，其内容按照记录的方式存放，每个记录的格式为：

1. 标签：文本类型
2. 标签数字：数值类型

Answer 2

为filename赋值，st[1]是需要从数组赋值的起始位，length(st))是需要赋值的字节数，他的长度是length(st))，显然是全部赋值过去

追问

不是为filename赋值，filename只是与外部文件建立联系，是将ST写入到外部文件中，从整体看
st:='LB';
blockwrite(filename,st[1],length(st));

labelnum:=0;
blockwrite(filename,labelnum,sizeof(labelnum));
以上四句的作用是什么？？？？？？