VPF::строки в TMemo - Форум программистов

RWander

Дата 7.5.2006, 21:35 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 349
Регистрация: 4.5.2006
Где: Russia.Udm.Izhevs k

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

Это может быть глупый вопрос smile

, но у меня не получается: програмно перейти на новую строку в TMemo.

Это сообщение отредактировал(а) RWander - 7.5.2006, 21:35

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

Microsoft Certified Technology Specialist - ASP.NET Applications

Тьма

Дата 7.5.2006, 21:54 (ссылка)

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

Загрузка ...

Опытный

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

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

memo1.lines.add()
или я не правильно понял?

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

Vir magni ingenii

RWander

Дата 7.5.2006, 21:56 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 349
Регистрация: 4.5.2006
Где: Russia.Udm.Izhevs k

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

Цитата

memo1.lines.add()

Пробовал - не получается.

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

Microsoft Certified Technology Specialist - ASP.NET Applications

Тьма

Дата 7.5.2006, 22:00 (ссылка)

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

Загрузка ...

Опытный

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

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

покажи код

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

Vir magni ingenii

RWander

Дата 7.5.2006, 22:11 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 349
Регистрация: 4.5.2006
Где: Russia.Udm.Izhevs k

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

происходит обход дерева TreeView1, если текст узла - 'строка', то этот текст копируется на новую строку в Memo1.

Код


  for i := 0 to Form1.TreeView1.Items.Count - 1 do
      if Form1.TreeView1.Items[i].Text = 'строка' then
         begin
           ...
           Form1.Memo1.Lines.Add(Form1.TreeView1.Items[i].Text);
           ..
         end;

вроде должно работать.

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

Microsoft Certified Technology Specialist - ASP.NET Applications

Тьма

Дата 7.5.2006, 22:15 (ссылка)

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

Загрузка ...

Опытный

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

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

у меня все прекрастно работает, может у тебя код там где "..." бочинит что-то?
или нету 'строка' а есть 'Строка'?

Это сообщение отредактировал(а) Тьма - 7.5.2006, 22:16

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

Vir magni ingenii

RWander

Дата 7.5.2006, 22:30 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 349
Регистрация: 4.5.2006
Где: Russia.Udm.Izhevs k

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

Цитата

'строка' а есть 'Строка'

На самом деле 'строка' я написал для краткости, у меня проверка идет на другие строки.

У меня копируется только на первую строку, а на вторую переходить уже не хочет. Может быть перед тем как переходить на новую строку, нужно ее сначало создать, например так Form1.Memo1.Lines.Create, хотя так я тоже пробовал.

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

Microsoft Certified Technology Specialist - ASP.NET Applications

vv3

Дата 7.5.2006, 23:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Memo1.Lines.Append()

Poseidon

Дата 8.5.2006, 00:07 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Memo1.Text:= Memo1.Text + #13 smile

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sunvas

Дата 8.5.2006, 00:45 (ссылка)

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

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

Цитата(Poseidon @ 8.5.2006, 00:07

)

Memo1.Text:= Memo1.Text + #13

и это у тебя работает?? Срочно лечи делфю свою!

Код


Memo1.Lines.Add('');

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Guedda

Дата 8.5.2006, 08:23 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(Poseidon @ 8.5.2006, 01:07

)

Memo1.Text:= Memo1.Text + #13 smile

Тогда уж лучше так:

Код


Memo1.Text := Memo1.Text + #10#13;

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

Ll 2

vv3

Дата 8.5.2006, 10:12 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ерунда. В таком варианте все работает. Дай полный текст. Ошибка где-то в другом месте. Скорее всего Memo1.Lines.Clear отрабатывает ВНУТРИ цикла обхода дерева.

Демо

Дата 8.5.2006, 12:16 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

Цитата(Guedda @ 8.5.2006, 08:23

)

#10#13;

#13#10

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

Poseidon

Дата 8.5.2006, 13:11 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Sunvas @ 8.5.2006, 00:45

)

и это у тебя работает?? Срочно лечи делфю свою!

Работает. А чем собственно дело?

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

RWander

Дата 8.5.2006, 13:53 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 349
Регистрация: 4.5.2006
Где: Russia.Udm.Izhevs k

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

Проблема решена.

Правильный вариант:

Код


Memo1.Lines.Add('...');

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

Microsoft Certified Technology Specialist - ASP.NET Applications

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