Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Вниз

работа с tmemo   Найти похожие ветки 

← →
Marvin ©   (2007-01-08 14:50) [0]

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

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

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

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

---

← →
Anatoly Podgoretsky ©   (2007-01-08 15:00) [1]

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

delete

---

← →
MsGuns ©   (2007-01-08 16:48) [2]

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

---

← →
Джо ©   (2007-01-09 05:52) [3]

Начерно так, в 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;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.01.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.05 c