Недавно добавленные исходники

•  TDictionary Custom Sort  538

•  Fast Watermark Sources  904

•  3D Designer  1 830

•  Sik Screen Capture  1 478

•  Patch Maker  1 486

•  Айболит (remote control)  1 410

•  ListBox Drag & Drop  1 177

•  Доска для игры Реверси  21 939

•  Графические эффекты  1 357

•  Рисование по маске  1 297

•  Перетаскивание изображений  1 096

•  Canvas Drawing  971

•  Рисование Луны  814

•  Поворот изображения  771

•  Рисование стержней  815

•  Paint on Shape  493

•  Генератор кроссвордов  762

•  Головоломка Paletto  667

•  Теорема Монжа об окружностях  855

•  Пазл Numbrix  619

•  Заборы и коммивояжеры  850

•  Игра HIP  557

•  Игра Go (Го)  527

•  Симулятор лифта  549

•  Программа укладки плитки  509

•  Генератор лабиринта  565

•  Проверка числового ввода  524

•  HEX View  600

•  Физический маятник  528

•  Задача коммивояжера  560

 
скрыть


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

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



Импортирование файла в компонент 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;





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

Разбиение файла на части

Текст внутри файла

Расширение компонента TEdit

Компонент TDBF

 

Memory Manager

Shared Memory

Numbers Memory

xIPMemo

 

Memo Edit Errors Messages

Memory Monitor

Memory Using in System

Simple Memory Seeker

 

Process Memory Map




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

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