delphi一句话帮助终[1]

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