摘要: function Fuzhi135(s: string): string;var cCount,eCount,eCountNum,i,isum: Integer;begin cCount := 0; eCount := 0; eCountNum := 0; for i := 1 to length(s) do begin if ByteType(s, i) = mbSingleByte then inc(cCount) else if ByteType(s, i) = mbLeadByte then begin Inc(eCount); eCountNum := eCountNum + 2; 阅读全文
posted @ 2013-08-07 11:29 露水上的青蛙 阅读(273) 评论(0) 推荐(0) 编辑