| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с мемо [D7, XP]

tigraman ©   (2007-04-17 00:24:00) 

Я понимаю конечно что глупый вопрос, но всетаки, подскажите как из мемо поудалять все одинаковые строки, я делю так:

for i:=0 to Memo3.Lines.Count-1 do  begin
for j:=0 to Memo3.Lines.Count-1 do begin

if memo3.Lines.Strings[i]=memo3.Lines.Strings[j]
then  
    memo3.Lines.Delete(j);
 end; end;


но не все одинаковые строки удаляются почему то, подскажите как правильно. А также если работать с массивом строк, а не с мемо, будет ли программа работать быстрее?

---

{RASkov}   (2007-04-17 14:36:00) [1]

> [4] Tigraman   (17.04.07 14:32)
:)
> Что-то напоминает [1] неправда ли?

Я хотел выделить этим о двух циклах в разных направлениях.... вот. И то - что в [3] - оно наверное не правильно будет работать.... только подправил код из [0] для примера. "плохого"...

---

Tigraman   (2007-04-17 14:32:00) [2]

Вот этот код работает быстрее последнего:

with Memo1.Lines do begin
for i:=Count-1 downto 1 do
  if IndexOf(Strings[i]) <> i then Delete(i);
end;


Последний также подвисает при больших объемах данных.
Спасибо всем.

---

{RASkov}   (2007-04-17 02:31:00) [3]

Хотя мысль была почти в правильном направлении, зря посмеялся, ну да ладно улыбнуло :)

for i:=Memo3.Lines.Count-1 downto 1 do begin
for j:=0 to i-1 do begin
 if memo3.Lines[i]=memo3.Lines[j] then memo3.Lines.Delete(j);
end;
end;

> [0] tigraman
Что-то напоминает [1] неправда ли?

---

{RASkov}   (2007-04-17 02:11:00) [4]

> [0] tigraman   (17.04.07 00:24)

Гениальный подход... Перед сном посмеялся :)

> [1] Германн ©   (17.04.07 01:26)

:)

---

Германн   (2007-04-17 01:26:00) [5]

> tigraman   (17.04.07 00:24)
>
> Я понимаю конечно что глупый вопрос, но всетаки, подскажите
> как из мемо поудалять все одинаковые строки,


with Memo3.Lines do
 for i:=Count-1 downto 1 do
   if Strings.IndexOf(Strings[i]) <> i then Strings.Delete(i);

{RASkov} и ЮЗ - простите за банальность!
:-)

---

Наверх