Delphi 文本查找函数（一）

本是古典何须时尚 2022-04-15 04:43 406阅读 0赞

一：function Pos(Substr: string; S: string): Integer;

注解：该函数是查找元素第一次出现的位置。

1....  框图：

![20181121171015761.png][]

2 .....代码：

unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Button1: TButton;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
    
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
    str1,word:string;
    i,j:integer;
    begin
      str1:='dsf4654f6<ds>ad<<<' ;
      word:=Edit1.Text;
      j:=pos(word,str1);//在字符串str1中查找"<"
      if j<>0 then   //得到的j是字符串中出现的位置，是整型
      showmessage('<'+'在第'+inttostr(j)+'个位置');  //第十个位置
    end;
    
    end.

3....运行结果：

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70][]

[20181121171015761.png]: /images/20220415/9cea7b40d516479a9abf5cda10a5a96c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3dlaXhpbl80MjUyODA4OQ_size_16_color_FFFFFF_t_70]: /images/20220415/323e9dfc6dd64ce08a4bff387dec8084.png

发表评论取消回复

表情：

评论列表（有 0 条评论，406人围观）

还没有评论，来说两句吧...

相关阅读

相关 jQuery：按文本查找元素

本文翻译自：[jQuery: find element by text][jQuery_ find element by text] Can anyone tell me i

短命女/ 2022年11月29日 05:35/ 0 赞/ 189 阅读

相关【ABAP】文本表查找

SAP透明表怪象不知道细心的胖友们有没有在ABAP有些透明表中发现这样一个问题，明明字段列表中没有某些字段，但是显示内容的时候却会带出，比如下图的例子——“ICON”表

阳光穿透心脏的1/2处/ 2022年08月31日 00:46/ 0 赞/ 114 阅读

相关 delphi常用日期函数

Day 开头的函数使用单元： uses DateUtils ●function DateOf(const AValue: TDateTime): TDateT

曾经终败给现在/ 2022年08月23日 00:47/ 0 赞/ 230 阅读

相关 Delphi 过程与函数

delphi分为过程和函数： delphi 过程以保留字procedure开始，没有返回值；函数以保留字function开始，有返回值。一：过程的框架：

淩亂°似流年/ 2022年04月16日 05:18/ 0 赞/ 351 阅读

相关 Delphi 文本查找函数（一）

一：function Pos(Substr: string; S: string): Integer; 注解：该函数是查找元素第一次出现的位置。 1.... 框图：

本是古典何须时尚/ 2022年04月15日 04:43/ 0 赞/ 407 阅读

相关 Delphi 字符串函数

转发：[https://www.cnblogs.com/gameking/archive/2012/11/08/2760206.html][https_www.cnblogs.

￡神魔★判官ぃ/ 2022年04月14日 20:37/ 0 赞/ 207 阅读

相关 grep命令详解-文本查找

来源：公众号【编程珠玑】作者：守望先生前言之前介绍过很多linux下查找相关的命令，例如《[Linux中的文件查找技巧][Linux]》，《[fi

系统管理员/ 2022年01月23日 13:43/ 0 赞/ 378 阅读

相关 Delphi的Decode解码函数

用法: uses Decode.pas ...... var str : String; ..... str := DecodeLine7Bit('=

待我称王封你为后i/ 2021年11月23日 19:04/ 0 赞/ 339 阅读

相关 delphi Copy函数和 Pos函数

copy（a,b,c); a：就是copy源，就是一个字符串，表示你将要从a里copy一些东西， b：从a中的第b位开始copy（包含第1位）， c：copy从第b位开始

布满荆棘的人生/ 2021年11月22日 12:00/ 0 赞/ 276 阅读

相关 Delphi 字符串函数大全

Delphi 字符串函数大全引用单元： StrUtils; 首部 function AnsiResemblesText(const AText, AOther: str

谁践踏了优雅/ 2021年11月22日 12:00/ 0 赞/ 375 阅读