WinAPI字符及字符串函數(shù)(15):CharNext、CharPrev

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.