我的第一份上传作品。。请多多指教。。。（摇号器）

最新推荐文章于 2024-08-07 10:28:16 发布

原创最新推荐文章于 2024-08-07 10:28:16 发布 · 1.3k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#button #integer #forms #interface #random #windows

delphi作品专栏收录该内容

9 篇文章

订阅专栏

该博客展示了一个名为yaohaoqiU的程序代码。程序基于Windows，使用了多种控件，如按钮、编辑框等。主要功能是根据用户输入的范围生成随机数，并将结果显示在列表框和标签中，还可关闭程序，属于信息技术领域的程序开发内容。

unit yaohaoqiU;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Button2: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,r,l:integer;
s:string;
All:array[0..1000] of integer;//这个数组用来装随机数的
Result:array[0..1000] of integer;//这个数组用来装结果的
begin
l:=label3.Height;
if spinEdit1.Value<spinEdit2.Value then
begin
    label3.caption:='错了喔..倒了也!';
    label3.Width:=353;
end
else
begin
for i:=0 to spinEdit1.Value-1 do
    All[i]:=i;
//产生M个随机数
for i:=0 to spinEdit2.Value-1 do
begin
    j:=random(spinEdit1.Value);
    r:=j mod (spinEdit1.Value-1-i);
    Result[i]:=All[r];
    All[r]:=All[spinEdit1.Value-1-i];
end;
ListBox1.Clear;
s:=' ';
for i:=0 to spinEdit2.Value-1 do
begin
    s:=s+inttostr(Result[i])+' ';
    ListBox1.Items.add(inttostr(Result[i]));
end;
   label3.caption:=s;
   label3.Width:=353;
end;
form1.Height:=(300+(l-110));
form1.InitiateAction;
end;