得到验证码fun

本文主要是介绍得到验证码fun，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

{得到验证码}
function  TFrmLogin.GetVerfCode():string;
var
   i,iLen : integer;
   sNum : string;
   t:TSIzeF;
begin
  Randomize;
  sNum := Format('%.4d', [Random(10000)]);
  t.cx :=48;
  t.cy :=73;
  iLen := Length(sNum);
  try
    for i := 1 to iLen do
    begin
      case i of
        1: imgVerf1.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
        2: imgVerf2.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
        3: imgVerf3.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
        4: imgVerf4.Bitmap.Assign(imglstVerf.Bitmap(t,StrToInt(sNum[i])));
      end;
    end;
  finally
    Result :=sNum;
  end;
end;

这篇关于得到验证码fun的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---