Tip accessed 83 times
var TheMStream : TMemoryStream; begin TheMStream := TMemoryStream.Create; TheMStream.LoadFromFile('C:\AUTOEXEC.BAT'); TheMStream.Seek(0, soFromEnd); {Null terminate the buffer} {Terminamos el buffer con null} TheMStream.Write(#0, 1); TheMStream.Seek(0, soFromBeginning); Memo1.SetSelTextBuf(TheMStream.Memory); TheMStream.Free; end;