Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi

Дата: 02.06.00


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


Считайте файл в TMemoryStream, затем ипользуйте метод TMemo SetSelTextBuf() для вставки текста;

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;



Источник: Дельфи. Вокруг да около.


Чтобы вернуться оцените этот вопрос/ответ:
   

Прислать свои комментарии


Новое на сайте

Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо