помогите доделать алгоритм из 5-ти совпадений

[beegl]

Привет, помогите доделать алгоритм из 5-ти Cout (Random)

если выпадает 5 совпадений:

if (sel1 > -1) and (sel2 > -1) and (sel3 > -1) or (sel4 > -1) or (sel5 > -1) then
  begin
if (AdvSmoothSpinner2.Columns[0].CustomItems[sel1].PictureName = 'telegram') and
       (AdvSmoothSpinner2.Columns[0].CustomItems[sel2].PictureName = 'telegram') and
       (AdvSmoothSpinner2.Columns[0].CustomItems[sel3].PictureName = 'telegram') and
       (AdvSmoothSpinner2.Columns[0].CustomItems[sel4].PictureName = 'telegram') and
       (AdvSmoothSpinner2.Columns[0].CustomItems[sel5].PictureName = 'telegram') then
//результат для 5-ти одинаковых совпадений

Громоздкий код если для 4-х или 3-х и 2-х совпадений(((((

Как его сократить?

по этому примеру лепил)) :
TMS-Component-Pack-AdvSmoothSpinner

[Аватар]

Сделай массив Sel[0..4] вместо своих Sel-ов

Count:=0;
for i:=0 to 4 do if (Sel[i]>=0) and (AdvSmoothSpinner2.Columns[0].CustomItems[Sel[i]].PictureName = 'telegram') then Inc(Count);

вот тебе и количество совпадений ))

[evg_m]

var sel0, sel1, sel2...: integer; 
var sel: array[0..X]: array of integer;

otvet:=true;
for i:=0 to X do begin
  if (sel[i]<0) or (AdvSmoothSpinner2.Columns[0].CustomItems[sel[i]].PictureName <> 'telegram') then otvet:=false;
end;

[beegl]

Сообщение от Аватар

Сделай массив Sel[0..4] вместо своих Sel-ов

а как результат из одинаковых 4х или 3х совпадений получить?

[Аватар]

см. Count ))

[beegl]

Сообщение от Аватар

см. Count ))

так три совпадения "прочитаю"?

if Count = 2 then
// три совпадения

[Аватар]

Ну если 3 и 2 одно и то же, тогда 3. На самом деле 2 конечно

ps отвечаю на следующий вопрос - если count=5 то 5 совпадений

pss это все на совпадение с telegram, все сложней, если вообще совпадения значений итемов, но и это с помощью циклов в несколько строк

[beegl]

Сообщение от Аватар

ps отвечаю на следующий вопрос - если count=5 то 5 совпадений

значит Count совсем не нужен, а как бы его проверить 4-3-2 одинаковых?)

там как-то if SelEx[i]>=0 then :

if (SelEx[i]>=0) and (AdvSmoothSpinner2.Columns[0].CustomItems[SelEx[i]].PictureName = 'telegram') then

i проверять остается?) .. только условие >=0 не подходит.

Подскажите, какое верное условие необходимо?

[Аватар]

Разжовываю - Count равно числу повторений. Что не так?
Дальше:
>=0 и >-1 и <>-1 идентично для индекса твоих итемов, не бывает он меньше -1

[beegl]

Сообщение от Аватар

>=0 и >-1 и <>-1 идентично для индекса твоих итемов, не бывает он меньше -1

Сообщение от Аватар

>-1 и <>-1

если >-1 то какой результат будет

или, если <>-1 также не понятно, какой результат будет

А надо проверить 4 или 3 или 2 одинаковых совпадений.