Delphi开发技巧：字符串的其他操作[1]

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥ 购买>>

返回指定字符串的起始位置

本实例是通过Delphi自带的函数pos()来获取字符串中指定字符的起始位置运行结果如图图所示

程序代码如下

procedure TFormButtonClick(Sender: TObject);

var

sp : String;

begin

s := Private declarations;

p := tion;

ShowMessage(明日的起始位置为+IntToStr(Pos(明日你好明日科技)));

ShowMessage(tion的起始位置为+IntToStr(Pos(ps)));

end;

获得汉字的拼音简码

本实例是通过汉字的前个字节向左移动位后再加上汉字的后个字节所获得的值在定义的汉字拼音表中进行查找以获得汉字的拼音简码运行结果如图所示

图 获得汉字的拼音简码

主要代码如下

function TFormpy(x: string): char;

begin

case word(x[]) shl +word(x[]) of

$BA$BC:result:=A;

$BC$BC:result:=B;

$BC$BED:result:=C;

[] []