发信人: teleme(PassWord)
整理人: teleme(2001-02-11 10:31:47), 站内信件
|
主题:一个转换全角数字到半角数字的函数
发信人: yueqs()
做输入处理时经常遇到用户输入全角的数字:23.21
如何把它转换成普通数字呢?我写了个小函数,用得着的
朋友可以试一下。
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 = '1' THEN SW[I] := '1';
if c = '2' THEN SW[I] := '2';
if c = '3' THEN SW[I] := '3';
if c = '4' THEN SW[I] := '4';
if c = '5' THEN SW[I] := '5';
if c = '6' THEN SW[I] := '6';
if c = '7' THEN SW[I] := '7';
if c = '8' THEN SW[I] := '8';
if c = '9' THEN SW[I] := '9';
if c = '0' THEN SW[I] := '0';
if c = '.' THEN SW[I] := '.';
end;
Result := sw;
end;
[原文 :北京区精华区]
|
|