Memo вопросы)

[jone]

Доброго время суток
Прошу вас помочь
1 в моём мемо есть символы "/" мне их нужно все удалить (пробывал StringReplece искал символ и заменятял на нечего неполучалась ) как зделать?
2 ещё в моём мемо есть повтоляющиеся строки от них хотелось бы избавится

Help please..

[Armorer]

Со StringReplece пробовал так?

Memo1.Text := StringReplace( Memo1.Text, '/', '', [rfReplaceAll] );

[Sazary]

в моём мемо есть повтоляющиеся строки от них хотелось бы избавится

---

for i:=0 to Memo1.Lines.Count - 2 do
 begin
 j := i+1;
 while j<=Memo1.Lines.Count - 1 do
  begin
  if Memo1.Lines.Strings[j] = Memo1.Lines.Strings[i] then
   begin
   Memo1.Lines.Delete(j);
   dec(j);
   end;
  inc(j);
  end;
 end;

[jone]

Второе не робит программа просто виснит
за 1 спс



пример



sian777/
sian777/
kur1967/
kur1967/
elya2176/
elya2176/
vavilnat/
vavilnat/

повторяются не все

[jone]

СПС большое вроде работает но 8к строк долго обрабатывает

[Sazary]

jone Смотрите пост #3. Сначало не тот код скопировал. Уже исправил.

[jone]

Объсни как это работает интересно
Можно ли както ускорить процесс?

[Sazary]

for i:=0 to Memo1.Lines.Count - 2 do   //проходим по строкам до предпоследней
 begin
 j := i+1;    //начинаем смотреть со следующей (относительно текущей) строки
 while j<=Memo1.Lines.Count - 1 do    //и до последней
  begin
  if Memo1.Lines.Strings[j] = Memo1.Lines.Strings[i] then   //если две строки равны
   begin
   Memo1.Lines.Delete(j);  //то удаляем ту, что находится дальше
   dec(j);    //т.к. строку удалили, то на ее место встала другая. Ее тоже надо посмотреть
   end;
  inc(j);   //переходим к следующей строке
  end;
 end;

Можно ли както ускорить процесс?

Мне лично как-то в голову не приходит другой метод.

[VVM]

Можно ли както ускорить процесс?

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

[Роман Радер]

скопировать содержимое мемо в переменнную

хм. разве что TStringList.
если в строку - сложнее обрабатывать переносы строк. и дольше - выбор строки нужно разпарсить её на 10 и 13 символы.
ИМХО это дольше