博客代码着色测试

其实着色代码是借用的万一老师博客的（地址：http://www.cnblogs.com/del/archive/2008/12/29/1364357.html），着色说明和代码都已经在那篇文章里说明了。感觉着色效果很好，不过我对那个着色脚本修改了下，把数值类型改成了红色，字符类型改成了粉色(个人习惯)，呵呵。

效果如下：

function GetRandomName:string;  {产生随机字符}
var
    SourceStr,Str:String;
     i:integer;
begin
     SourceStr:='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
     for i:=1 to 16 do Str:=Str+SourceStr[Random(51)+1];
     Result:=Str;
end;