判断类型及是否符合类型值函数

原创 2004年07月09日 16:16:00

//判断类型及是否符合类型值函数
function TReportForm.ControlType(FType : TNrType ; FValue : String): Boolean;
Var
  i : integer;
function CountSubStr(SubStr, Source: string): Integer;
begin
  result := 0;
  while pos(SubStr, Source)<> 0 do
  begin
    inc(result);
    Source := copy(Source, pos(SubStr, Source)+Length(SubStr), $7FFFFFFF);
  end;
end;

begin
  Result := True;
  if FType = DrMoney then
  begin
  if CountSubStr('.',FValue) > 1 then Result := False;     //'.'大于1个
  For i := 1 to Length(FValue) do
    if not (FValue[i] in ['0'..'9','.','$']) then Result := False;     //非法字符
    if not Result then  exit;
  end  //DRMoney
  else if FType = DrNum then
  begin
    For i := 1 to Length(FValue) do
      if not (FValue[i] in ['0'..'9']) then Result := False;     //非法字符
  end//Drint
  else if FType = DrTel then
  begin
    if CountSubStr('-',FValue) > 1 then Result := False;     //'-'大于1个
    For i := 1 to Length(FValue) do
      if not (FValue[i] in ['0'..'9','-']) then Result := False;     //非法字符
    if not Result then  exit;
  end //DrTel
  else if FType = DrEmail then
  begin
    if CountSubStr('@',FValue) <> 1 then
    begin
      Result := False;     //'.'大于1个
      exit;
    end;
  end;
end;

判断一个变量是不是数组Array类型的方法

JavaScript中检测对象的方法  1.typeof操作符  这种方法对于一些常用的类型来说那算是毫无压力,比如Function、String、Number、Undefined等,但是要是检测...
  • dolphin_xujing
  • dolphin_xujing
  • 2016年09月05日 14:46
  • 547

浅谈布尔值类型做条件判断

/*求字符型的和*/ /*#include using namespace std; int main() { char a='a'; wchar_t b=L'袁'; ...
  • abc1988x
  • abc1988x
  • 2014年05月06日 17:41
  • 2471

Swift3.0 类型检查

转载 地址 :http://letsswift.com/2014/06/type-casting/ 类型检查是一种检查类实例的方式,并且或者也是让实例作为它的父类或者子类的一种方式。类型检查在 Swi...
  • u010623068
  • u010623068
  • 2016年10月09日 10:47
  • 1846

js判断对象是否属于Date类型并进行转换

需求说明:前后台交互时,将后台的List集合封装为json传回前端js。而集合中的实体有字段类型为java.util.Date类型。那么后台返回的json对象到前台后 ,此值会为Object,如果直接...
  • xjdAlan
  • xjdAlan
  • 2013年09月06日 09:05
  • 4642

java 判断对象是否是某个类的类型两种方法

一、 instanceof 运算符是用来在运行时指出对象是否是特定类的一个实例。instanceof通过返回一个布尔值来指出,这个对象是否是这个特定类或者是它的子类的一个实例。  用法: ...
  • qq_27376871
  • qq_27376871
  • 2016年07月07日 10:15
  • 15769

Delphi中避免使用ClassName判断对象的类型

在公司原有系统的代码中,我看到了很多判别对象的ClassName属性进行分别处理的代码。而且似乎已经是处理类似问题的标准方法。但是其中可能会隐含一些问题。 首先,我们知道多态是面向对象的三大...
  • wozengcong
  • wozengcong
  • 2013年12月19日 01:16
  • 1325

ExtJs--15--Ext.is*各种类型判断的方法,简单看源码就可以明白了

ExtJs--15--Ext.is*各种类型判断的方法,简单看源码就可以明白了
  • responsecool
  • responsecool
  • 2014年11月14日 13:27
  • 1894

C++怎么判断一个类存在指定的函数名的函数

C++怎么获得一个类存在指定的函数名的函数怎么在编译期获得一个类是否存在指定函数名的函数?#define HAS_MEMBER(member)\ templatestruct has_memb...
  • zhx6044
  • zhx6044
  • 2015年08月05日 12:28
  • 3143

JAVA 有值类型么?

JAVA 有值类型么?原文链接:JAVA 有值类型么?Java 有值类型,原始类型 int,boolean 等是值类型,其实是长久以来的一种误解,它混淆了实现和语义的区别。不要以为 Java 的官方文...
  • u010099495
  • u010099495
  • 2016年06月12日 09:35
  • 386

angularJs数据类型判断

angular.isArray 判断括号内的值是否为数组。 格式:angular.isArray(value); value: 被判断是否为数组的值。 ------------...
  • summerchencongxx
  • summerchencongxx
  • 2016年08月23日 11:50
  • 6496
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:判断类型及是否符合类型值函数
举报原因:
原因补充:

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