简单问题,在线等,20分马上给,怎么从文本文件中读数据?

解决方案 »

  1.   

    var
    sfile:Textfile;
      flag,ss:string;
    begin 
    assignfile(sfile,fname);
      reset(sfile);
           while not eof(sfile) do
             begin
               readln(sfile,ss);
             end;
    end;
      

  2.   

    能给一些代码示例吗?
    我想从一个文本文件中读出所有行然后加到combobox
    怎么做?
      

  3.   

    var 
      f:textfile;
      filename,s_temp:string;
    begin
      filename:='c:\temp.txt';
      assignfile(f,filename);
      reset(f);
      while not(eof(f)) do
        begin
        readln(f,s_temp);
        end;
      closefile(f);
    end.
      

  4.   

    combobox1.Items.LoadFromFile(yourfilename);
      

  5.   

    不如用tstringlist.loadfromfile,你可以得到每一行进行处理。
      

  6.   

    明白了,分不多,只能给 simonzone了.谢谢!