delphi一句话帮助终

1. 产生随机密码(应该比较有用)

function CreatePass:String;

const

MAX_LEN=10;

var

i: integer;

s: string;

begin

Randomize;

s:=''''ABCDEFGHIJKLMNOPQRSTUVWXYZ'''' ''''abcdefghijklmnopqrstuvwxyz'''' ''''0123456789'''';

Result := '''''''';

for i := 0 to MAX_LEN-1 do

begin

Result := Result s[Random(Length(s)-1) 1];

end;

end;

2. 十进制数字转换成罗马数字

function DecToRoman(iDecimal: longint): string;

const

aRomans: array[1..13] of string = (''''I'''', ''''IV'''', ''''V'''', ''''IX'''', ''''X'''', ''''XL'''', ''''L'''', ''''XC'''',

''''C'''', ''''CD'''', ''''D'''', ''''CM'''', ''''M'''');

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有