?? mrrz.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -