[kekeksey]

Не понимаю как сделать, помогите пожалуйста.

У меня есть StringGrid, поле Edit, возможно ли сделать так, чтобы введенное в edit число стало максимальным числом в каком-то столбце stringgrid

Или как по другому реализовать.

чтобы edit стал максимальным значением для столбца в stringgrid

[kekeksey]

вот у меня есть таблица stinggrid и отдельно есть поле Edit. Вот мне нужно взять значение из поля edit и сделать так, чтобы оно стало максимальным для столбца. Т.е. макисмально число которое можно ввести.
К примеру в edit внесли 500, значит в столбце можно ввести число от 0 до 500

[Alegun]

Без защиты от набора букофф

Код:

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
 if (Value <> '') and
    (StrToInt(Value) > StrToInt(Edit1.Text)) then
      StringGrid1.Cells[ACol,ARow]:= Edit1.Text;
end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9',#8]) then Key:= #0;
end;

а на KeyPress можно повесить проверку ввода цифирок и возвращать Key = #0, если не они клацаются