delphi一行一行的读取txt文本的数据

2017-10-26 12:21:02来源:CSDN作者:qq_24932309人点击

分享
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;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台