文件内容如下:
[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
………………………………
序号能否自动生成?
[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
………………………………
序号能否自动生成?
TIniFile.ReadString('mzsfyjs', 'reply', '');
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;
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;