文件内容如下:
[mzsfyjs]
reply=TRUE
success=TRUE
djlsh0=00000074
mzlsh0=00000046
id0000=350500690521401
cardno=350500000011
xming0=张三
xbie00=1
brnl00=31
bckbcs=0
ghksmc=外科
zhzfe0=20
grzfe0=70
jjzfe0=0
gwybz0=0 
bcbxf0=90
sfrq00=20001215
sfsj00=0049
sfrxm0=管理员
cfxms0=1
grzhye=231 如何将上面的文件按行将[mzsfyjs]分支下的内容读入StringGrid中,如序号     名称        值
1       reply    TRUE
2       success  TRUE
………………………………
序号能否自动生成?

解决方案 »

  1.   

    使用TIniFile
    TIniFile.ReadString('mzsfyjs', 'reply', '');
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
    ss:TStringlist;
    i,n:integer;
    begin
    ss:=TStringlist.Create;
    ss.LoadFromFile('1.txt');
    for i:=1 to ss.Count-1 do
       begin
       n:=pos('=',ss[i]);
       StringGrid1.Cells[1,i]:=inttostr(i);
       StringGrid1.Cells[2,i]:=copy(ss[i],1,n-1);
       StringGrid1.Cells[3,i]:=copy(ss[i],n+1,length(ss[i])-n);
       end;
    ss.Free;
    end;
      

  3.   

    是个INI倒不假,但读入到StringGrid却没有TStringList来的方便
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
    ss:TStringlist;
    i,n:integer;
    begin
    ss:=TStringlist.Create;
    ss.LoadFromFile('1.txt');
    StringGrid1.RowCount:=ss.Count;
    for i:=1 to ss.Count-1 do
       begin
       n:=pos('=',ss[i]);
       StringGrid1.Cells[1,i]:=inttostr(i);
       StringGrid1.Cells[2,i]:=copy(ss[i],1,n-1);
       StringGrid1.Cells[3,i]:=copy(ss[i],n+1,length(ss[i])-n);
       end;
    ss.Free;
    end;