1/30 这个是之前就想丢上来的 猜数字
写的很简陋 主要就是让电脑去产生数值然后一个一个去比~
相信大家都会玩了~
请各位大大多指教 看程式是否又有Bug出现..(汗..)


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
privat ..

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容