捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  沪ICP备05001939号 DELPHI盒子 | 盒子论坛 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 论坛检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论：一个福利彩票选号小程序
980 28524 2007/3/23 16:28:12
你这个东西和开玩笑一样，就是一堆查找随机数 ，你下次传啊 弄个运行的界面  大家一看 知道是否下载。这个是他的全部代码
unit Main;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Labels: Array [0..6] of Tlabel;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k,a,b:integer;
  S,tmp:string;
begin
  Labels[0]:=Label1;
  Labels[1]:=Label2;
  Labels[2]:=Label3;
  Labels[3]:=Label4;
  Labels[4]:=Label5;
  Labels[5]:=Label6;
  Labels[6]:=Label7;
  Randomize;
    i:=1+Random(35);
    S:=intToStr(i);
    labels[0].Caption:=S;
  for j:=1 to 6 do
  begin
    i:=1+Random(35);
    S:=intToStr(i);
      for k:=0 to (j-1) do
      begin
        if S=Labels[k].Caption then
        begin
          i:=1+Random(35);
          S:=intToStr(i);
        end;
      end;
    Labels[j].Caption:=S;
  end;

  for a:=1 to 6 do
  begin
    for b:=0 to (a-1) do
    begin
      if StrToInt(labels[a].Caption)<StrToInt(Labels[b].Caption) then
      begin
        tmp:=Labels[a].Caption;
        Labels[a].Caption:=Labels[b].Caption;
        Labels[b].Caption:=tmp;
      end;
    end;
  end;
end;

end.
dengwensheng_123 20724 2006/1/7 9:28:58
这是一个让我头疼的问题,我对中国的福利事业这么支持,之乎每天都在为这个事业给弄点费用
但是就是得不到有什么好的回报.
fengjidong 17917 2005/9/17 23:15:11
OK
第一页 上一页 下一页 最后页 有 3 条纪录 共1页 1 - 3
 用户名：
 密　码：
自动登陆(30天有效)
 
  DELPHI盒子版权所有 1999-2023 V4.01 粤ICP备10103342号-1 更新RSS列表