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.
 

相关阅读 >>

Delphi 关闭所有正在运行的程序

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi dbgrid中实现copy、paste功能

Delphi 修改ie首页代码

Delphi 网上获取北京时间idhttpserver and idhttp 使用 encoding utf8

Delphi hook 指定程序窗体和控件的 wndproc

Delphi获取闲置时间

Delphi fmx播放m4a声音文件

idhttp访问网页出现socket error #10054错误

Delphi 删除或清空一个目录(包含多级)

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » WinAPI 字符及字符串函数(15): CharNext、CharPrev