精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>一个转换全角数字到半角数字的函数

主题:一个转换全角数字到半角数字的函数
发信人: 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; 

 
[原文 :北京区精华区] 

[关闭][返回]