Delphi調用WinAPI 字符及字符串函數(15): CharNext、CharPrev

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}

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 := '2009';
　px := CharNext(p);
　px := CharNext(px);
　ShowMessage(px); {09}
　px := CharPrev(p, px);
　px := CharPrev(p, px);
　ShowMessage(px); {2009}
end;

end.