delphi7怎样操作ini文件

delphi 有很多类可以直接操作ini文件或内存ini文件,只需要在单元uses段中加入IniFiles单元即可
调用方法很简单,给你个例子;
function GetMachineType: Integer;
var
f: TIniFile;
begin
f := TIniFile.Create('D:\YouConfig.INI');
Result := f.ReadInteger('system', 'MachineType', 0);
f.Free;
end;

uses加上IniFiles;

var
ini: tinifile;
begin
ini := tinifile.create(ini文件路径);
{
ini.readstring等等很多方法可用
}
end;

uses
     iniFiles;

procedure WriteIniFile(Str_Section,Str_Ident,Str_Value:string);
begin
    with TIniFile.Create(ExtractFilePath(ParamStr(0))+'ALConfig.ini') do
    begin
        WriteString(Str_Section,Str_Ident,Str_Value);
        Free;
    end;
end;

function ReadIniFile(Str_Section,Str_Ident:string;Str_Default:string=''):string;
begin
    with TIniFile.Create(ExtractFilePath(ParamStr(0))+'ALConfig.ini') do
    begin
        Result:=ReadString(Str_Section,Str_Ident,Str_Default);
        Free;
    end;
end;