var
Form1: TForm1;
mylist:TStringlist;
i,a:integer;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if a<>i then{判断a是否为i,既不是mylist的未尾}
begin
button1.Caption:='下一行';
edit1.Clear;{清除edit1的上一行内容}
edit1.Text:=mylist.Strings[a];{添加一行}
a:=a+1;{a值加1,既为下一行}
end
else{如果到mylist未尾,赋a值为0,从第一行重开始}
begin
a:=0;
edit1.Clear;
showmessage('此行为文件未行,点击从第一行开始');
edit1.Text:='请点击[重新开始]';
edit1.SetFocus;
button1.Caption:='重新开始';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;{赋a值为0,以便按button1时读mylist的第一行}
if fileexists('E:\servercs\openbrake_machine.txt') then
begin
mylist:=TStringlist.Create;
mylist.LoadFromFile('E:\servercs\openbrake_machine.txt');{读文件到mylist}
end;
i:=mylist.Count;{获得mylist的count}
button1.Caption:='开始';
edit1.text:='按[开始]键读第一行';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mylist.Free;{释放mylist}
end;
Form1: TForm1;
mylist:TStringlist;
i,a:integer;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
if a<>i then{判断a是否为i,既不是mylist的未尾}
begin
button1.Caption:='下一行';
edit1.Clear;{清除edit1的上一行内容}
edit1.Text:=mylist.Strings[a];{添加一行}
a:=a+1;{a值加1,既为下一行}
end
else{如果到mylist未尾,赋a值为0,从第一行重开始}
begin
a:=0;
edit1.Clear;
showmessage('此行为文件未行,点击从第一行开始');
edit1.Text:='请点击[重新开始]';
edit1.SetFocus;
button1.Caption:='重新开始';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
a:=0;{赋a值为0,以便按button1时读mylist的第一行}
if fileexists('E:\servercs\openbrake_machine.txt') then
begin
mylist:=TStringlist.Create;
mylist.LoadFromFile('E:\servercs\openbrake_machine.txt');{读文件到mylist}
end;
i:=mylist.Count;{获得mylist的count}
button1.Caption:='开始';
edit1.text:='按[开始]键读第一行';
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mylist.Free;{释放mylist}
end;