SysUtils.StrScan、SysUtils.StrRScan、SysUtils.StrPos函数

最新推荐文章于 2017-04-20 00:47:32 发布

Tercel99

最新推荐文章于 2017-04-20 00:47:32 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi-function 文章标签： button forms windows class

本文链接：https://blog.youkuaiyun.com/Tercel99/article/details/4028302

delphi-function 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了Delphi中的字符串搜索函数StrScan、StrRScan和StrPos的使用方法。StrScan用于查找字符首次出现的位置，StrRScan查找最后一次出现的位置，而StrPos则用于查找子字符串首次出现的位置。通过示例代码展示了如何利用这些函数来处理字符串。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

SysUtils.StrScan、SysUtils.StrRScan、SysUtils.StrPos
StrScan : 返回一个字符在一个 PChar 串中第一次出现的位置指针;
StrRScan : 返回一个字符在一个 PChar 串中最后一次出现的位置指针;
StrPos : 返回一个 PChar 串在另一个 PChar 串中第一次出现的位置指针.
--------------------------------------------------------------------------------

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

//StrScan、StrRScan:
procedure TForm1.Button1Click(Sender: TObject);
var
p: PChar;
str: string;
begin
str := 'ABCBBBCBA';
p := StrScan(PChar(str), 'B');
ShowMessage(p); {BCBBBCBA}

p := StrRScan(PChar(str), 'B');
ShowMessage(p); {BA}
end;

//StrPos:
procedure TForm1.Button2Click(Sender: TObject);
var
p: PChar;
str: string;
begin
str := '123456789';
p := StrPos(PChar(str), '456');
ShowMessage(p); {456789}
end;

end.