EDIT Ini写Ini配置

EDIT
Ini写Ini配置

 
uses IniFiles;
{$R *.dfm}

 

function IniFileName:string;

begin

  
Result:=ExtractFilePath(Application.ExeName)+'Settings.ini';

end;

procedure SaveConfig(Edit:TEdit);
begin 
  with TIniFile.Create(IniFileName) do
  begin
    try

       WriteString('Path','Edit1.text',Edit.Text);
    Finally

       Free;
    end;

  end;
end;

procedure ReadConfig(Edit:TEdit);
var  INI: TIniFile;

begin 
  with TIniFile.Create(IniFileName) do 

  begin

    try

       ReadString('Path','Edit1.text','');

    Finally

       Free;
    end;

  end;
end;

来自为知笔记(Wiz)