Господа подскажите пожалуйста как сделать чтобы в таблицу

← →
JTAG (2006-06-04 15:59) [0]

StringGrid вводились числа только от 0 до 255?

← →
Галинка © (2006-06-04 21:29) [1]

Проверять Cells на значение ??

← →
JTAG (2006-06-04 22:16) [2]

Ну да, когда человек вводит число, чтобы оно в процессе ввода проверялось не больше ли 255, если больше , то не вводится.

← →
Джо © (2006-06-04 22:21) [3]

Ну, делай свою проверку в обработчиках событий OnSelEditText, OnExit или OnKeyPress — в зависимости от способа, выбранного для реагирования на некорректный ввод.

← →
JTAG (2006-06-04 22:27) [4]

Спасибо!

← →
Kolan © (2006-06-04 22:27) [5]

procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String); begin if (StrToInt((Sender as TStringGrid).Cells[ACol, ARow]) > 255) or (StrToInt((Sender as TStringGrid).Cells[ACol, ARow]) < 0) then (Sender as TStringGrid).Cells[ACol, ARow] := ""; end;

Как-то так наверно.

PS
Проверить не смог, тк забыл что нужно выставить чтобы разрешить ввод..

← →
Джо © (2006-06-04 22:31) [6]

> Проверить не смог, тк забыл что нужно выставить чтобы разрешить
> ввод..

goEditing в Options.

> Как-то так наверно.

Этот вариант просто будет выбрасывать исключения при попытках ввести нечисловые значения. Есть хорошая функция, возвращающая Boolean — TryIntToStr.

← →
Kolan © (2006-06-04 22:36) [7]

var CellValue: Integer; ConvertResult: Boolean; begin ConvertResult := TryStrToInt((Sender as TStringGrid).Cells[ACol, ARow], CellValue); if ConvertResult and ((CellValue > 255) or (CellValue < 0)) then (Sender as TStringGrid).Cells[ACol, ARow] := ""; end;
Так то лучьше :)

Ну и еще сеть хорошая вешь with

Господа подскажите пожалуйста как сделать чтобы в таблицу Найти похожие ветки