Question

delphi里面怎么随机 我想做的就是 输入验证码 一个文本框 24字母随机出4个字母

我想做的就是 输入验证码 一个文本框 24字母随机出4个字母 然后用户

输入所随机出的字母 输入正确 进入界面。。错误又随机下。。。

Answer 1

procedure TForm1.FormShow(Sender: TObject);
var
i,j:Integer;
c:Char;
begin
lbl1.Caption:=''; //这个是标签
for j:=0 to 3 do //随机生成4个a到z的字符串
begin
i:=Random(24);
c:=chr(ord('a') + i);
lbl1.Caption:=lbl1.Caption + c;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
if edt1.Text=lbl1.Caption then //成功
ShowMessage('0k')
else
ShowMessage('error');
end;

Answer 2

TheFiend 回复的对的呢
我把他的改成函数了
function ShowRandom:string;
var
i,j:Integer;
c:Char;
begin
Result:='';
for j:=0 to 3 do //随机生成4个a到z的字符串
begin
Randomize;
i:=Random(24);
c:=chr(ord('a') + i);
Result:=Result + c;
end;
end;
这样你用的应该方便些 ，你直接调用一下就可以