活用 SetSelTextBuf

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...。最后是一简单的例子。

...

type

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 TForm1.FormCreate(Sender: TObject);
begin

//清空 Memo1
Memo1.Clear;
//在未载入任何内容时，禁止使用 Append、Insert
Button2.Enabled := False;
Button3.Enabled := False;
...

end;

//装载任意文本文件
procedure TForm1.Button1Click(Sender: TObject);
begin
...

Memo1.Lines.LoadFromFile( OpenDialog1.FileName );
Caption := Hint + 调入: + OpenDialog1.FileName;
Button2.Enabled := True;
Button3.Enabled := True;
...

end;

//在文件头插入
procedure TForm1.Button2Click(Sender: TObject);
Var
SWA : TMemoryStream; //建立临时交换内存镜象
CNULL : char; //空字符
begin

SWA := NIL;
CNULL := #0;
...
//初始化内存流
SWA := TMemoryStream.Create;
//加载要插入的文件
SWA.LoadFromFile( OpenDialog1.FileName );
//把指针移到流尾,以 #0 结尾，
SWA.Seek(0, soFromEnd);
SWA.Write( CNULL, 1);
//再移到头
SWA.Seek( 0, soFromBeginning );
//插入偏移量为 0
Memo1.SelStart := 0;
Memo1.SetSelTextBuf(SWA.Memory);
....

end;

procedure TForm1.Button3Click(Sender: TObject);
Var
SWA : TMemoryStream;
CNULL : char; //空字符
begin

SWA := NIL;
CNULL := #0;
...
//初始化内存流
SWA := TMemoryStream.Create;
//加载要追加的文件
SWA.LoadFromFile( OpenDialog1.FileName );
//把指针移到流尾,以 #0 结尾，
SWA.Seek(0, soFromEnd);
SWA.Write( CNULL, 1);
//再移到头
SWA.Seek( 0, soFromBeginning );
//把 Memo1 的指针移到 Memo1 尾部
Memo1.Lines.Add();
Memo1.Lines.Delete( Memo1.Lines.Count -1 );
//追加
Memo1.SetSelTextBuf(SWA.Memory);
...

end;
....

查看本文来源