Combobox1Select

[sli-pro]

procedure TForm1.ComboBox1Select(Sender: TObject);
var
Ini:TIniFile;
i:integer;
const cConst1: array [0..5] of String = ('KTE_SERVER_','KTF_SERVER_','OS_SE RVER_','KTE_OPS_','KTF_OPS','OS_OPS ');
begin
Ini:=TiniFile.Create(extractfilepat h(paramstr(0))+'konfig.ini');
i:=0;
if CheckBox1.Checked then i:=1;
if CheckBox2.Checked then i:=2;
if CheckBox3.Checked then i:=3;
if CheckBox4.Checked then i:=4;
if CheckBox5.Checked then i:=5;
if CheckBox6.Checked then i:=6;
if i=1 then Exit;
if combobox1.ItemIndex=-0 then Exit;
Listbox1.Items.Assign(GetFiles(Ini. ReadString(cConst1[i]+'in',''+IntToStr(combobox1.ItemInd ex),'')));
Listbox2.Items.Assign(GetFiles(Ini. ReadString(cConst1[i]+'out',''+IntToStr(combobox1.ItemIn dex),'')));
Ini.Free;
end;
Значит GetFiles функция поиска файлов, в роди все ок но при выборе в combobox1 к примеру 1 значения бьет ошибку и не ищет файлы...

[3D Hunter]

i должно быть от 0 до 5, соразмерно вашему константному массиву. Присваивайте значение i с нуля при проверке Checked.

[Аватар]

procedure TForm1.ComboBox1Select(Sender: TObject);
const cConst1: array [1..6] of String = ('KTE_SERVER_','KTF_SERVER_','OS_SE RVER_','KTE_OPS_','KTF_OPS','OS_OPS');
var Ini:TIniFile;
    i:integer;
begin
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'konfig.ini');
  try
    i:=0;
    if CheckBox1.Checked then i:=1;   //Здесь не понятный кусок кода,
    if CheckBox2.Checked then i:=2;   //лучше уж RadioButton-ы.
    if CheckBox3.Checked then i:=3;   //CheckBox-ов может быть выбрано несколько, а
    if CheckBox4.Checked then i:=4;   //отработатает только для того из них,
    if CheckBox5.Checked then i:=5;   //по которому анализ позже
    if CheckBox6.Checked then i:=6;
    if i=0 then Exit;
    if combobox1.ItemIndex=-1 then Exit;
    Listbox1.Items.Assign(GetFiles(Ini.ReadString(cConst1[i]+'in','здесь текст или пусто?'+IntToStr(combobox1.ItemIndex),'')));
    Listbox2.Items.Assign(GetFiles(Ini.ReadString(cConst1[i]+'out','здесь текст или пусто?'+IntToStr(combobox1.ItemIndex),'')));
  finally
    Ini.Free;
  end;
end;

[sli-pro]

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

procedure TForm1.ComboBox1Select(Sender: TObject);
const cConst1: array [1..6]   //когда 6 ругается of String = ('KTE_SERVER_','KTF_SERVER_','OS_SE RVER_','KTE_OPS_','KTF_OPS','OS_OPS');
var Ini:TIniFile;
    i:integer;
begin
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'konfig.ini');
  try
    i:=0;
    if CheckBox1.Checked then i:=1;   //Ну эт типо переключение между секциями чтобы сканировало к примеру 1 секцию ини не просто всю секция, а именно их значения
    if CheckBox2.Checked then i:=2;   //эт 2ю секция
    if CheckBox3.Checked then i:=3;   //3 и так далее
    if CheckBox4.Checked then i:=4;   //так вот и нужно чтобы можно было несколько вкл ChecBoxсов отрабатывало
    if CheckBox5.Checked then i:=5;   //
    if CheckBox6.Checked then i:=6;
    if i=0 then Exit;
    if combobox1.ItemIndex=-1 then Exit;
    Listbox1.Items.Assign(GetFiles(Ini.ReadString(cConst1[i]+'in','пусто'+IntToStr(combobox1.ItemIndex),'')));
    Listbox2.Items.Assign(GetFiles(Ini.ReadString(cConst1[i]+'out','пусто'+IntToStr(combobox1.ItemIndex),'')));
  finally
    Ini.Free;
  end;
end;

ну в общем как-то так)

[Аватар]

так вот и нужно чтобы можно было несколько вкл ChecBoxсов отрабатывало

Ну и как несколько вкл CheckBox-ов отработает? По этому коду отработает только последний найденный. Даже если сделать отработку по кажодму вкл, то очередной Listbox.Items.Assign потрет данные от предыдущей записи в него

[sli-pro]

а как сделать через TRadiobutton?

[phomm]

Я бы сделал через TRadioGroup, в нем есть свойство Items - ответственное за набор радиобатонов, манипулировать количеством батонов очень легко, методами списка Items. Отмеченный батон легко узнаётся свойством ItemIndex, без всяких кейсов.

[sli-pro]

ток правильно как сделать)?

[sli-pro]

procedure TForm1.ComboBox1Select(Sender: TObject);
begin
case combobox1.ItemIndex of
0: begin
if CheckBox1.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_in', '1', '')));
if CheckBox1.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_out', '2', '')));
if CheckBox2.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_in', '3', '')));
if CheckBox2.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_out', '4', '')));
if CheckBox3.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_os_in', '5', '')));
if CheckBox3.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_os_out', '6', '')));
end;
1: begin
if CheckBox1.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_in', '1', '')));
if CheckBox1.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_out', '2', '')));
if CheckBox2.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_in', '3', '')));
if CheckBox2.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_out', '4', '')));
if CheckBox3.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_os_in', '5', '')));
if CheckBox3.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_os_out', '6', '')));
end;
2: begin
if CheckBox1.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_in', '1', '')));
if CheckBox1.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_out', '2', '')));
if CheckBox2.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_in', '3', '')));
if CheckBox2.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_out', '4', '')));
if CheckBox3.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_os_in', '5', '')));
if CheckBox3.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_os_out', '6', '')));
end;
3: begin
if CheckBox1.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_in', '1', '')));
if CheckBox1.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_kte_out', '2', '')));
if CheckBox2.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_in', '3', '')));
if CheckBox2.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_ktf_out', '4', '')));
if CheckBox3.Checked then Listbox1.Items.Assign(GetFiles(Ini. ReadString('konfig_os_in', '5', '')));
if CheckBox3.Checked then ListBox2.Items.Assign(GetFiles(Ini. ReadString('konfig_os_out', '6', '')));
end;

И все таки не догоняю я как упорядочить эт, чтобы не писать эти безумные стоки? кода у меня 99 записей и писать 0: begin...99: begin и переписывать if CheckBox3.Checked then ListBox1.Items.Assign(GetFiles(Ini. ReadString('konfig_os_out', '6', ''))); оч много раз нереально...

[Аватар]

Начнем с того, что Listbox1.Items.Assign замещает старое содержимое Items на новое. Замещает, а не добавляет. Что будет в результате последовательности выполнения IF-в? В Items остнется результат последнего IF-а, в котором отработал THEN. Т.е., если CheckBox1.Checked и CheckBox3.Checked, то что мы увидим в Items?