как сделать чтобы картинка менялась соответственно выбранному в комбобоксе значению

[ArtGrek]

вы хотите програмно из таблич заполнить второи комбобокс?

[voverrr]

да.
если точнее - из верхней строки таблицы заполняется первый комбобокс, из колонки №1(если в первом комбе выбрано первое значение) - заполняется второй комбобокс.

вот что-то я накидал.
на форме комбобокс1, комбобокс2, стринггрид(5 столбцов, 15 строк), батон.

заполняем таблицу, в первом комбике появляется список из значений, которые числятся в самой верхней строке.
во втором комбике появляются списки из значений в столбиках под соответствующими верхними ячейками.

procedure TForm1.btn2Click(Sender: TObject);
          var i, j: Integer; {индексы строк и столбцов таблицы}
 s, k:string; {для считывания содержимого ячеек таблицы}


     begin
         cbb1.Clear;  {стираем ранее внесенные данные в комбобокс}
            with strngrd1 do
      begin

        for i:=1 to ColCount-1 do  

            begin
              s:=Cells[i,1];     {считываем текстовую информацию из текущей ячейки}
              cbb1.items.add(s); {добавляем ее в комбобокс}
            end;

         for j:=1 to rowcount-1 do
           begin
            k:=Cells[cbb1.Itemindex, j];///////вот тут Cbb1.itemindex - не действует, такой функции сопсно и нет. На этом месте нужен номер строки, которая в данный момент активна в Cbb1

            cbb2.Items.Add(k);
           end;

        end;

     end;

[voverrr]

вот такой получился код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;

type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    btn2: TBitBtn;
    cbb1: TComboBox;
    cbb2: TComboBox;
    lbl1: TLabel;
    procedure btn2Click(Sender: TObject);
    procedure cbb1Change(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn2Click(Sender: TObject);
          var i, j: Integer;
 s:string;
     begin
         cbb1.Clear;  {ñòèðàåì ðàíåå âíåñåííûå äàííûå â êîìáîáîêñ}
            with strngrd1 do
      begin

        for i:=1 to ColCount-1 do

            begin
              s:=Cells[i,1];     {ñ÷èòûâàåì òåêñòîâóþ èíôîðìàöèþ èç òåêóùåé ÿ÷åéêè}
              cbb1.items.add(s); {äîáàâëÿåì åå â êîìáîáîêñ}

            end;
        end;
     end;
procedure TForm1.cbb1Change(Sender: TObject);
var f,j : Integer;
k: string;
     begin
         cbb2.Clear;  {ñòèðàåì ðàíåå âíåñåííûå äàííûå â êîìáîáîêñ}
            with strngrd1 do
      begin
        for j:=1 to RowCount-1 do
            begin
              f:= cbb1.ItemIndex;
              lbl1.Caption:=  IntToStr(f);
              k:=Cells[f+1,j+1];
              cbb2.items.add(k);
            end;
        end;
     end;

end.

вот такое окошко он генерирует:


вроде бы всё работает. С той лишь разницей, что таблица эта мне нужна в отдельном окне. Ну, да с этим я справлюсь.

Вопрос - как зохранить таблицу со значениями, чтобы при следующем запуске она была заполнена?

[ArtGrek]

мож я совсем тупои, но всеравно не понял) извените
вот тут я набросал кое что, если деиствия програмы чем то напоминают то что хотите, объясните на пальцах что не так помогу
таблицу заполните так:
1 5
2 6
3 7
4 8

[voverrr]

мммм...
не совсем так.

грубо говоря
комбобокс1 = 1
комбобокс2 = 2,3,4


комбобокс1 = 5
комбобокс2 = 6,7,8

Это просто я неясно формулирую вопросы свои.
ну да ладно, с этим-то вроде бы разобрался тут(вот в том коде из предыдущего поста). Вот как бы туда сделать кнопки, чтобы можно было добавлять колонки и строки.

И сохранять значения в таблице при закрытии.

[ArtGrek]

сеичас понял), сеичас помогу

[ArtGrek]

ну вот...

P.S. вы ведь понимаете что происходит в програмке?

а сохранять ето или связывать с Exel или в TXT

[voverrr]

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

А Ваш-то код гораздо короче))) В принципе - то же самое, но скомпонован не по-индусски))

Сохранить в тхт - это значит в папке с программой должен всегда где-то рядом лежать ещё этот тхт-файл?

[ArtGrek]

а что б сохранит, что то должно лежать, если конешно ето не один и тот же текст которыи можно сохранить в программу

[voverrr]

Спасибо за помощь! Что-то тут плюс в репутацию не добавляется. Говорит, что нельзя два раза подряд одному и тому же человеку ставить. А больше тут и нету никого))