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

[vovk]

ой извеняюсь условие конечно неправильно

  if Form3.sListBox1.Items.IndexOf(Trim(Form3.RzStringGrid2.Cells[i_,0]) < 0 then  //если в Form3.sListBox1.Items не найдено строки Trim(Form3.RzStringGrid2.Cells[i_,0]
 Form3.sListBox1.Items.Append(Trim(Form3.RzStringGrid2.Cells[i_,0])) // тогда добавляем строку в Form3.sListBox1.Items

[artemavd]

Вот:

  for i_:=0 to Form3.RzStringGrid2.ColCount - 1 do
  if Form3.sListBox1.Items.IndexOf(Trim(Form3.RzStringGrid2.Cells[i_,0])) < 0 then
   begin
    Form3.sListBox1.Items.Append(Trim(Form3.RzStringGrid2.Cells[i_,0]));
   end;

вроде работает, если уже такая колонка есть, то не добавляется, вроде правильно). А как быть с той новой колонкой, что добавляется в процедуре где имеется код выше? Я конечно могу написать так:

  for i_:=0 to Form3.RzStringGrid2.ColCount - 1 do
  if Form3.sListBox1.Items.IndexOf(Trim(Form3.RzStringGrid2.Cells[i_,0])) < 0 then
   begin
    Form3.sListBox1.Items.Append(Trim(Form3.RzStringGrid2.Cells[i_,0]));
    Form3.RzStringGrid2.ColCount:=Form3.RzStringGrid2.ColCount - 1;
   end;

но, будет ли это правильно? Будет удаляться последняя добавленная колонка.

[vovk]

надо просто проверять наличие одноименной колонки при добавлении в грид, а потом не заморачиватся, перед добавлением проверяем

if StringGrid1.Rows[0].IndexOf('новое имя') < 0 then добавляем

если это невозможно, и нужно работать с уже заполнеными заголовками(что сложно представить), то придётся сначала сдвигать все записи справа от найденного дубля, а потом удалять колонку.

[artemavd]

Возник небольшой косячок. Нужна ваша помощь. Вроде и код-то правильный, но, кто знает. Вообщем ситуация такова. В sListBox1 - список колонок куда должны заноситься данные, которые имеются в sListBox3. Дело в том, что если например в RzStringGrid2 были добавлены, например, две колонки: ДАТА и НОМЕР, то когда я заношу, например, первое значение (24121999) и выбираю колонку в которую заношу в sListBox1-е, то значение заносится. Но, когда я выбираю сразу же второе значение (123456) и хочу его занести в колонку НОМЕР, то оно заносится в колонку ДАТА. Что неправильно. Вот код:

procedure TForm3.ToolButton16Click(Sender: TObject);
begin
  if Form3.sListBox1.ItemIndex <> - 1 then // ListBox1.ItemIndex - íîìåð âûáðàííîé ñòðîêè â ListBox1
     Form3.RzStringGrid2.Cells[Form3.sListBox1.ItemIndex,
                               Form3.RzStringGrid2.RowCount - 1]:=Form3.sEdit5.Text;
  Form3.sEdit5.Text:='';
  Form3.sListBox3.DeleteSelected;
  Form3.sListBox1.DeleteSelected;
  if Form3.sListBox3.Count = 0 then
  begin
    MessageBox(Handle,'Âñå çíà÷åíèÿ áûëè âíåñåíû â ðååñòð. Ïîæàëóéñòà, ïåðåä ' + #13#10 +
                      'âíåñåíèåì íîâûõ çíà÷åíèé äîáàâüòå íîâóþ ñòðîêó â ðååñòð.', 'Âíèìàíèå',MB_ICONINFORMATION);
    Form3.sListBox1.Clear;
  end;
end;

[vovk]

мне кажется тут удаляется запись

 Form3.sListBox1.DeleteSelected;

а тут получается что добавляется по индексу

   Form3.RzStringGrid2.Cells[Form3.sListBox1.ItemIndex,

                               Form3.RzStringGrid2.RowCount - 1]:=Form3.sEdit5.Text;

а индекс то смещается, может лучше добавлять так

Form3.RzStringGrid2.Cells[(Form3.RzStringGrid2.rows[0].IndexOf(Form3.sListBox1.Items.Strings[Form3.sListBox1.ItemIndex])),
Form3.RzStringGrid2.RowCount-1]:=Form3.sEdit5.Text;

или так

Form3.RzStringGrid2.rows[Form3.RzStringGrid2.RowCount-1].Strings[(Form3.RzStringGrid2.rows[0].IndexOf(Form3.sListBox1.Items.Strings[Form3.sListBox1.ItemIndex])]:=Form3.sEdit5.Text;

[artemavd]

vovk! Спасибо тебе огромное! . Попробовал твой первый совет и помогло. Сейчас вроде все работает и вопросов пока нет. Разве только что маленький вопросик: куда все таки лучше поставить

Form3.sListBox1.DeleteSelected;
Form3.sListBox3.DeleteSelected;

?? По идее я хочу, чтобы после того как значение добавлено в соответствующую колонку, то списки очищались бы, а список колонок составлялся бы после добавления новой колонки (это работает). Вот полный код внесения значений в выбранную колонку:

procedure TForm3.ToolButton16Click(Sender: TObject);
begin
  if Form3.sListBox1.ItemIndex <> - 1 then // ListBox1.ItemIndex - íîìåð âûáðàííîé ñòðîêè â ListBox1
     Form3.RzStringGrid2.Cells[(Form3.RzStringGrid2.Rows[0].IndexOf(
                                Form3.sListBox1.Items.Strings[
                                Form3.sListBox1.ItemIndex])),
                                Form3.RzStringGrid2.RowCount - 1]:=Form3.sEdit5.Text;
  Form3.sEdit5.Text:='';
  if Form3.sListBox3.Count = 0 then
  begin
    MessageBox(Handle,'Âñå çíà÷åíèÿ áûëè âíåñåíû â ðååñòð. Ïîæàëóéñòà, ïåðåä ' + #13#10 +
                      'âíåñåíèåì íîâûõ çíà÷åíèé äîáàâüòå íîâóþ ñòðîêó â ðååñòð.', 'Âíèìàíèå',MB_ICONINFORMATION);
    Form3.sListBox1.Clear;
  end;
end;