全角转半角

全角转半角 本人亲测 Function ToDBC(Const AInput: Widestring): Widestring; Edit2.text := ToDBC(Edit1.text);