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)