Imported ListBox to button

[rivz2006]

Программа на делфи Местит в себе два типа компонентов:1 - ЛистБокс и 6 - Кнопок. В боксе находятся строки в виде списка. 1я кнопка выполняет действия: при ее нажатии строки должны присвоится кнопкам.
Пример:
Button1.Caption:=ListBox1.Items.Str ings[1].

Но если у меня в программе 6 кнопок которым нужно присвоить значение(имя со списка) а в Бокс всего четыри строки, тоисть первым 4м кнопкам присвоить значения а 2е кнопки (Button5 и Button6) скрыть.
Как это сделать?

P.S.: нужно сделать чтоб эту прпоцедуру также можно было использовать и для 30 кнопок!

[Человек_Борща]

я бы вкинул вкопки в контейнер(к примеру панель или гроббокс).
Далее не хитрый код:

function DoWork(var aListBox:TlistBox; aPanel:TPanel);
var
  iB:Integer;
 begin
   For iB:=0 to aPanel.ComponentCount -1 do
   begin
      if (aPanel.components[iB] is TButton) then
      begin
	  try
	  (aPanel.components[iB] as TButton).Visible:=True;
       (aPanel.components[iB] as TButton).Capion:=aListBox.Items.strings[iB];  
      except //Если можно обратиться к строке aListBox.Items.strings[iB] назовём компонент
       	(aPanel.components[iB] as TButton).Visible:=False;
      end;		
      end;	  
   end;
 end;

try except end я использую чтобы определить, можно ли обратиться к aListBox.Items.strings[iB]. Должна выпасть ошибка, ведь если там ничего нет.. то вроде исключение.

Но на всякий., вместо Try except поставте проверку, если try except не вывалвает исключений:

if not (aListBox.Items.strings[iB] = '') then
begin
  (aPanel.components[iB] as TButton).Visible:=True;
  (aPanel.components[iB] as TButton).Capion:=aListBox.Items.strings[iB];      
end else
   (aPanel.components[iB] as TButton).Visible:=False;

[rivz2006]

Сообщение от Человек_Борща

я бы вкинул вкопки в контейнер(к примеру панель или гроббокс).
Далее не хитрый код:

function DoWork(var aListBox:TlistBox; aPanel:TPanel);
var
  iB:Integer;
 begin
   For iB:=0 to aPanel.ComponentCount -1 do
   begin
      if (aPanel.components[iB] is TButton) then
      begin
	  try
	  (aPanel.components[iB] as TButton).Visible:=True;
       (aPanel.components[iB] as TButton).Capion:=aListBox.Items.strings[iB];  
      except //Если можно обратиться к строке aListBox.Items.strings[iB] назовём компонент
       	(aPanel.components[iB] as TButton).Visible:=False;
      end;		
      end;	  
   end;
 end;

try except end я использую чтобы определить, можно ли обратиться к aListBox.Items.strings[iB]. Должна выпасть ошибка, ведь если там ничего нет.. то вроде исключение.

Но на всякий., вместо Try except поставте проверку, если try except не вывалвает исключений:

if not (aListBox.Items.strings[iB] = '') then
begin
  (aPanel.components[iB] as TButton).Visible:=True;
  (aPanel.components[iB] as TButton).Capion:=aListBox.Items.strings[iB];      
end else
   (aPanel.components[iB] as TButton).Visible:=False;

А можно ваш меил для более детальной консультации!

[rivz2006]

А если попробывать доработать такой вот код:

procedure TForm1.downClick(Sender: TObject);
var j: integer;
begin
up.Visible:=true;
Group_Number:=Group_Number+1;
if Group_Number<=Group_quantity
then
begin
j:=(6*Group_Number)-1;
b6.Caption:=l2.Items.Strings[j];
b5.Caption:=l2.Items.Strings[j-1];
b4.Caption:=l2.Items.Strings[j-2];
b3.Caption:=l2.Items.Strings[j-3];
b2.Caption:=l2.Items.Strings[j-4];
b1.Caption:=l2.Items.Strings[j-5];
end
else
begin
|<--------Место для вставки кода
down.Visible:=false;
// Buttons_Left - оставшее кол-во строк
end;
end;

Программа практически работает но без части кода плохо фунционирует
После нахождения части код программа даст толчек к написанию остальных программ одного большого проэкта.

[rivz2006]

Lines: Integer; // количество строк в списке
Group_quantity: Integer; // целое количество групп
Group_Number: Integer; // номер текущей отображаемой группы
Buttons_Left: Integer; // кол-во оставшихся кнопок
down и up - кнопки вверх\вниз
b1..b6 кнопки которым присваивается строка