EDIT Ini写Ini配置

时间：2014-07-29 21:17:14 阅读：233 评论：0 收藏：0 [点我收藏+]

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)

EDIT Ini写Ini配置,布布扣,bubuko.com

EDIT Ini写Ini配置

标签：http color strong io cti div ar res

原文地址：http://www.cnblogs.com/xe2011/p/3876192.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行