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

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

работа с tmemo [D7]

Marvin ©   (2007-01-08 14:50:00) 

Привет народ, может кто пожет мне с вопросиком

пишу обработку процедуры

открываю текстовый файл в tmemo там много строк
как мне зделать так чтобы по нажатию на кнопку у меня фаил очистился от одинаковых строк (есть 3 одинаковые строки разбросаные по файлу
вот 2 из них должны быть удалены а 3-я осталась)

надеюсь на вашу помощь в решении своего вопроса

---

Джо   (2007-01-09 05:52:00) [1]

Начерно так, в IDE не загружал:

procedure DeleteDuplicates (Lines: TStrings);
var
 I,J: Integer;
begin
 for I := Lines.Count-1 downto 0 do
 begin
   for J := 0 to I-1 do
   begin
     if Lines[I] = Lines[J] then
       Lines.Delete(I);
   end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 DeleteDuplicates(Memo1.Lines);
end;

---

MsGuns   (2007-01-08 16:48:00) [2]

[1]+IndexOf
Но не факт что поможет

---

Anatoly Podgoretsky   (2007-01-08 15:00:00) [3]

> Marvin  (08.01.2007 14:50:00)  [0]

delete

---

Наверх