Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] удалить дубликаты слов в строке!?

Автор: GreedyFly 23.6.2013, 16:21

День добрый, как удалить одинаковые слова в строке без мемо или stringlist?
Спасибо...

Автор: Poseidon 23.6.2013, 19:21

Откуда такое условие? TStringList для этого прекрасно подойдет. Если "так написано в задаче", то тема перекочует в Центр помощи.

Автор: Janger 28.6.2013, 09:55

Код


for i:=0 to s1 do
begin
  for j:=0 to s1 do
  begin
    if Memo1.Lines[i]=Memo1.Lines[j] then
    Memo1.Lines.Delete(j);
    break;
  end;
end;

примерно так..)))
s1 - это количество строк в Memo1
s1 можно узнать так вот:

Код


s1:=Memo1.Lines.Count;

Ааа.... я не правильно вопрос прочёл...((((
Сооори....(((

Автор: Akella 28.6.2013, 10:14

Цитата(GreedyFly @ 23.6.2013, 16:21

)

как удалить одинаковые слова в строке

я просто ФШОКЕ smile

https://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=delphi+%D0%BA%D0%B0%D0%BA+%D1%83%D0%B4%D0%B0%D0%BB%D0%B8%D1%82%D1%8C+%D0%BE%D0%B4%D0%B8%D0%BD%D0%B0%D0%BA%D0%BE%D0%B2%D1%8B%D0%B5+%D1%81%D0%BB%D0%BE%D0%B2%D0%B0+%D0%B2+%D1%81%D1%82%D1%80%D0%BE%D0%BA%D0%B5

Автор: Poseidon 28.6.2013, 14:20

Akella, ты не шаришь. smile

Сказано же "без мемо или stringlist". Да еще и искать надо... Зачем? На форум напишу, ща быстро мне ответят.

Перенесено в "Центр помощи".