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

最新推荐文章于 2017-08-04 17:31:01 发布

原创最新推荐文章于 2017-08-04 17:31:01 发布 · 1.4k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#button #forms #windows #class

delphi-function 专栏收录该内容

17 篇文章

订阅专栏

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

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.