Question

delphi 从配置文档读取的数据怎么保存到数组？

配置文件
[main]
1=12:00
2=13:00
3=14:00

怎么保存到delphi的数组。

还有，我取出PC现在的时间time。怎么判断他是否等于数组礼貌的一个时间。

比较麻烦的问题，请大家帮下忙~
怎么判断他是否等于数组里面的一个时间。打错字了

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  inifile: Tinifile;
  filename:string;
  sldate: TStringList;
  s:string;
  i:Integer;
begin
  filename := 'C:\study\Delphi\ini\1.ini';
  iniFile := TIniFile.Create(filename);
  slDate := TStringList.Create;
  iniFile.ReadSectionValues('main',slDate);
  try
    for i:= 0 to slDate.Count-1 do
    begin
      if FormatDateTime('hh:nn',now) <> slDate.ValueFromIndex[i] then
      begin
      memo1.Lines.Add(slDate[i]);
      memo1.Lines.Add(FormatDateTime('hh:nn',now));
      memo1.Lines.Add(slDate.ValueFromIndex[i]);
      end;
    end;
  //memo1.Lines.Assign(slDate);
  finally
    slDate.Free;
    iniFile.Free;
  end;

end;

一个demo你参考一下

Answer 2

1、怎么放到数组里
TiniFile有一个函数，readsectionvalues()好像 ，可以直接把小节读到TLIST里面
2、怎么判断时间
for循环和pc的time比较呀