TMemo

Code:

var

TheMStream : TMemoryStream;

Zero : char;

begin

TheMStream := TMemoryStream.Create;

TheMStream.LoadFromFile('C:\AUTOEXEC.BAT');

TheMStream.Seek(0, soFromEnd);

//Буфер завершается нулём!

Zero := #0;

TheMStream.Write(Zero, 1);

TheMStream.Seek(0, soFromBeginning);

Memo1.SetSelTextBuf(TheMStream.Memory);

TheMStream.Free;

end;

Code:

{ InsertFileInMemo--

ПРИМЕЧАНИЕ: если вы хотите заменить к настоящему времени

выбранный в Memo текст, передайте в параметре ReplaceSel

TRUE. FALSE необходим для простой вставки текста... }

procedure InsertFileInMemo(Memo: TMemo; FileName: string;

ReplaceSel: Boolean);

var

Stream: TMemoryStream;

NullTerminator: Char;

begin

Stream := TMemoryStream.Create;

try

   { Загружаем текст... }

   Stream.LoadFromFile(FileName);

   { Добавляем в конец текста терминирующий ноль... }

   Stream.Seek(0, 2);

   NullTerminator := #0;

   Stream.Write(NullTerminator, 1);

   { Вставляем текст в Memo... }

   if not ReplaceSel then

     Memo.SelLength := 0;

   SendMessage(Memo.Handle, EM_ReplaceSel, 0,

     LongInt(Stream.Memory));

finally

   Stream.Free;

end;

end;

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  sl: TStringList;

begin

  sl := TStringList.Create;

  try

    sl.LoadFromFile('c:\afile.txt');

    Memo1.SetSelTextBuf(PChar(sl.Text));

  finally

    sl.Free;

  end;

end;