如题,哪位知道帮帮忙,多谢了!

解决方案 »

  1.   

    一行一行读,想干什么干什么,代码如下:procedure ReadFile(var ASMArgument: TSMArgument);
    var
      F: TextFile;
      S: string;
    begin
      AssignFile(F, Edit1.Text);   try
        Reset(F);//打开文件
        while not Eof(F) do
        begin
          Readln(F, S);
          dosomething(S);
        end;
      finally
        CloseFile(F); //关闭文件
      end;
    end;
      

  2.   

    有没有象word或excel这样的软件能直接打开?