На сайте всё бесплатно. Классно, правда? )) | [Свернуть] |
Только одна маленькая просьба, кликните по рекламным объявлениям на странице пару раз если не трудно. Хорошо? Большое спасибо! | |
function TForm1.getAlphaNumericRandom(len: integer) : string; var first: boolean; r,i: integer; toResult: string; begin if (len <= 0) then len:= 1; first:= true; toResult:= ''; Randomize; for i:=1 to len do begin if (first = true) then r:= RandomRange(0,52) else r:= RandomRange(0,62); if (first = false) then if (r < 10) then begin toResult:= toResult + IntToStr(r); continue; end else r:= r - 10; if (r < 26) then toResult:= toResult + chr(65+r); r:= r - 26; if (r >= 0) then toResult:= toResult + chr(97+r); if (first = true) then first:= false; end; result:= toResult; end; $COUNTER$