Напомните как в Стринглист удалить повторяющиеся строки?

← →
WebSQLNeederr (2008-05-08 17:54) [0]

Я помню здесь в форуме писали там всего две строки. Подскажите пожалуйста. Буду очень благодарен.

← →
Германн © (2008-05-08 18:01) [1]

Duplicates & Sort если сортировка не мешает.
Если мешает, то в цикле down to IndexOf & Delete

← →
WebSQLNeederr (2008-05-12 18:12) [2]

а чему должен быть равен параметр Duplicates?

← →
Kolan © (2008-05-12 18:22) [3]

А в справке что пишут?

← →
Loginov Dmitry © (2008-05-12 19:09) [4]

for I := List.Count - 1 downto 0 do
if List.IndexOf(List[I]) < I then List.Delete(I);

← →
{RASkov} © (2008-05-12 19:13) [5]

> downto 0

1)

← →
Германн © (2008-05-13 01:11) [6]

> {RASkov} © (12.05.08 19:13) [5]

Угу. Именно downto 1.
И ещё одна личная претензия к [4]. Не люблю переменные цикла именовать заглавными буквами. Не каждый овощ noblesse :)

← →
PZ (2008-05-13 06:22) [7]

А я не люблю обозначать маленькими буквами: их не видно среди прочего текста. Читабельность важна.

> И ещё одна личная претензия к [4]. Не люблю переменные цикла
> именовать заглавными буквами.

Кто-то любит большими называть, кто-то маленькими. Дело привычки. Возможно, сказывается влияние опыта работы на ЯП, для которых нижний регистр - требование.
В Delphi такого требования слава богу нет, поэтому есть выбор. Лично я считаю, что переменные цикла, заданные в верхнем регистре, воспринимаются легче (по крайней мере для меня), но это дело привычки...

> Лично я считаю, что переменные цикла, заданные в верхнем
> регистре, воспринимаются легче (по крайней мере для меня)

и для меня) Но только для меня так же лучше воспринимаются переменные-счетчики N, K, J нежели I и другие....
А если пара циклов пробега по колонкам/строкам, грида например, то C, R т.е.:
for C:=0 to Grid.ColCount-1 do
for R:=0 to Grid.RowCount-1 do begin
....
end;
Вот так мы и живем.... каждому свое :) да уж...

> Не люблю переменные цикла именовать заглавными буквами

Здесь вам не С, здесь вам Pascal Naming Convention, в котором каждый идентификатор начинается с заглавной буквы.

Кому не верится - пусть читает исходные тексты VCL. Наизусть :)

Напомните как в Стринглист удалить повторяющиеся строки? Найти похожие ветки