Как вставить содержимое файла в текущую позицию курсора в компоненте TMemo

Муж в больнице после операции. Приехала навестить, а там обход. Врач спрашивает:
-Температура какая?
Он отвечает:
-Нормальная! 33,6...
Врач странно так посмотрела, говорит:
-Это нормальная?
Муж:
-Нет?
А я стою и думаю: Нормальная, не нормальная, а у меня больше и не бывает...

var
  TheMStream: TMemoryStream;
  Zero: char;
begin
  TheMStream := TMemoryStream.Create;
  TheMStream.LoadFromFile('C:.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;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 400 • TDictionary Custom Sort 6 433 • Fast Watermark Sources 6 214 • 3D Designer 9 174 • Sik Screen Capture 6 553 • Patch Maker 6 957 • Айболит (remote control) 6 944 • ListBox Drag & Drop 5 817 • Доска для игры Реверси 96 894 • Графические эффекты 7 150 • Рисование по маске 6 457 • Перетаскивание изображений 5 318 • Canvas Drawing 5 686 • Рисование Луны 5 394 • Поворот изображения 4 934 • Рисование стержней 3 517 • Paint on Shape 2 782 • Генератор кроссвордов 3 647 • Головоломка Paletto 2 945 • Теорема Монжа об окружностях 3 754 • Пазл Numbrix 2 474 • Заборы и коммивояжеры 3 155 • Игра HIP 2 117 • Игра Go (Го) 2 049 • Симулятор лифта 2 410 • Программа укладки плитки 2 103 • Генератор лабиринта 2 562 • Проверка числового ввода 2 253 • HEX View 2 580 • Физический маятник 2 189

Как вставить содержимое файла в текущую позицию курсора в компоненте TMemo

Похожие по теме исходники