D7 不能这样使用 Tmeminifile.Create('') ???

作者: Frame5   发布时间: 2011-11-07

作者: bdmh   发布时间: 2011-11-07

作者: wzwcn   发布时间: 2011-11-07

procedure TMemIniFile.LoadValues;
var
  List: TStringList;
begin
  if (FileName <> '') and FileExists(FileName) then
  begin
    List := TStringList.Create;
    try
      List.LoadFromFile(FileName);
      SetStrings(List);
    finally
      List.Free;
    end;
  end
  else
    Clear;
end;

作者: sz_haitao   发布时间: 2011-11-07