读入文件问题

查找M的行数，然后用copy 区出

解决方案 »

  1.   

    能不能说的详细一点呀!譬如说m在15行,请问'用copy 区出'什么意思呀! 
      

  2.   

    load到TStringList sl
    然后Edit1.Text := sl.Values[m];
      

  3.   

    读出第15行放入str
    a := pos('=',str);
    str := copy(str,a+1,length(str)-1);
      

  4.   

    用inifile
    procedure LoadFrominiFile;
    Var
    iniLogin:TiniFile;
    begin
           iniLogin:=TiniFile.Create(iniFileName);
    Edit1.Text:=iniLogin.ReadString('1','m','23');
           iniLogin.Free;
    把你的文本文件改为ini文件，然后使inifilename=你的ini文件名。
    end;
      

  5.   

    请问hellion(恶人),如果我的文件在c:\text,　load到TStringList sl
    sl.loadfromfile('c:\text')对不对.
      

  6.   

    sl: TStringssl := TStringList.Create;
    try
      sl.LoadFromFile('c:\text');
      Edit1.Text := sl.Values['m'];
    finally
      sl.Free;
    end;
      

  7.   

    我试过遇到空行没问题。Delphi 5
      

  8.   

    hellion(恶人)的方法是可行的，只是如果遇到这种情况
    a=1;
    b=223;
    c=334;
    a=999999;
    好像是读出第一个a的为值
    另：也可以试试cdchq(chq)的方法，那样要改变文件的格式
      

  9.   

    方法是对的呀!可是,再我的机器上
    a=1;
    b=223;
    c=334;m=999999;
    这样的话就出错了!空行就读不出来!