登录
首页 » Delphi源码 » Delphi 获取两个子字符串之间的字符个数

Delphi 获取两个子字符串之间的字符个数

于 2022-01-26 发布 文件大小:6.25 kB
0 90
下载积分: 2 下载次数: 1

代码说明:

Delphi 获取两个子字符串之间的字符个数,也就是这个字符串由A/B/C三个字符组成,本例子是求A/C中间的所有字符串的个数,空格同样也包括在内。定义两个函数即可实现本功能:   Function TForm1.Strcount( s, s1, s2 : string ): integer;   var    i,j,slen : integer;   begin    i := pos( s1, s );    j := pos( s2, s );    slen := Length(s1);    if j >= i then    Result := j - i - slen    else    Result := 0;   end;   procedure TForm1.Button1Click(Sender: TObject);   var    n : integer;   begin    n := Strcount(Edit1.Text,Edit2.Text,Edit3.Text);    showmessage(IntToStr(n));   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论


0 个回复

  • Delphi 7.0 显示密编辑框中的密
    Delphi 7.0 源代码示例演示:显示密码编辑框中的密码,也就是获取Edit组件中的内容,显示给用户,在代码编写时,可参考下边的几行代码:   L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度,并将长度加1   GetMem(Name,L);//为将要得到的名字分配内存   GetWindowText(Edit1.handle,Name,L);//得到名字   label1.Caption:=String(Name);//将得到的名字显示于Label1   FreeMem(Name,0); //释放分配的内存   完整的源代码请下载。
    2022-04-06 19:23:17下载
    积分:1
  • Delphi 键盘钩子 封锁 windows 热键
    Delphi 键盘钩子 封锁 windows 热键,封锁范围,可参见以下代码:    keycost := LPKBDLLHOOKSTRUCT(lParam);    if (keycost.vkCode=91) then//封锁win键    exit;    if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then    exit; //封锁 ALT+TAB    if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then    exit; //封锁 ALT+F4    if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then    exit; //封锁 ALT+ESC    if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)
    2023-03-30 06:05:03下载
    积分:1
  • Delphi 百叶窗的方式显示图像
    百叶窗效果的图像显示,这个效果我觉得大家不会陌生吧,在电视上、电脑上,这种切换图片显示的方式还是挺常见的,像百叶窗的样式,本效果重在演示图像的解析。
    2022-02-04 23:25:14下载
    积分:1
  • Delphi开发的模型飞机测控平台 附
    Delphi开发的模型飞机测控平台 附源代码,里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧,还包括了许多操作函数,比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。   由于有调试目的,如果要求发送字符格式的数据,就直接发送用户输入的字符串,其他情况下,都是发送打包好的数据矩阵。   调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥,目的是把发送的数据保存在各个线程中。   在此提示: 由于传输系统总会有一定的吴码率,那么为了避免轨迹图出现问题,例如坐标范围过大需要除去粗大误差,考虑到模型飞机的飞行速度不会超过10m/s,考虑到数子传输系统的下传速度,设定如果位置变化超过20m就去掉。
    2022-08-16 19:54:45下载
    积分:1
  • Delphi 演示如何播放GIF动画
    Delphi 演示如何播放GIF动画,其实就是在窗口中显示GIF图像,这是一种连续显示类似于动画效果的图像格式,在窗体上只要可以正常显示这种文件,就能实现播放功能,如示例截图所示的效果。
    2023-05-10 00:50:04下载
    积分:1
  • Delphi 编写的VOD视频点播及后台管理系统
    Delphi 编写的VOD视频点播及后台管理系统,这套系统既是一套多媒体系统,也是一套数据库系统,VOD部分的功能有:KTV管理系统,编号点歌、轻音乐、拼音点歌、迪士高、明星点歌、DVD影院、播放列表、歌曲管理等。
    2022-01-24 15:29:37下载
    积分:1
  • Delphi 修改网络设置DNS地址
    Delphi 修改网络设置DNS地址,这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息,由用户指定待修改的新DNS地址,输入地址框,单击“修改”按钮即可完成修改。因此通过本程序,你可以了解许多注册表方面的操作技巧,以及网络设置相关知识。
    2022-02-14 09:59:16下载
    积分:1
  • Delphi 演示0~N位数的任意组合
    Delphi 数列的排列组合一例,演示0~N位数的任意组合,组合的数字在0~5之间,需要输入1~6整数,排列结果会显示在文本框组件中。要点代码如下:   ssList := TStringList.Create;   try    if (nBase < 1) then    begin    end    else    begin    if (sList.Count = 0) then    begin    for nIdx := 0 to num-1 do    ssList.Add(a[nIdx]);    end    else    begin    for nIdx := 0 to num-1 do    for nSidx := 0 to sList.Count-1 do    if (Pos(a[nIdx], sList.Strings[nSidx]) = 0) then    ssList.Add(a[nIdx]+sList.Strings[nSidx]);    end;    Combine(nBase-1, ssList);    end;    if ssList.Count > 0 then    begin    sList.Clear;    sList.Text := ssList.Text;sslist.Count    end;   finally    ssList.Free;   end;
    2022-04-29 16:59:03下载
    积分:1
  • Delphi7 向XML中添加RTTI信息
    Delphi7.0 向XML中添加RTTI信息,这个例子挺简单,希望大家喜欢,面向Delphi新手的,高手请绕道哦,下面是本例Delphi向XML中添加RTTI信息的关键性代码:   procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent);   var    nProps, i: Integer;    PropList: PPropList;    Value: Variant;    newNode: IXmlNode;   begin    nProps := GetTypeData (Comp.ClassInfo)^.PropCount;    GetMem (PropList, nProps * SizeOf(Pointer));    try    GetPropInfos (Comp.ClassInfo, PropList);    for i := 0 to nProps - 1 do    begin    Value := GetPropValue (Comp, PropList [i].Name);    NewNode := iNode.AddChild(PropList [i].Name);    NewNode.Text := Value;    if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then    if TObject (Integer(Value)) is TComponent then    NewNode.Text := TComponent (Integer(Value)).Name    else    ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent);    end;    finally    FreeMem (PropList);    end;   end;
    2022-01-26 03:00:57下载
    积分:1
  • Delphi 限制窗口最大化显示
    Delphi 限制窗口最大化显示,当用户单击最大化按钮后,窗口稍微变大了一点,但并没有最大化,有时候,我们需要限制,不让窗口最大化,在编写实现此功能时,定义了WMGetMinMaxInfo,以下代码在函数中定义,用户操作按钮,激活函数:   with Message.MinMaxInfo^ do   begin   ptMaxSize.X := 400; //最大化时宽度   ptMaxSize.Y := 300; //最大化时高度   ptMaxPosition.X := 120; //最大化时左上角横坐标   ptMaxPosition.Y := 120; //最大化时左上角纵坐标   end;   Message.Result := 0; //通知Windows改变了minmaxinfo
    2022-01-24 18:38:10下载
    积分:1
  • 696518资源总数
  • 104441会员总数
  • 19今日下载