-
编辑 删除
自造字与生僻字输入
一、自造字处理（xp系统下，其他系统适当修改）1、字库更新：拷贝下列内容至新建文本文件Windows Registry Editor Version 5.00[HKEY_CURRENT_USEREUDC936]"SystemDefaultEUDCFont"="C:1EUDC.TTE"将该文本文件重命名为.reg格式的文件，运行该.reg格式文件即可。说明：其中C:1EUDC.TTE为自造字文件EUDC.EUF、EUDC.TTE所放文件夹路径。2、字库复原：拷贝下列内容至新建文本文件Windows Registry Editor Version 5.00[HKEY_CURRENT_USEREUDC936]"SystemDefaultEUDCFont"="C:WINDOWSFONTSEUDC.TTE"将
-
编辑 删除
取得汉字的第一个字母
function GetPYIndexChar( hzchar:string):char;begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4 : result := 'A'; $B0C5..$B2C0 : result := 'B'; $B2C1..$B4ED : result := 'C'; $B4EE..$B6E9 : result := 'D'; $B6EA..$B7A1 : result := 'E'; $B7A2..$B8C0 : result := 'F'; $B8C1..$B9FD : result := 'G'; $B9FE..$BBF6 : result := 'H'; $BBF7..$BFA5 : result := 'J'; $BFA6..$C0AB : result := 'K'; $C0AC..$C2E7 : result := 'L'; $C2E8..$C4C2 : result := '
-
编辑 删除
字符串递增
function TgjcForm.IncreamNo(sNo: String): String;variPos : Integer;iLen : Integer;iNo : Integer;beginiPos := Length(sNo);while (iPos > 0) and (sNo[iPos] in ['0'..'9']) do dec(iPos);if iPos > 0 thenbeginiLen := Length(sNo) - iPos;iNo := StrToInt(Copy(sNo, iPos + 1, iLen));Result := Copy(sNo, 1, iPos) + RightStr(StringOfChar('0', iLen) + IntToStr(iNo + 1), iLen);endelseResult := sNo;end;procedure TgjcForm.Button4Click(Sender: TObject);beginShowMessage (IncreamNo('fg00100227'));end;[@more@]
