randomize_tw1.pas

来自「基于使用Delphi编写源码的扑克牌游戏源码」· PAS 代码 · 共 51 行

unit Randomize_tw1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
 j,I: integer;
begin
  randomize;
//  Canvas.Font.Color:=clred;

  for j:=1 to 10 do
  begin
    for i:=1 to 52 do
     begin    { Write to window at random locations }
      // showmessage(inttostr(i mod 10));
       if ( i mod 10 )= 0 then
       j:=1;

      Canvas.Textout((i-1)*20,j*20,'      ');
      Canvas.Textout((i-1)*20,j*20,FloatToStr(Random(52)));

    // Canvas.TextOut(Random(Width), Random(Height), 'Boo!');

     end;
   end;
 end;

end.