Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> В текушею позицию в Memo, Срочно надо 
:(
    Опции темы
Pavelbej
Дата 16.8.2005, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 419
Регистрация: 5.7.2005

Репутация: нет
Всего: 6
Как вставить текст в текущею позицию курсора в Memo. Срочно надо и искать по форуму некогда. Хотелось бы исходник вот на этом примере. У меня он вставляет текст но в следуюшею линию а курсор остается в начале документа. Заранее благодарен.

Код

procedure TForm1.ListBox2Click(Sender: TObject);
begin
    Memo1.Lines.append(ListBox2.Items.Strings[ListBox2.ItemIndex]);
    memo1.Tag:=1;
end;
PM MAIL   Вверх
Pakshin A. S.
Дата 16.8.2005, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
попробуй:
Код

Memo1.Text:=Concat(Copy(Memo1.Text, 1, Memo1.SelStart), 'your text', Copy(Memo1.Text, Memo1.SelStart+1, Length(Memo1.Text) - Memo1.SelStart));

Может нужно немного поиграть с параметрами в фукнции Copy() частности где-то прибавить единицу, а где-то ее убрать...
PM   Вверх
Pakshin A. S.
Дата 16.8.2005, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Проверил:
код
Код
 Memo1.Text:=Concat(Copy(Memo1.Text, 1, Memo1.SelStart), 'your text', Copy(Memo1.Text, Memo1.SelStart + 1, Length(Memo1.Text) - Memo1.SelStart));

Работает верно...
PM   Вверх
Quadr0
Дата 16.8.2005, 12:10 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
...

Это сообщение отредактировал(а) Quadr0 - 15.7.2011, 01:11
  Вверх
Pakshin A. S.
Дата 16.8.2005, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
Quadr0 smile
PM   Вверх
Samhein
  Дата 16.8.2005, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Башзэфашовец
**


Профиль
Группа: Участник
Сообщений: 282
Регистрация: 27.6.2005

Репутация: нет
Всего: 3
А вроде еще так можно: smile
Код

Memo1.SetSelTextBuf(Buffer:PAnsiChar);



--------------------
Знаю форум наизусть, но писать еще боюсь
PM   Вверх
FRAGNATIC
Дата 16.8.2005, 13:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
вы чё?
Код

var
  Pos: integer;
  Buf: string;
begin
  Pos := Memo.SelStart;
  Buf :=Memo.Lines.Strings[Memo.CaretY-1];
  Insert('text', buf, Memo.CaretX);
  Memo.Lines.Strings[Memo.CaretY-1] := Buf;
  Memo.SelStart:=Pos+Length('text');
  Memo.SetFocus();
end;
PM MAIL   Вверх
Pakshin A. S.
Дата 16.8.2005, 14:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
FRAGNATIC
ИМХО, вариант от Quadr0 намного меньше...
PM   Вверх
FRAGNATIC
Дата 16.8.2005, 14:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11
Pakshin A. S.
я не говорю что это самый лучший!
но он и фокус востоналвиает куда надо)
я просто показал ещё один фариант)))
PM MAIL   Вверх
Pakshin A. S.
Дата 16.8.2005, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61
FRAGNATIC, сорри... просто не понял...
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0483 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.