input.pas

象棋源码

unit input;

interface

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

type
  Tinputfrm = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inputfrm: Tinputfrm;

implementation

uses table, main;

{$R *.DFM}

procedure Tinputfrm.BitBtn1Click(Sender: TObject);
var
i,j:integer;
myfile:Tfilestream;
begin
dat[0].name:=edit1.text;
if dat[0].name='' then dat[0].name:='NoName';
for i:=1 to 10 do
begin
if (dat[0].score>dat[i].score) then
begin
for j:=10 downto i do
begin
dat[j].name:=dat[j-1].name;
dat[j].level:=dat[j-1].level;
dat[j].score:=dat[j-1].score;
end;
dat[i].name:=dat[0].name;
dat[i].level:=dat[0].level;
dat[i].score:=dat[0].score;
thisrec:=i;
break;
end;
end;
myfile:=Tfilestream.Create(path+'chessrec.lis',fmCreate);
for i:=1 to 10 do begin
myfile.writeBuffer(dat[i].name,sizeof(dat[i].name));
myfile.writeBuffer(dat[i].level,1);
myfile.writeBuffer(dat[i].score,sizeof(dat[i].score));
end;
myfile.Free;
close;
with tablefrm.grid do
tablefrm.showmodal;
end;

end.