Delphi读取二进制
procedureTForm1.Button2Click(Sender:TObject);varf:fileofinteger;i:integer;beginassign...
procedure TForm1.Button2Click(Sender: TObject);
var
f:file of integer;
i:integer;
begin
assignfile(f,'erjinzhi.txt');
reset(f);
while not Eof(f) do begin
Read (f,i);
Memo1.Lines.Add(inttostr(i));
end;
closefile(f);
end;
如上请问这里的“Memo1.Lines.Add”是什么意思,详解更好,O(∩_∩)O谢谢 展开
var
f:file of integer;
i:integer;
begin
assignfile(f,'erjinzhi.txt');
reset(f);
while not Eof(f) do begin
Read (f,i);
Memo1.Lines.Add(inttostr(i));
end;
closefile(f);
end;
如上请问这里的“Memo1.Lines.Add”是什么意思,详解更好,O(∩_∩)O谢谢 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询