摘要:
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; 阅读全文