发信人: teleme(PassWord)
整理人: teleme(2001-02-11 10:31:47), 站内信件
|
主题：一个转换全角数字到半角数字的函数
发信人: yueqs()
做输入处理时经常遇到用户输入全角的数字：２３．２１
如何把它转换成普通数字呢？我写了个小函数，用得着的
朋友可以试一下。
function ConvertQJ2BJ(ObjString :string):string;
var
SW: WideString;
i : smallint;
c : string;
begin
SW := ObjString;
for i :=1 to Length(SW) do
begin
C := SW[i];
if c = '１' THEN SW[I] := '1';
if c = '２' THEN SW[I] := '2';
if c = '３' THEN SW[I] := '3';
if c = '４' THEN SW[I] := '4';
if c = '５' THEN SW[I] := '5';
if c = '６' THEN SW[I] := '6';
if c = '７' THEN SW[I] := '7';
if c = '８' THEN SW[I] := '8';
if c = '９' THEN SW[I] := '9';
if c = '０' THEN SW[I] := '0';
if c = '．' THEN SW[I] := '.';
end;
Result := sw;
end;
[原文 ：北京区精华区]
|
|