首页 相关文章 TextFile读写

TextFile读写

  function readFromFile:string;
  var s,s2:string; F:TextFile;
  begin
   OpenDialog1.FileName:='';
   OpenDialog1.Filter:='*.XML|*.xml';
   s:=''; result:='';
   if not OpenDialog1.Execute then exit;

   assignfile(F,OpenDialog1.FileName);
   try
   Reset(F);
   while not Eof(F) do
   begin
   Readln(F, s2);
   s:=s+s2;
   end;
   result:=s;
   finally
   closefile(f);
   end;
  end;

  procedure writeToFil...[ 查看全文 ]

2016-02-19 标签:

TextFile读写的相关文章

手机页面
收藏网站 回到头部