Как найти столбец в DBGridEh по заголовку и удалить его?

[artemavd]

Доброе утро! Нужно реализовать поиск столбца в DBGridEh по заголовку, которое будет введено в Edit. Это нужно для того, чтобы удалить найденный столбец. Столбцы просто добавляются пользователем, без добавления его в базу данных. Как можно реализовать поиск столбца (получить его индекс чтоли)?

-----------------------------
Добавлено №1:
Вот, нашел как получить номер (индекс) колонки:

procedure TForm1.DBGridEh1TitleClick(Column: TColumnEh);
begin
 ShowMessage(IntToStr(Column.Index));
end;

Добавлено №2:
Блин, хорошо, когда сам пытаешь думать. Вот, надумал такой поиск (дилетанский, но почти рабочий):

procedure TForm1.sButton1Click(Sender: TObject);
var
 i: Integer;
begin
 for i := 0 to Form1.DBGridEh1.Columns.Count - 1 do
   begin
     if Form1.DBGridEh1.Columns[i].Title.Caption = Form1.sEdit2.Text then
     begin
       ShowMessage('Колонка найдена!');
     end;
     if Form1.DBGridEh1.Columns[i].Title.Caption <> Form1.sEdit2.Text then
     begin
       ShowMessage('Колонка не найдена!');
     end;
   end;
end;

Если заголовок колонки совпадает с введенным в sEdit2, то сообщение отображается. Косяк в том, что: оба сообщения показываются два раза для двух условий. Можно было и через if...then...else написать конечно, но, оно пока так не совсем правильно работает. Как поправить такой косяк?

[Stilet]

Круто наваял )))

Вот мое предложение.

procedure TForm1.sButton1Click(Sender: TObject);
var
 i: Integer;
begin
with Form1.DBGridEh1 do begin
 for i := 0 to Colimns.Count - 1 do   begin
     if Columns[i].Title.Caption = Form1.sEdit2.Text then     begin
       ShowMessage('Колонка найдена!'); break;
     end;
 end;

 if i>=Columns.Count then     begin
       ShowMessage('Колонка не найдена!');
     end;

end;
end;

[Аватар]

artemavd , допустим в гриде 10 колонок, и задали существующий заголовок. Ваш код 1 раз выдаст, что колонка найдена и 9 раз, что не найдена. Перед циклом в булевскую переменную False, в цикле засунуть в неё True если колонка найдена. И после цикла на основании ее значения сообщение выдать

ADD Stilet ну очень не рекомендуется использовать так переменную цикла по завершению его

[Stilet]

Ну ладно ладно... Не рекомендуется
Да здравствует великий и ужасный Булеан - не спорю

[Serge_Bliznykov]

ADD Stilet ну очень не рекомендуется использовать так переменную цикла по завершению его

согласен.
но я бы уточнил - речь идёт ИСКЛЮЧИТЕЛЬНО про циклы FOR (т.е. где сам компилятор решает как ему удобнее изменять переменную).

если использовать циклы repeat until или while - то переменной после цикла можно пользоваться вполне законно!

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

[artemavd]

Круто наваял )))

Про булеву переменную понятно, попробую потом. Пока думал, придумал красивую фишку. Но, с удалением колонки обязательно разберусь. Спасибо за ответы

[phomm]

Для таких хитростей (речь про действие при ненайденности элемента в цикле вообще, а не про гридех) я применял сие:

for i := 0 to Items.Count do // no - 1 needed
begin
  if i = Items.Count then 
  begin
    // do smth when element not found
    // do not read Items[i] here
    Continue; // end-loop, could be Break;
  end;
  // loop code
  // here we read Items[i]
end;

Ну, а вообще, конечно, repeat while здесь мб и лучше будут выглядеть. Но лишний бульон, думаю, ни к чему.

[Serge_Bliznykov]

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

Но лишний бульон, думаю, ни к чему.

омг. да чем же Вам всем так boolean не угодил? Размера не занимает (1/2 байта - это не размер), обрабатывается крайне эффективно (думаю, что оптимизатор засунет эту переменную в регистр). Решение получается простое, наглядное и, главное, НАДЁЖНОЕ!
нет, обязательно нужно хакерскими методами задачку решать, по другому никак нельзя!

[evg_m]

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

Но лишний бульон, думаю, ни к чему.

согласен, нам нужно знать какую колонку мы нашли, что бы потом ее удалить. поэтому вместо boolean нашли/нет используем
columnfordelete: intger; индекс колонки для удаления. с начальным значение (ДО ВХОДА в цикл поиска) =-1

columnfordelete:=-1;
/// ищем 
columnfordelete:=j; break;
////
if columnfordelete>=0 then 
//  Delete
else
//  showmesage

вместо индекса, можно даже использовать colfordel: TColumn; =nil все равно к нему придется обращаться (возможно)!
много времени процессора одно присвоение не займет!

[phomm]

Ну Continue там не зря ведь стоит, цикл так и пойдёт от макс элемента до нулевого, для макс значения счётчика мы не производим никаких действий над Items[i], а делаем что надо нам, например, запишем в результирующую переменную(которой там кстати место, а не шоумесаджу) нужный результат, потом цикл либо перепишет её своим значением, либо так и останется, потом мы уже согласно этой переменной производим действия, например, тот же шоумессадж который выводит такую переменную текстом, ибо 2 шоумесаджа - имо некрасивый код, полу-функция либо должна вернуть результат вызывающему, либо произвести работу над единственной сущностью. Плюс я расписал приём для общего случая.

Насчёт данного же случая:
нелюбви к булеан-вару у меня нет, я так и сказал, что тут толковее (имо) использовать те же repeat и while, а с ними булеан - ни к чему.

Извиняюсь за не слишком понятное первичное изложение мысли (плюс по привычке комменты на англ, в них немало деталей идеи раскрыто), надеюсь сейчас объяснил нормально.