mrrz.pas

来自「客户管理系统主要是以客户为基础」· PAS 代码 · 共 62 行

unit MRRZ;

interface

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

type
  TFRM_RZ = class(TForm)
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRM_RZ: TFRM_RZ;
  te : integer;
implementation

{$R *.dfm}

procedure TFRM_RZ.BitBtn1Click(Sender: TObject);
var
  ini:Tinifile;
  ssp : string;
begin
   if te <> 1 then
     memo1.Lines.LoadFromFile('c:\cc.ini');
end;

procedure TFRM_RZ.BitBtn2Click(Sender: TObject);
var
  ini:Tinifile;
begin
  deletefile('c:\cc.ini');
  memo1.Clear;
  te := 1;
end;

procedure TFRM_RZ.FormShow(Sender: TObject);
 var
   ini : Tinifile;
   ssp : string;
begin
  te := 0;
  ssp := '查看日志';
  ini:=Tinifile.Create('c:\cc.ini');
  ini.WriteString('one',datetimetostr(now),ssp);
  ini.Free;
  memo1.Clear;
end;

end.