[ALexandr555]

Код:

1 2 3 4 5 6 7 8 9 10

begin   s := TStringList.Create;   s.LoadFromFile('love.txt'); for i:=0 to s.Count-1 do     for k:=1 to Length(s.Strings[i]) do       if(s.Strings[i][k] = s.Strings[i][k]) then        begin          s.Delete(i);         end; s.SaveToFile('love.txt');

пробую таким способом их сравнивать и удалять, чтото не выходит

[Bargest]

Код:

1	if(s.Strings[i][k] = s.Strings[i][k]) then

Вообще-то символ строчки всегда равен самому себе.
Если ты хочешь удалить все строки-дубликаты, то надо как-то так:

Код:

1 2 3 4

for i:=0 to s.Count - 2 do  for j:=i+1 to s.Count - 1 do   if s.Strings[i]=s.Strings[j] then    s.Delete(j);

[ALexandr555]

она компилируется но выдает ошибку "List index out of bounds (4)" при выполнении

[lmikle]

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

она компилируется но выдает ошибку "List index out of bounds (4)" при выполнении

Конечно выдает.
Ты удаляешь строчку, т.е. меняешь из кол-вл. А цикл for с превычислимым условием. соответсвенно, после удаления у тебя кол-во строк меньше, чем условие окончания цикла.
Соответсвенно, надо делать цикл с конца до начало, т.е. от Count-1 до 0.

[Страдалецъ]

А если так сделать?

Код:

1 2 3

s := TStringList.Create; s.Sorted := True; s.LoadFromFile('love.txt');

Не надо будет ничего удалять ручками, получите уникальный набор строк, т.к. действует по умолчанию s.Duplicates := dupIgnore;

[ALexandr555]

Страдалецъ благодарю, очень здорого

[ALexandr555]

он даже в алфавитному порядку выстраивает
P.S. Помогают одни и те же, а репу повысить форум не дает мол надо повысить комуто другому прежде чем вам)

[Михалыч]

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

он даже в алфавитному порядку выстраивает
P.S. Помогают одни и те же, а репу повысить форум не дает мол надо повысить комуто другому прежде чем вам)

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