您好,欢迎光临! 登陆 注册
xxxx-xxxxxxxx
Delphi自定义函数例子(1)
Delphi自定义函数例子(1)
售价:0 市场价:¥0
节省¥0 可获得:0积分
品牌:其他 货号:
库存:99999 重量:
购买数量:
-
+
相关商品
1.检查字符串是否为纯数字
function TForm1.checkNumber(checkStr:String):Boolean; //检查字符串是否为纯数字
var
 strLength:Integer;
 iCircle:Integer;
 strNumber: set of char;
begin
  Result:=True;

  strNumber:=['0','1','2','3','4','5','6','7','8','9'];

  strLength:=length(checkStr);

   for iCircle:=1 to strLength do
   begin
     if not (checkStr[iCircle] in strNumber) then

      begin

       Result := False;
       break;   //跳出整个for循环

      end;
   end;

end;

2.把一个字符串中的某个子串,用另一个子串去替换
{
  把一个字符串中的某个子串,用另一个子串去替换
   Modified by XieXuJin At 2005-11-28
}
function TForm1.StrReplace(s,oldstr,newstr:string):string; //字符串替换
var
  SelPos,SelLen: Integer;
begin
   SelPos := Pos(oldstr, s);// php91.net   .net   .com  ===>>> php91.com

   while SelPos > 0 do
   begin
      SelLen := Length(oldstr);
      delete(s,SelPos,SelLen);
      insert(newstr,s,SelPos);
      SelPos := Pos(oldstr, s);
  end;
  //(1) .  SelLen = 4
  //       SelPos = 6, delete==>> .===>>  .... insert===>> .com
  Result := s;

end;


3.在字符串前增加前导空格
{
  function BeforeAddBlank(S:string;num:integer):string; //在字符串前增加前导空格
  S:要改变的字符串
  num:返回字符串的长度 要求num长度>=S的位数
}
function TForm1.BeforeAddBlank(S:string;num:integer):string;
var
  strtmp:string;
  I,iBlank:integer;
begin
  strtmp:=trim(S);
  iBlank:=num-length(strtmp);  //空格的数量

  if iBlank>0 then
  begin
    for I:=1 to iBlank do
    begin
      strtmp := ' ' + strtmp;
    end;
      result := strtmp;
  end else
      result := strtmp;

end;


4.返回该月的天数
{
  Year,Mon:年,月份 ;
  返回该月的天数;
}
function TForm1.MonDays(Year,Mon:word):word;
var
  yy,mm,dd,days:word;
  begin
    dd:=1;
    mm:=Mon+1;

  if mm>12 then
  begin
    yy:=Year+1;
    mm:=1;
  end else yy:=Year;

    DecodeDate( EncodeDate( yy,mm,dd)-1 , yy ,mm ,days );
    result:=days;

end;


视频教程下载地址:
链接:https://pan.baidu.com/s/1XBA8nOxJGlmR6Wt2VYElLg 
提取码:pzej 

暂无评论
联系方式:
留言内容:
*
验证码:
*