求助：已知文本格式，怎样读其中任意一行的记录？？

Question

ip.txt格式如下[ip地址]
server1=192.168.0.1
server2=192.168.0.3
server3=192.168.0.5
server4=192.168.0.7
server5=192.168.0.9

Answer 1

var
  F: TextFile;
  S: String;
begin
  AssignFile(F, '你具体的文件路径和文件名');
  Reset(F);
  while not Eof(F) do 
  begin
    Readln(F, S);
    //在此处理
  end;
  CloseFile(F);
end;

Answer 2

uses IniFiles;var
  FIni : TIniFile;
  List: TStrings;
  strIp: String;
  i: Integer;
begin
  FIni := TIniFile.Create('C:\a.txt');
  List := TStringList.Create;
  try
    strIp := Fini.ReadString('ip地址', 'server4','');
    ShowMessage(strIp);
    Fini.ReadSection('ip地址', List);    for i := 0 to List.Count - 1 do
      ShowMessage(List.Strings[i] + ': ' + Fini.ReadString('ip地址',List.Strings[i], ''));
  except
    FIni.Free;
  end;
end;