08 2020 档案

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