TStringGrid

[anton14]

Здравствуйте! Проблема такая: есть TStringGrid которая сохраняется в файл и перетасовывается после ввода в неё новых данных, + есть ComboBox1 и edit1. В edit1 пользователь вводит число, после в ComboBox выбирает название ячейки из первой колонки(FixedCols). После,число должно вноситься в таблицу. Как это сделать? (Координаты ячеек меняются после перераспределения таблицы).
Спасибо!

[mihali4]

После "перетасовки" заново заполняем ComboBox значениями из первого столбца грида... И все дела.
Индекс итемса комбобокса однозначно укажет на строку грида...
Да, только сортировку в комбобоксе нужно отключить. Иначе придется искать строку грида перебором (в этом случае перезаполнение комбобокса уже не нужно).

[anton14]

Так, структурно понял, с таким сталкивался, но вот второй день сижу. Если можно кратко расписать, хотя бы наводящим?

[sabbatazh]

как я понял.... попробуй опциями таблици поварировать (сначала фиксировать, а потом разфиксировать)

может чет не понял....

[anton14]

Вобщем мне надо сделать так: в ComboBox пользователь выбирает "название" и рядом в Edit пишет "число". После, в первой колонке нужно найти строку которой присвоено это "название" и вписать "число" во 2 колонку этой строки(старался писать по подробнее). Смысл, как это делается, я понял, mihali4 все ясно обьяснил, да я и делал подобное, но что то проблемы с кодом, если можно код?
Спасибо!

[anton14]

Неужели ничего?

[mihali4]

Неделю меня не было... Что-то странно - я думал уже давно решено и забыто...
Я так понял, у вас затруднение с идентификацией строки в гриде?
Ну, давайте так.
В эдит вводится число (или любой текст). Затем выбирается один из итемсов комбобокса. И вот по событию этого выбора в гриде происходит поиск строки, в которой текст в первой колонке совпадает с выбранным итемсом в комбобоксе и в эту же строку, но во вторую колонку грида вносится то, что было перед этим записано в эдит. Так вам нужно?
Выглядит это очень просто (на примере грида с семью информационными строками):

procedure TForm1.ComboBox1Change(Sender: TObject);
var i: integer;
begin
for i:=1 to 8 do
if StringGrid1.Cells[1,i]=ComboBox1.Text then
break;
StringGrid1.Cells[2,i]:=Edit1.Text;
end;

[anton14]

Сообщение от mihali4

Так вам нужно?

Именно так! Спасибо огромное!