2020年8月20日
delphi 限制全角字符
摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);var st: PChar;begin if Key in ['$', '^', '&',#163] then Key := #0;end; function SbctoDb 阅读全文
posted @ 2020-08-20 11:19 绿水青山777 阅读(235) 评论(0) 推荐(0) 编辑