如何读取文本文件中指定的数据

Question

[mzsfsk]
reply=TRUE  //比如我要读取=号后的值该怎么做下面的一样
success=TRUE
error=
cardno=000000000067
id0000=3502217701173531   
xming0=施建安  
xbie00=1
brnl00=23
dwmc00=建安公司                      
icztmc=有效                
gzztmc=在职人员                      
dqmc00=龙文区              
fzxmc0=漳州市医保中心      
mzlsh0=00001001
ghksmc=内科
grzhye=0
[fpxmbm]
01;西药费//这里读取西药费
02;成药费
03;草药费
04;检查费
05;治疗费
06;放射费
07;手术费
08;化验费
09;诊查费
10;床位费
11;输血费
12;输氧费
13;接生费
14;观察床
15;其它费
在线等谢谢各位了

Answer 1

var
  sl: TStrings;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    sl.LoadFromFile('d:\sec.txt');
    sl.Text := StringReplace(sl.Text, ';', '=', [rfReplaceAll]);
    for i := sl.Count - 1 downto 0 do
      if Pos('=', sl[i]) = 0 then sl.Delete(i);
    Memo1.Lines.Clear;
    for i := 0 to sl.Count - 1 do
      Memo1.Lines.Append(sl.ValueFromIndex[i]);
  finally
    sl.Free;
  end;
end;