检查特殊字符的简单VCL

原创 2002年09月25日 11:00:00

 

这是个很简单的组件,编写它的目的也很单纯,就是想解决数据录入时的特殊字符检查问题。一开始要写函数实现,不过觉得麻烦,后来就想到写一个简单的VCL来遍历Form上所有的组件的方法。这个VCL目前只是检查所有的TEdit和TComboBox组件,有兴趣的朋友可以自己扩充功能。

我想这个VCL对于编写数据库程序的人员来说还是有一点帮助的,比如对单引号的Check。

想要检查什么符号只要在属性中设置一下就搞定,而且运行时只需要执行一个Checking函数,他就会自动检查咯。

它的另一个作用就是可以作为编写VCL的简单入门例程。

 

unit SymbolChecker;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls,StdCtrls,Dialogs,StrUtils;

type
  TCheckControl = (cTEdit, cTComboBox);
  TCheckControls = set of TCheckControl;

  TSymbolChecker = class(TComponent)
  private
    { Private declarations }
    FActive: boolean;
    FCheckControls:TCheckControls;
    FCheckString:String;
    procedure SetActive(Value: boolean);
    procedure SetCheckControls(Value: TCheckControls);
    procedure SetCheckString(Value: String);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
    procedure Checking();
    property Active: boolean read FActive write SetActive default false;
    property CheckControls: TCheckControls read FCheckControls write SetCheckControls default [cTEdit, cTComboBox];
    property CheckString: String read FCheckString write SetCheckString;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyVCL', [TSymbolChecker]);
end;

constructor TSymbolChecker.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  CheckControls := [cTEdit, cTComboBox];
end;

{ Set property Active Value }
procedure TSymbolChecker.SetActive(Value: boolean);
begin
  if Value = FActive then exit;
  FActive := Value;
end;

{ Set property CheckControls Value }
procedure TSymbolChecker.SetCheckControls(Value: TCheckControls);
begin
  if Value = FCheckControls then exit;
  FCheckControls := Value;
end;

{ Set property CheckString Value }
procedure TSymbolChecker.SetCheckString(Value: String);
begin
  if Value = FCheckString then exit;
  FCheckString := Value;
  if Trim(FCheckString) = '' then SetActive(false);
end;

procedure TSymbolChecker.Checking();
var
   I,J:integer;
begin
   { property Active=true then execute }
   if FActive then
   begin
      { property CheckTEdit=true then execute }
         for I:= 0 to owner.ComponentCount - 1 do
         begin
            { Check TEdit }
            if (owner.Components[I] is TEdit) and (cTEdit in CheckControls) then
            begin
               for J :=1 to Length(Trim(FCheckString)) do
               begin
                  if pos(MidStr(Trim(FCheckString),J,1),TEdit(owner.Components[I]).Text)>0 then
                  begin
                     ShowMessage('error symbol!');
                     TEdit(owner.Components[I]).SetFocus;
                     exit;
                  end;
               end;
            end;
            { Check TComboBox }
            if (owner.Components[I] is TComboBox) and (cTComboBox in CheckControls) then
            begin
               for J :=1 to Length(Trim(FCheckString)) do
               begin
                  if pos(MidStr(Trim(FCheckString),J,1),TComboBox(owner.Components[I]).Text)>0 then
                  begin
                     ShowMessage('error symbol!');
                     TComboBox(owner.Components[I]).SetFocus;
                     exit;
                  end;
               end;
            end;
         end;
   end;
end;

end.


最后要说明一点的是它是用Delphi6写的。

:)

检测特殊字符的正则

/**       * 检查输入的数据中是否有特殊字符      * @param qString 要检查的数据      * @param regx 特殊字符正则表达式      * @re...
  • lnniyunlong99
  • lnniyunlong99
  • 2015年10月15日 16:41
  • 773

Vcl控件详解

TTabControl 属性  DisplayRect:只定该控件客户区的一个矩形 HotTrack:设置当鼠标经过页标签时,它的字是否有变化。如果为True,是字会变成蓝色 Images:为...
  • qq_31834115
  • qq_31834115
  • 2016年08月18日 16:16
  • 358

eclipse 怎么取消文件中的特殊字符

一次偶然,把eclipse的文件搞成了这样     解决方法:
  • kvpp0307
  • kvpp0307
  • 2013年11月21日 09:40
  • 946

C++之 检验是否包含特殊字符

// 检验是否包含特殊字符 bool checkTextChineseOrNumberOrLetter(string str) { int badNum = 0; int size = str....
  • Matthew_Fan
  • Matthew_Fan
  • 2012年10月23日 11:22
  • 4829

关于VCL的编写 (一) 怎样编写自己的VCL控件

怎样编写自己的VCL控件       用过Delphi的朋友们,大概对Delphi的最喜欢Delphi的不是他的强类型的pascal语法,而是强大的VCL控件,本人就是一位VCL控件的爱好者。    ...
  • dreamnan
  • dreamnan
  • 2004年09月15日 13:07
  • 2237

H.264分层结构:VCL、NAL

H.264的功能分两层 VCL (VideoCoding Layer,视频编码层):负责高效的视频内容表示。 NAL(NetworkAbstraction Layer,网络提取层):负责以网络所要求的...
  • ivy_reny
  • ivy_reny
  • 2015年07月30日 09:27
  • 951

判断特殊字符函数(特殊字符串,判断的字符串)

 //返回true时不存在特殊字符;返回为false时,表示存在特殊字符  public bool Check(string TeshuStr,string inStr)  {   string st...
  • zyf1203
  • zyf1203
  • 2007年05月13日 08:37
  • 610

ShowModal在VCL和Firemonkey中的使用区别

通常在VCL中,要显示一个子窗口,使用下面的代码:      procedure TForm1.Button1Click(Sender: TObject);      var      ...
  • a00553344
  • a00553344
  • 2015年11月06日 11:17
  • 1187

深入VCL 理解BCB的消息机制 (一)

   
  • cker
  • cker
  • 2001年06月09日 15:53
  • 3297

《Inside VCL(深入核心——VCL架构剖析)》.(李维) 一

一、回到从前:1.1、多任务操作系统是如何设计和实现的? 1.1.1、系统——多个应用程序 方案1:(系统不断读取应用程序状态) 系统通过大型循环(Loop)不断坚持么一个恶用用程序是否触发了特定的事...
  • liang08114
  • liang08114
  • 2016年12月20日 21:03
  • 528
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:检查特殊字符的简单VCL
举报原因:
原因补充:

(最多只允许输入30个字)