d7应该可以支持: 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;
如果这样写的话: var iniList:TMemIniFile; begininiList := TMemIniFile.Create;end;我的delphi7总要提示: [Error] Main.pas(946): Not enough actual parameters不知道上面能通过的是如何操作的?
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;
经过测试,是不需要文件名也可以。
你可以通过其他途径加载,使用SetStrings方法赋值。
var
iniList:TMemIniFile;
begininiList := TMemIniFile.Create;end;我的delphi7总要提示: [Error] Main.pas(946): Not enough actual parameters不知道上面能通过的是如何操作的?
iniList := TMemIniFile.Create('');