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.