Question

delphi中怎么产生随机颜色和随机字母

Answer 1

delphi我不懂，不过根据各种语言的共同点
颜色的产生可以通过生成三个随机的0-255的数字来实现
随机字母的生成你可以先定议以下字符串所有备生成的字母
str="abcdefghi......Z"
然后产生一个不大于str长度的随机数n
然后通过字符串函数取出str中的第n个字母

Answer 2

作个form，放一个button和label，给Button1添加如下事件
procedure TForm1.Button1Click(Sender: TObject)；
var

I: Integer；
source:string ；
begin
Randomize；
self.Color:=floor(random(2147483647))；
source:='abcdefghijklmnopqrstuvwxyz'；
Label1.Caption:=copy(source,random(25)，1)；
。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(copy('abcdefghijklmnopqrstuvwxyz',random(25),1));
self.Color:=rgb(random(255),random(255),random(255));
end;

Answer 4

作个form，放一个button和label，给Button1添加如下事件
procedure TForm1.Button1Click(Sender: TObject);
var

I: Integer;
source:string ;
begin
Randomize;
self.Color:=floor(random(2147483647));
source:='abcdefghijklmnopqrstuvwxyz';
Label1.Caption:=copy(source,random(25),1);

end;

end.

Answer 5

NOI