Где хранить данные StringGrid?

[Vyacheslav.]

Ну присвоили вы FN Массиву от комбоБокс 2? и что оно само с нуля начнет дальше считать и до количества строк в items?

[Sciv]

Сообщение от Vyacheslav.

Массивы слишком сложная, непонятная штука, особенно двумерные.

Да вся жизнь сложная и непонятная штука. Но до массивов ей, конечно, далеко...

[Alex11223]

Сообщение от Vyacheslav.

присвоили вы FN Массиву от комбоБокс

как связан этот набор слов?

[Vyacheslav.]

Ну что это значит?

Fn:=MyArray[ComboBox2.ItemIndex];

[Аватар]

Код же просил сократить, вот с помощью массива и сократится. А массив можно или константами заполнить, или с ini-файла, да мало ли откуда

[Vyacheslav.]

А вот у меня там Автоматы, Дробовики, Снайперки, Ножи и т.д.
Как мне сделать в программе возможность сортировать это? Чтобы выбрал "Только автоматы" и показывает в списке только автоматы. Выбрал "Только ножи" - соответственно ножи. С Помощью чекбокса я полагаю? Сделать условие типо
If checkbox1.checked=true then
ComboBox1.Strings[0..15] не знаю как сделать чтобы тогда отображало только автоматы..

[northener]

2 Vyacheslav. Вот уже идет четвертая страница обсуждения вашего вопроса на форуме. А вы до сих пор "ни бум-бум".
Тут есть два варианта продолжения истории. Либо вы садитесь за учебники (справочники/онлайн хелпы) и в каждом ответе тщательно изучаете неизвестные/непонятные вам методы/процедуры. Либо просите кого-нибудь написать вашу программу.

[Vyacheslav.]

А разве форум это не "онлайн хелпы" ? Пишу сам, хочется что то создать. Что не понимаю - спрашиваю. Разве сложно подсказать как сделать фильтр для комбобокса?

procedure TForm4.ComboBox1Change(Sender: TObject);
var
Fn,Ext,Ext2:String;
begin
Case ComboBox1.ItemIndex of
 0:  begin Fn:='SG552';Ext:='txt';Ext2:='jpg'; end;
 1:  begin Fn:='G36C';Ext:='txt';Ext2:='bmp'; end;
 2:  begin Fn:='M4';Ext:='txt';Ext2:='jpg'; end;
 3:  begin Fn:='Классика';Ext:='txt';Ext2:='jpg'; end;
 4:  begin Fn:='Автомат мод.';Ext:='txt';Ext2:='jpg'; end;
 5:  begin Fn:='AUG A3';Ext:='txt';Ext2:='jpg'; end;
 6:  begin Fn:='TAR-21';Ext:='txt';Ext2:='jpg'; end;
 7:  begin Fn:='AH-94';Ext:='txt';Ext2:='bmp'; end;
 8:  begin Fn:='F2000';Ext:='txt';Ext2:='jpg'; end;
 9:  begin Fn:='M16';Ext:='txt';Ext2:='jpg'; end;
 10:  begin Fn:='M870';Ext:='txt';Ext2:='jpg'; end;
 11:  begin Fn:='M1014';Ext:='txt';Ext2:='jpg'; end;
 12:  begin Fn:='M1887';Ext:='txt';Ext2:='jpg'; end;
 13:  begin Fn:='Сайга 20К';Ext:='txt';Ext2:='jpg'; end;
 14:  begin Fn:='MP7';Ext:='txt';Ext2:='jpg'; end;
 15:  begin Fn:='P90 TR';Ext:='txt';Ext2:='jpg'; end;
 16:  begin Fn:='VECTOR';Ext:='txt';Ext2:='jpg'; end;
 17:  begin Fn:='UMP-45';Ext:='txt';Ext2:='jpg'; end;
 18:  begin Fn:='Автомат СУ';Ext:='txt';Ext2:='jpg'; end;
 19:  begin Fn:='AR-57';Ext:='txt';Ext2:='bmp'; end;
 20:  begin Fn:='UZI';Ext:='txt';Ext2:='jpg'; end;
 21:  begin Fn:='AWP';Ext:='txt';Ext2:='jpg'; end;
 22:  begin Fn:='TRG-1';Ext:='txt';Ext2:='jpg'; end;
 23:  begin Fn:='FR F2';Ext:='txt';Ext2:='jpg'; end;
 24:  begin Fn:='M14 EBR';Ext:='txt';Ext2:='jpg'; end;
 25:  begin Fn:='Драгунов';Ext:='txt';Ext2:='jpg'; end;
 26:  begin Fn:='MSR';Ext:='txt';Ext2:='jpg'; end;
end;
Case ComboBox1.ItemIndex of
0,1,2,3,4,5,6,7,8,9:
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Automatic\'+Fn+'.'+Ext);
Image1.Picture.LoadFromFile('Images\Arsenal\Automatic\'+Fn+'.'+Ext2);
end;
end;
Case ComboBox1.ItemIndex of
10,11,12,13:
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Shotgun\'+Fn+'.'+Ext);
Image1.Picture.LoadFromFile('Images\Arsenal\Shotgun\'+Fn+'.'+Ext2);
end;
end;
Case ComboBox1.ItemIndex of
14,15,16,17,18,19,20:
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Tommy-gun\'+Fn+'.'+Ext);
Image1.Picture.LoadFromFile('Images\Arsenal\Tommy-gun\'+Fn+'.'+Ext2);
end;
end;
Case ComboBox1.ItemIndex of
21,22,23,24,25,26:
begin
ValueListEditor1.Strings.LoadFromFile('Images\Arsenal\Sniper_rifle\'+Fn+'.'+Ext);
Image1.Picture.LoadFromFile('Images\Arsenal\Sniper_rifle\'+Fn+'.'+Ext2);
end;
end;
end;

Вот программа уже написана, надо только сделать несколько чекбоксов типо "Только автоматы" и в комбо боксе можно выбирать только автоматы, а при отжатии чекбокса снова появлялось все и т.д. Но не знаю как реализовать это в виде кода. Ну вот

If checkbox1.checked=true then 
ComboBox1.Strings

Вот только что дальше с этими строчками делать, какую процедуру для этого использовать?

[Alex11223]

Под "хелпами" наверно имелась в виду документация, как по кнопке F1 в IDE.

А на форум лучше идти после поиска ответа на вопрос в учебнике/гугле/документации потому что вряд ли кто-то захочет объяснять вам основы (if, циклы, массивы, I/O, ...), да еще и лучше чем это сделано в учебнике. Ну и это просто не эффективная трата вашего времени.

[Sciv]

Сообщение от Vyacheslav.

Разве сложно подсказать как сделать фильтр для комбобокса?

Вам уже подсказали: массивы. И что в итоге?

Заявление

Массивы слишком сложная, непонятная штука, особенно двумерные.

и китайский стиль кодирования:

Case ComboBox1.ItemIndex of
 0:  begin Fn:='SG552';Ext:='txt';Ext2:='jpg'; end;
 1:  begin Fn:='G36C';Ext:='txt';Ext2:='bmp'; end;
 2:  begin Fn:='M4';Ext:='txt';Ext2:='jpg'; end;
 3:  begin Fn:='Классика';Ext:='txt';Ext2:='jpg'; end;
 4:  begin Fn:='Автомат мод.';Ext:='txt';Ext2:='jpg'; end;
 5:  begin Fn:='AUG A3';Ext:='txt';Ext2:='jpg'; end;
 6:  begin Fn:='TAR-21';Ext:='txt';Ext2:='jpg'; end;
 7:  begin Fn:='AH-94';Ext:='txt';Ext2:='bmp'; end;
 8:  begin Fn:='F2000';Ext:='txt';Ext2:='jpg'; end;
 9:  begin Fn:='M16';Ext:='txt';Ext2:='jpg'; end;
 10:  begin Fn:='M870';Ext:='txt';Ext2:='jpg'; end;
 11:  begin Fn:='M1014';Ext:='txt';Ext2:='jpg'; end;
 12:  begin Fn:='M1887';Ext:='txt';Ext2:='jpg'; end;
 13:  begin Fn:='Сайга 20К';Ext:='txt';Ext2:='jpg'; end;
 14:  begin Fn:='MP7';Ext:='txt';Ext2:='jpg'; end;
 15:  begin Fn:='P90 TR';Ext:='txt';Ext2:='jpg'; end;
 16:  begin Fn:='VECTOR';Ext:='txt';Ext2:='jpg'; end;
 17:  begin Fn:='UMP-45';Ext:='txt';Ext2:='jpg'; end;
 18:  begin Fn:='Автомат СУ';Ext:='txt';Ext2:='jpg'; end;
 19:  begin Fn:='AR-57';Ext:='txt';Ext2:='bmp'; end;
 20:  begin Fn:='UZI';Ext:='txt';Ext2:='jpg'; end;
 21:  begin Fn:='AWP';Ext:='txt';Ext2:='jpg'; end;
 22:  begin Fn:='TRG-1';Ext:='txt';Ext2:='jpg'; end;
 23:  begin Fn:='FR F2';Ext:='txt';Ext2:='jpg'; end;
 24:  begin Fn:='M14 EBR';Ext:='txt';Ext2:='jpg'; end;
 25:  begin Fn:='Драгунов';Ext:='txt';Ext2:='jpg'; end;
 26:  begin Fn:='MSR';Ext:='txt';Ext2:='jpg'; end;
end;

А разве форум это не "онлайн хелпы" ?

Нет. И не учебники тоже. Вот онлайн-хелпы:

http://www.delphibasics.ru
https://www.tutorialspoint.com/

Ну и это просто не эффективная трата вашего времени.

Я бы сказал - взаимно неэффективная.