VPF::Memo - вставка строки в нужное место

Johnson

Дата 20.3.2005, 15:30 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Есть строка №3 в компоненте Memo1. Нужно вставить ее в строку №10 в другом компоненте Memo2

FRAGNATIC

Дата 20.3.2005, 15:40 (ссылка)

(нет голосов)

Загрузка ...

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

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

Репутация: 6
Всего: 11

Код


memo2.Lines.Strings[9]:=memo2.Lines.Strings[9]+memo1.Lines.Strings[2];

строки нумеруются с 0 это если те к 10 строке нужно прибавить 3 из другово мэмо а если просто заменить то тогда просто

Код


memo2.Lines.Strings[9]:=memo1.Lines.Strings[2];

Это сообщение отредактировал(а) FRAGNATIC - 20.3.2005, 15:46

Satana

Дата 20.3.2005, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

Репутация: 1
Всего: 5

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
memo2.Lines.Strings[9]:=memo1.Lines.Strings[2];
end;

вроде так
ЗЫ по крайней мере у меня так ща сработало

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Alex

Дата 20.3.2005, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  if memo2.Lines.Count >= 9 then // А, есть ли у нас 10 строка в Memo
    memo2.Lines.Strings[9]:=memo1.Lines.Strings[2];
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

FRAGNATIC

Дата 20.3.2005, 21:42 (ссылка)

(нет голосов)

Загрузка ...

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

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

Репутация: 6
Всего: 11

хе а есть ли у вас в мемо1 3 строки???
темболее надо было или больше 9 или болше и ровно 10)

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
if (memo2.Lines.Count >= 9) and (memo1.Lines.Count >= 2) then
memo2.Lines.Strings[9]:=memo1.Lines.Strings[2];
end

Это сообщение отредактировал(а) FRAGNATIC - 20.3.2005, 21:43

Snowy

Дата 21.3.2005, 08:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Напомню, что строку нужно ВСТАВИТЬ
То есть нужно не присваивать, а делать
Memo2.Lines.Insert(9,Memo1.Lines.Strings[2]);

FRAGNATIC

Дата 21.3.2005, 14:32 (ссылка)

(нет голосов)

Загрузка ...

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

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

Репутация: 6
Всего: 11

Snowy но так оно сдвигает все остольные строки и если там чёт есть то так не выдет а тем кодом + или если надо заменяется 10 строка)
но вообщем один фиг кому как лучше и удобнее)

Snowy

Дата 21.3.2005, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(FRAGNATIC @ 21.3.2005, 14:32)

оно сдвигает все остольные строки

Именно. Не уничтожает 10-ю строку, которая была, а вставляет между ней и 10-й.

Цитата(FRAGNATIC @ 21.3.2005, 14:32)

и если там чёт есть то так не выдет

Что не выйдет? Все как раз выйдет корректно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »