WinAPI字符及字符串函数(15):CharNext、CharPrev

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 &＃61; class(TForm)Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
varp: PChar;
beginp :&＃61; &＃39;2009&＃39;;p :&＃61; CharNext(p);ShowMessage(p); {009}p :&＃61; &＃39;博客&＃39;;p :&＃61; CharNext(p);ShowMessage(p); {客}
end;procedure TForm1.Button2Click(Sender: TObject);
varp,px: PChar;
beginp :&＃61; &＃39;2009&＃39;;px :&＃61; CharNext(p);px :&＃61; CharNext(px);ShowMessage(px); {09}px :&＃61; CharPrev(p, px);px :&＃61; CharPrev(p, px);ShowMessage(px); {2009}
end;end.