快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记h188怡情:WinAPI 字符及字符串函数(15) CharNext、CharPrev



u和记h188怡情nit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 =和记h188怡情 class(TForm)

Button1: TButton;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

p: PChar;

begin

p := '2009';

p := CharNext(p);

ShowMessage(p); {009}

p := '博客';

p := CharNext(p);

ShowMessage(p); {客}

end;

procedure TForm1.Button2Click(Sender: TObject);

var

p,px: PChar;

begin

p := 和记h188怡情9;2009&#和记h188怡情39;;

px := CharNext(p);

px := CharNext(和记h188怡情px);

ShowMessage(px); {09}

px := CharPrev(p, px);

px := CharPrev(p, px);

ShowMessage(px); {2009}

end;

end.

您可能还会对下面的文章感兴趣: