Удаление строк в memo

[roxy7]

Как удалять одинаковые слова, кроме пустых строк в memo?

У меня есть код, который удаляет повторяющиеся строки и пустые строки:

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

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

[Serge_Bliznykov]

"пустые" строки - это какие? В которых совсем нет символов? Или есть только пробелы? Или другое? (знаки табуляции, например) ?


ну, попробуйте так:

With Memo1.Lines do
  begin
    for i := 0 to Count - 2 do
      if Length(Trim(Strings[i]))>0 then 
        for j := Count - 1 downto i+1 do
          if Strings[i]=Strings[j] then
             Delete(j);
  end;
end;

[roxy7]

Сообщение от Serge_Bliznykov

"пустые" строки - это какие? В которых совсем нет символов? Или есть только пробелы? Или другое? (знаки табуляции, например) ?


ну, попробуйте так:

With Memo1.Lines do
  begin
    for i := 0 to Count - 2 do
      if Length(Trim(Strings[i]))>0 then 
        for j := Count - 1 downto i+1 do
          if Strings[i]=Strings[j] then
             Delete(j);
  end;
end;

В которых нет никаких символов. Спасибо большое за ваш ответ!