张磊的blog

给社团联合会写的领票系统

Code:

unit Unit1;interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Btn_exit: TButton;

memotxt: TMemo;

Panel1: TPanel;

Editxt: TEdit;

Btn_check: TButton;

Label1: TLabel;

procedure Btn_saveClick(Sender: TObject);

procedure Btn_exitClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Btn_checkClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Btn_saveClick(Sender: TObject);

begin

memotxt.Lines.SaveToFile(‘data.txt’);

ShowMessage(‘保存成功！’);

end;

procedure TForm1.Btn_exitClick(Sender: TObject);

var

remsg:integer;

begin

remsg:=Application.MessageBox(‘确定要退出系统吗？’,'操作提示’,MB_yesno+MB_IconQuestion) ;

if remsg=6 then

begin

close;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memotxt.Lines.LoadFromFile(‘data.txt’);

ShowMessage(‘数据载入成功’);

end;

procedure TForm1.Btn_checkClick(Sender: TObject);

var

i:integer;

mytext:string;

noban:Boolean;

begin

noban:=true;

for i:=0 to form1.memotxt.Lines.Count-1 do

begin

mytext:=form1.memotxt.Lines[i];

if editxt.Text=mytext then

begin

showmessage(‘此学号已领取过票’);

noban:=false;

form1.Editxt.Text:=”;

break;

end

else

begin

noban :=true;

continue;

end;

end;

if noban then

begin

form1.memotxt.Lines.Add(editxt.Text);

form1.Editxt.Text:=”;

showmessage(‘学号已记录’);

memotxt.Lines.SaveToFile(‘data.txt’);

end;

end;

end.
不会操作文件，只好避重就轻。:ex2_42: