この発言に対し以下のコメントが寄せられています

#00211　Dia             さん　RE:オフミ抽選EXE(ほんとに使ったやつ(^^; 






 せっかく作ったものですから、あげてしまいましょう。
 オフミなんかでよく話題になる、即席抽選アプリです。
その場でみんなに急かされながら５分で作ったので、
大バグを含んでいます。
＃と言うより、ちゃんと動きません(^^;使ったんだけど。

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    SelectedNo :array[1..21]of Boolean;//すでに選ばれた番号はtrueにする
    CurrentNo :integer;
  public
    { Public 宣言 }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
  CurrentNo := random(21)+1;
  while not SelectedNo[CurrentNo] do
  begin
    SelectedNo[CurrentNo] := true;
    label2.caption := inttostr(CurrentNo);
    CurrentNo := random(21)+1;
  end;
end;

end.



                            97/11/23(Sun) 03:17pm
                                             CQK00014 Dia

Original document by Dia             氏 ID:(CQK00014)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。