Список колонок в StringGrid

[artemavd]

Добрый день! Собсно вопрос. Как получить список (названия) колонок в первой строке StringGrid-a и занести их в ListBox? Мне это нужно для того, чтобы потом вносить некое значение в соответствующую колонку, имя которой как раз и будет выбрано из ListBox-a, но вносить так, чтобы оно вносилось в последнюю добавленную строку строго в ту колонку, название которой выбрано в ListBox.

[AlDelta]

procedure TForm2.FormCreate(Sender: TObject);
  var i: integer;
begin
  for i:=0 to StringGrid1.ColCount-1 do  // StringGrid1.ColCount - количество столбцов
    Begin
      StringGrid1.Cells[i,0]:=IntToStr(i);
      ListBox1.Items.Append(StringGrid1.Cells[i,0]);// заполняем ListBox1.ItemIndex
    End;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  if ListBox1.ItemIndex<>-1 then // ListBox1.ItemIndex - номер выбранной строки в ListBox1
    StringGrid1.Cells[ListBox1.ItemIndex,StringGrid1.RowCount-1]:=Edit1.Text;
end;

pr.rar

[evg_m]

listbox.items:=stringgrid1.rows[0];

[artemavd]

Да, это практически то, что нужно, AlDelta. Только маленький вопрос. У меня по нажатию на кнопку добавляется колонка новая в таблицу, а в качесте имени ей присваивается имя из Edit. Ну, а дальше то, что ты предложил. Можно ли сделать проверку, что если имя какой-то колонки есть уже в ListBox-e, то новая колонка бы не добавлялась?

[_SERGEYX_]

if ListBox1.Items.IndexOf(<имя колонки>) > - 1 then //колонка существует

[artemavd]

Вот, написал так:

  for i_:=0 to Form3.RzStringGrid2.ColCount - 1 do  // StringGrid1.ColCount - êîëè÷åñòâî ñòîëáöîâ
    begin
      Form3.sListBox1.Items.Append(Trim(Form3.RzStringGrid2.Cells[i_,0]));// çàïîëíÿåì ListBox1.ItemIndex
    end;
  if Form3.sListBox1.Items.IndexOf(i_) > -1 then
  begin
    MessageBox(Handle,'Êîëîíêà ñ òàêèì èìåíåì óæå ñóùåñòâóåò!','Âíèìàíèå',MB_ICONINFORMATION);
  end;

но компилятор говорит, что "[Error] Unit3.pas(1779): Incompatible types: 'String' and 'Integer' ". Собсно, а как правильно-то будет?

[vovk]

  if Form3.sListBox1.Items.IndexOf(i_) > -1 then

тут строка нужна то что ищем, если номер это имя то ессно inttostr(i_)

[artemavd]

Неа, номер не имя. Имя - обычные слова...

[vovk]

IndexOf возвращает индекс первого вхождения в массив списка заданного элемента, для TStringList и TStrings это строка и поэтому

if Form3.sListBox1.Items.IndexOf('тут должна быть строка которую надо найти') > -1 then

я про это и говорил, и ошибка тут.

_SERGEYX_ это и предложил как проверку. Раз имя берём из эдита то должно быть так

 if Form3.sListBox1.Items.IndexOf(edit1.text) > -1 then

а для того цикла выше

for i_:=0 to Form3.RzStringGrid2.ColCount - 1 do 
  if Form3.sListBox1.Items.IndexOf(Trim(Form3.RzStringGrid2.Cells[i_,0]) > -1 then 
      Form3.sListBox1.Items.Append(Trim(Form3.RzStringGrid2.Cells[i_,0])) 
else showmessage('повтор названия     ' +Trim(Form3.RzStringGrid2.Cells[i_,0]);

[artemavd]

Черт, че-то не хочет работать. Написал из поста выше так:

  for i_:=0 to Form3.RzStringGrid2.ColCount - 1 do
   if Form3.sListBox1.Items.IndexOf(Trim(Form3.RzStringGrid2.Cells[i_,0])) > -1 then
   begin
    Form3.sListBox1.Items.Append(Trim(Form3.RzStringGrid2.Cells[i_,0]));
//       else
//        MessageBox(Handle,'Êîëîíêà óæå ñóùåñòâóåò!','Âíèìàíèå',MB_ICONINFORMATION);
   end;

Колонка добавляется, ей присваивается имя из Edit-a, но в sListBox2 не заносится список колонок.
Если убираю эту строчку

   if Form3.sListBox1.Items.IndexOf(Trim(Form3.RzStringGrid2.Cells[i_,0])) > -1 then

то работает не так как мне надо.