fmini.pas

来自「代码变更管理工具。当对程序代码进行变更以后可以用改工具记录变更内容」· PAS 代码 · 共 72 行

unit FmIni;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;

type
  TFmIni = class(TForm)
    cbbDevName: TComboBox;
    lblDevName: TLabel;
    btnCancel: TButton;
    btnOk: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure cbbDevNameChange(Sender: TObject);
  private
    iniFilePath : string;
      // 存放ini文件路径
    devpName    : string;
      // 存放选择好的开发人员名单      
  public
    procedure setIniFile(devpName : string);
      // 把开发人员姓名写入ini文件
    procedure setIniFilePath(tempIniFPath : string);
      // 设置ini文件路径
    function getDevpName(): string;
      // 获取选择好的发人员姓名
  end;


implementation

{$R *.dfm}


procedure TFmIni.setIniFile(devpName : string);
var
  configFile : TIniFile;             // ini文件
begin
  configFile := TIniFile.Create(iniFilePath);
  configFile.WriteString('Base', 'DevpName', devpName);
  configFile.Free();
end;
//------------------------------------------------------------------------------

procedure TFmIni.setIniFilePath(tempIniFPath: string);
begin
  iniFilePath := tempIniFPath;
end;
//------------------------------------------------------------------------------

procedure TFmIni.btnOkClick(Sender: TObject); 
begin
  devpName := cbbDevName.Text;        // 获取已经选择好的开发人员姓名
  setIniFile(devpName);      
end;
//------------------------------------------------------------------------------

procedure TFmIni.cbbDevNameChange(Sender: TObject);
begin
  btnOk.Enabled := True;
end;
//------------------------------------------------------------------------------

function TFmIni.getDevpName(): string;
begin
  Result := devpName;
end;

end.