zoukankan      html  css  js  c++  java
  • WriteEdit()ReadEdit() IniFiles

     
    uses IniFiles;//引用IniFiles
    {$R *.dfm}

    {写入信息到ini文件 }
    //WriteEdit('Config.ini','Options','Edit',Edit1);
    procedure WriteEdit(fileName:string;section:string;Ident:string;Edit:TEdit);
    var  INIFILE: TIniFile;
    begin
        INIFILE:=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName);
        try
         INIFILE.WriteString(section,Ident,Edit.Text);
        Finally
         INIFILE.Free; 
        end;  
    end;  


    {从Ini读取信息并赋值}
    //ReadEdit('Config.ini','Options','Edit',Edit1);
    procedure ReadEdit(fileName:string;section:string;Ident:string;Edit:TEdit);
    var
     INIFILE: TIniFile;
    begin
      INIFILE :=TIniFile.Create(ExtractFilePath(Application.ExeName)+fileName);
        try
             Edit.text:= INIFILE.ReadString(section,Ident,'');
        Finally 
          INIFILE.Free; 
        end;  
    end;




  • 相关阅读:
    GUI起头
    最大公约数
    最小公倍数
    最大公约数、最小公倍数
    质数——筛选法
    质数——用已有质数求质数
    质数——6N±1法
    质数——1到n遍历法
    微服务的优势
    收到offer!
  • 原文地址:https://www.cnblogs.com/xe2011/p/2609331.html
Copyright © 2011-2022 走看看