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 可以看到全部內容