Есть СтрингГрид (матрица, заполненная целыми числами) Надо вычислить и закрасить некоторую область (ячейки). (читать всё…)

Известно, что на момент вызова процедуры пользователь редактирует ячейку. Как узнать ее номер? (читать всё…)

Первую ячейку тут все понятно, а вот как определить самое последнее значение в StringGrid? Количество строк может быть разное, поэтому сколько именно строк будет я не знаю. Вот и надо как-то определить и вытащить значение из самой последней ячейки.
(читать всё…)

Возникла необходимость в удалении пустых строк в StringGrid, но чтобы оставшиеся «поднялись» наверх, т.е. как бы сдвинулись со своих позиций на -1 значение. Вот так я пробую: (читать всё…)

мне надо убрать расширение у файлов и показывать только имя.

(читать всё…)

каждую ячейку нужно поочередно записать в файл через ; не переходя на следующую строку.

(читать всё…)

Условие:
В ячейках только цифры, поэтому больше одного символа в ячейчке не должно быть.

Stilet:

Я бы написал так:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with TStringGrid(Sender) do
     if not (key in [‘0’..’9′])or(length(Cells[Col,row])=1)
     then key:=#0;
end;

Тема на форуме