截止2004年12月16日 |
本站源码总量RAR压缩为 4,206,733 KB。其中免费源码为 1,124,495 KB,商业源码为 3,082,238 KB!
C/C++ |
129,555 KB |
Delphi |
1,258,381 KB |
Java |
120,937 KB |
.Net |
36,886 KB |
PowerBuilder |
954,525 KB |
Visual Basic |
923,454 KB |
ASP |
259,795 KB |
JSP |
4,987 KB |
其他 |
94,723 KB |
|
|
在TMemo的当前位置插入一个文件的内容 |
|
用一个TmemoStream来读取文件,然后用Tmemo的SetSelTextBuf )方法来插入文本:
var
TheMStream : TMemoryStream;
Zero : char;
begin
TheMStream := TMemoryStream.Create;
TheMStream.LoadFromFile ’C:\AUTOEXEC.BAT’);
TheMStream.Seek 0, soFromEnd);
//Null terminate the buffer!
Zero := #0;
TheMStream.Write Zero, 1);
TheMStream.Seek 0, soFromBeginning);
Memo1.SetSelTextBuf TheMStream.Memory);
TheMStream.Free;
end;
|
|
文章出处: |
|
发表时间:2004-12-24 16:50:03 |
共1条数据记录,分1页显示 上一页 < [1] > 下一页 |
|