?? registercompany.~pas
字號:
unit registerCompany;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TfrmRegisterCompany = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
btnOk: TButton;
btnCancel: TButton;
private
{ Private declarations }
public
{ Public declarations }
procedure registerCompany;
end;
var
frmRegisterCompany: TfrmRegisterCompany;
implementation
{$R *.dfm}
{ TfrmRegisterCompany }
procedure TfrmRegisterCompany.registerCompany;
var
f:file;
s1,s2,s3,s4:string[160];
begin
s1:=trim(edit1.Text);
s2:=trim(edit2.Text);
s3:=trim(edit3.Text);
s4:=trim(edit4.Text);
assignFile(f,'info.ini');
if fileExists('info.ini')=false then
begin
reWrite(f,1);//新建一個單位配置文件
end
else reSet(f,1);//有則打開
blockWrite(f,s1,60);
blockWrite(f,s2,100);
blockWrite(f,s3,12);
blockWrite(f,s4,28);
closeFile(f);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -