скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Импортирование файла в компонент Memo



Автор: Ed Jordan

Как завести дома программиста. (Пособие по разведению и уходу).
Дорогие женщины! Вы наверняка сталкивались с такой проблемой - купили новую мебель, красивый палас, занавески, а в квартире все равно что-то не так. Это означает, что в интерьере не хватает завершающего штриха, а именно - мужа. Мы рекомендуем в этом случае завести дома программиста. Он достаточно неприхотлив, не будет вам мешать и не займет много места. В то же время программист является одной из самых модных и элитарных поpод мужей. Внимательно прочтите описание программиста и подумайте, возможно, это тот, о ком вы мечтали всю жизнь.
Экстерьер.
Программист может быть как маленького, так и большого роста. Он, как правило, имеет длинный волосяной покров с характерной проплешиной на затылке. У многих растут борода и усы (и то, и другое вам придется время от времени подравнивать, чтобы программист не терял товарного вида). Взгляд у программиста слегка блуждающий, а спина красиво изогнута вперед. Короче говоря, программист - вполне достойный внимания и зависти подруг экземпляр.
Первоначальные затраты.
Разведение программистов, к сожалению, связано с большими первоначальными затратами.
Вам понадобятся:
- Персональный компьютер с процессором не ниже Pentium II;
- стол и стул;
- пепельница;
- большое количество сарделек и пиво для прикармливания;
- кофейная чашечка вместимостью 0,5 л.
Места обитания.
Программист обитает в самых различных местах, но проще всего наткнуться на него на больших компьютерных выставках вроде <Комтека>. Если вы начнете охоту не в сезон, когда больших выставок не будет, пройдитесь по компьютерным магазинам. Вы увидите в них три-четыре особи, соответствующие вышеприведенному описанию. Особи будут листать компьютерные журналы либо вести друг с другом пространные беседы с обилием непонятных слов.
Образ жизни.
Программист ведет исключительно ночной образ жизни, поэтому ему необходима отдельная комната. Желательно провести туда и отдельную телефонную линию, иначе вы уже никогда не сможете беседовать со своими подругами. Зато программисту не требуется отдельное спальное место - он будет дремать на вашем диване в те часы, когда вы будете на работе.
Приманивание.
Для приманивания программиста необходима любая деталь, которую вы сможете открутить от заранее купленного компьютера. Hебрежно помахивая ею, приближайтесь к намеченной особи, бормоча какие-либо компьютерные термины. После этого попросите починить ваш якобы случайно сломавшийся компьютер. Программист пойдет за вами, как бы впав в состояние транса. Дома угостите его сардельками и пивом. Скорее всего, программист уже никуда не уйдет.
Способ демонстрации программиста.
Перед тем, как завести программиста, подумайте о том, как вы будете его демонстрировать знакомым. Hе устанавливаете монитор тылом к стене - это серьезная ошибка! Программист, как правило, не отворачивается от монитора, даже если очень громко кричать у него над ухом, и вы сможете показывать подругам только его спину. Поэтому лучше устроить рабочее место так, чтобы программиста можно было обозревать со всех сторон. Hе забудьте также заранее установить в комнате кондиционер, включающийся из коридора, - иначе программиста не будет видно из-за сигаретного дыма.
Дрессировка.
К сожалению, программист практически не поддается дрессировке. Hо небольшие действия вроде походов за хлебом или включения телевизора программист иногда выполняет, особенно, если подкреплять их с помощью условных рефлексов (давать пиво и сардельки). Если программиста удается оттащить от компьютера (кстати, в эти моменты он бывает опасен), можно взять его в магазин и приучить носить авоську. Hеобходимо также учесть, что отдельные простые команды, пригодные для других видов мужей, например "Закрой окно!", программистом понимаются неверно. Следуйте нашим простым рекомендациям - и ваш любимец всегда будет бодр, весел и не перестанет радовать вас и украшать квартиру своим присутствием!

Как мне импортировать файл в элемент управления TMemo начиная с позиции курсора? LoadFromFile заменяет содержимое TMemo содержимым текстового файла. Я хочу включить текстовый файл или в поцизию курсора или, если выбран текст, заменить этот текст содержимым текстового файла. Все это должно быть похоже на работу фунции PasteFromClipboard.

Самый простой путь вставки текста в компонент Memo заключается в посылке ему сообщения EM_REPLACESEL.


{ 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook