この発言は
#00210　Dia             さんのオフミ抽選EXE(ほんとに使ったやつ(^^; )
に対するコメントです





 そういうわけで、ほんとに作りたかった製品版です。
 ただこいつも、最後は無限ループに陥ります。
 適当にフラグを立てればチェックできるのですが、
 愛敬で残しておきました(^^;)☆ﾊﾞｷｯ＼(--;)
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;//CAPTION := '結果'とでもしてください。
    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 SelectedNo[CurrentNo] do
    CurrentNo := random(21)+1;  //まだ選ばれていない番号が出るまで繰り返す
  SelectedNo[CurrentNo] := true;
  label2.caption := inttostr(CurrentNo);
end;

end.

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

Original document by Dia             氏 ID:(CQK00014)

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