随机字符串

  function RndString(iLength:longInt):string;
  var
    iCount:longInt;
    sTemp:string;
  begin
    sTemp:='';
    Randomize();
    for iCount := 1 to iLength do begin
      sTemp:=sTemp+Chr(Random(26)+65);
    end;
    Result:=sTemp;
  end;