Главная страница | назад





Article #15717: inserting contents of a file at current position in TMemo

 Question and Answer Database
FAQ717D.txt inserting contents of a file at current position in TMemo
Category :VCL
Platform :All
Product :All 32 bit
Question:
How can I insert the contents of a file at the current
position in a TMemo component?
Answer:
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, 1);
TheMStream.Seek(0, soFromBeginning);
Memo1.SetSelTextBuf(TheMStream.Memory);
TheMStream.Free;
end;
7/16/98 4:31:28 PM

Last Modified: 01-SEP-99