活用

SetSelTextBuf 是 TCustomEdit 类及其子类的文本替换方法，原本用它来置换选定的数据，如我们最常用的 Replace 命令多半是由它来完成的。现在，我们把其延伸使用一下，看会有什么结果。我们先从 SetSelTextBuf 的定义开始：

procedure SetSelTextBuf(Buffer: PChar);

这里，SetSelTextBuf需要一个以空字符结尾字串，所以我们可以知道其后果肯定是一个块操作。在使用 SetSelTextBuf的时候，一般要配合 SelText 属性来确诊是否有文本块被选中，然后才进行下一步。当有被选择的文本对象时，SelText即是其内容，我们可以简单地修改 SelText 来达到目的，一旦被更改的对象比较庞大， SetSelTextBuf 就会被派上用途。我们试想一下，当没有选中或是SelText属性为空 ，这时调用 SetSelTextBuf 就会发生了什么：Buffer 里的东西被填进了当前光标所在的位置。果真如此。这样一来，对于可以格式化的数据流(文本)，利用 SetSelTextBuf 就能大大增强 TCustomEdit类的能力，最起码对于文本的 Insert, Append 就不费多大的气力就容易搞定，尽管 TCustomEdit 类没有提供这样的函数和方法。

下面就来说说这种 Insert 与 Append 如何实现。

Append 对我们来说比较容易，把光标移到文本后，调用 SetSelTextBbuf 即可。而 移动光标最笨最直接的方法就是追加一空字符或空行，然后再将它删了，这在TCustom-Edit 类中简直就是举手之劳。Insert 要相对复杂一些。只要完成了光标的移动，那么在任何地方的插入就容易多了(SetSelTextBuf)。从 TCustomEdit 的定义中我们了解到有一个 SetSelStart 的方法起定义为：

procedure SetSelStart(Value: Integer); virtual;

本身是个虚方法，具体实现是在子类。它仅仅是发送了一个 EM_SETSEL 消息给控件(当前获得焦点的对象), 把光标移到了需要的地方(开始选择之处)，对任何文本都不例外，如把上面的移动‘追加一空字符或空行，然后删除’换成这种方法。学会了移动，还得控制选择的范围为0，这样才能插入。接下来就是：

procedure SetSelLength(Value: Integer); virtual;

这也是个虚方法。不过顾名思义，应该知道它是控制选择长度的函数。这下大家明白该怎么做了吧。最后应该注意的是在各个TCustomEdit子类中，针对不同的构件函数的实现，操作方法应有所不同，如 TEdit、TMemo(无 SetSelStart)、 TRichEdit...。最后是一简单的例子。

TForm1 = class(TForm)

...

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

Button3: TButton;

...

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure rmCreate(Sender: TObject);

begin

//清空 Memo1

ear;

//在未载入任何内容时，禁止使用 Append、Insert

abled := False;

abled := False;

...

end;

//装载任意文本文件

procedure tton1Click(Sender: TObject);

begin

...

adFromFile( leName );

Caption := Hint + 调入: + leName;

abled := True;

abled := True;

...

end;

//在文件头插入

procedure tton2Click(Sender: TObject);

Var

SWA : TMemoryStream; //建立临时交换内存镜象

CNULL : char; //空字符

begin

SWA := NIL;

CNULL := #0;

...

//初始化内存流

SWA := eate;

//加载要插入的文件

adFromFile( leName );

//把指针移到流尾,以 #0 结尾，

ek(0, soFromEnd);

ite( CNULL, 1);

//再移到头

ek( 0, soFromBeginning );

//插入偏移量为 0

lStart := 0;

tSelTextBuf(mory);

....

end;

procedure tton3Click(Sender: TObject);

Var

SWA : TMemoryStream;

CNULL : char; //空字符

begin

SWA := NIL;

CNULL := #0;

...

//初始化内存流

SWA := eate;

//加载要追加的文件

adFromFile( leName );

//把指针移到流尾,以 #0 结尾，

ek(0, soFromEnd);

ite( CNULL5月10日—12日在上海国际展览中心举办首届上海国际茶业交易会。本次展会规模大、形式新, 1);

//再移到头

ek( 0, soFromBeginning );

//把 Memo1 的指针移到 Memo1 尾部

d();

lete( unt -1 );

//追加

tSelTextBuf(mory);

.汇聚起全社会建设创新型城市的强大合力。..

end;

....

查看本文来源