| |
| inserting contents of a file at current position in TMemo |
 |
How can I insert the contents of a file at the current position in a TMemo component?
Use a TMemoryStream to read the file, then use the TMemo's SetSelTextBuf() method to insert the text;
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, );
TheMStream.Seek(0, soFromBeginning);
Memo .SetSelTextBuf(TheMStream.Memory);
TheMStream.Free;
end;
|
|
| Hits/month |
2,500,000+ |
Downloads (Since May 2000) |
7,393,709 |
| Total Files |
6,023 |
| Forum msgs |
7,670 |
| Articles/FAQs |
70+/900+ |
Top Selling Software at Amazon
|