F
flai
Unregistered / Unconfirmed
GUEST, unregistred user!
我希望我在接收到用户输入全角的数字时自动转换成半角数字，
另外，用户输入句号也自动转换成点。
我应该怎么做？
另外，用户输入句号也自动转换成点。
我应该怎么做？
M
menxin
Unregistered / Unconfirmed
GUEST, unregistred user!
建对照表，扫描转换
F
flai
Unregistered / Unconfirmed
GUEST, unregistred user!
详细一点，好吗？
G
geshicheng
Unregistered / Unconfirmed
GUEST, unregistred user!
关注
F
flai
Unregistered / Unconfirmed
GUEST, unregistred user!
大富翁，真失望！
飞
飞龙在天
Unregistered / Unconfirmed
GUEST, unregistred user!
用对照表转换的方法虽然很土，但确实可行，这样的程序，高手是不愿意写的，还是我写给你吧：
function FtoH(S: string): string;
begin
if S = '１' then
Result := '1'
else if S = '２' then
Result := '2'
else if S = '３' then
Result := '3'
else if S = '４' then
Result := '4'
else if S = '５' then
Result := '5'
else if S = '６' then
Result := '6'
else if S = '７' then
Result := '7'
else if S = '８' then
Result := '8'
else if S = '９' then
Result := '9'
else if S = '０' then
Result := '0'
end;??
end;
function FtoH(S: string): string;
begin
if S = '１' then
Result := '1'
else if S = '２' then
Result := '2'
else if S = '３' then
Result := '3'
else if S = '４' then
Result := '4'
else if S = '５' then
Result := '5'
else if S = '６' then
Result := '6'
else if S = '７' then
Result := '7'
else if S = '８' then
Result := '8'
else if S = '９' then
Result := '9'
else if S = '０' then
Result := '0'
end;??
end;
张
张剑波
Unregistered / Unconfirmed
GUEST, unregistred user!
var
outstring,teststring, mystring:string;
icount:integer;
begin
outstring:='';
mystring:='－１２３４５．６７';
for icount:=0 to (length(mystring) div 2)-1 do
begin
teststring:=copy(mystring,icount*2,2);
outstring:=outstirng+ FtoH(teststring): // 飞龙在天
end;
end;
不知对不对?
outstring,teststring, mystring:string;
icount:integer;
begin
outstring:='';
mystring:='－１２３４５．６７';
for icount:=0 to (length(mystring) div 2)-1 do
begin
teststring:=copy(mystring,icount*2,2);
outstring:=outstirng+ FtoH(teststring): // 飞龙在天
end;
end;
不知对不对?
F
flai
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢以上几位的回答，但是都不是我想要的。
也许是我没有说清楚吧：
是这样的，我的程序界面上有一处是供用户输入出生年月的，因为用户在
输入出生年月之前往往是刚输完姓名，因此有时中文输入法是“全角”状态，
我希望输入全角数字时也能接受，并自动转换成半角数字。除了全角
和半角数字外，其余不接受输入。我想是在OnKeyPress事件中检查。
谢谢！
也许是我没有说清楚吧：
是这样的，我的程序界面上有一处是供用户输入出生年月的，因为用户在
输入出生年月之前往往是刚输完姓名，因此有时中文输入法是“全角”状态，
我希望输入全角数字时也能接受，并自动转换成半角数字。除了全角
和半角数字外，其余不接受输入。我想是在OnKeyPress事件中检查。
谢谢！
D
djh_djh
Unregistered / Unconfirmed
GUEST, unregistred user!
if not (key in LeadBytes+[1..9]) then key=#0
P
peafowl
Unregistered / Unconfirmed
GUEST, unregistred user!
把那个输入法在前面输入完后切换到e文啦，
我一直是这么干的
)
我一直是这么干的
)
X
xianjun
Unregistered / Unconfirmed
GUEST, unregistred user!
高手不愿写我来帮你写[
]
procedure TForm1.Edit1Change(Sender: TObject);
const
RS: WideString = '１２３４５６７８９０。';
RS1 = '1234567890.';
var
I: Integer;
S: string;
begin
S := Edit1.Text;
for I := 1 to Length(RS) do
S := StringReplace(S, RS, RS1, [rfReplaceAll]);
Edit1.Text := S;
Edit1.SelStart := Length(S);
end;
]procedure TForm1.Edit1Change(Sender: TObject);
const
RS: WideString = '１２３４５６７８９０。';
RS1 = '1234567890.';
var
I: Integer;
S: string;
begin
S := Edit1.Text;
for I := 1 to Length(RS) do
S := StringReplace(S, RS, RS1, [rfReplaceAll]);
Edit1.Text := S;
Edit1.SelStart := Length(S);
end;
Y
yugen
Unregistered / Unconfirmed
GUEST, unregistred user!
将控件ImeName属性设为en，这样在获得焦点时会自动切换到英文
F
flai
Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
