StringGrid

← →
Talla2k © (2004-03-06 12:06) [0]

Имеется StringGrid и есть некоторое условие,которое необходимо соблюдать при вводе значений в этот StringGrid.
Т.е. в некоторый столбец необходимо вводить только значения от"1" до "8",в другой еще некоторое условие и т.д.
Вот сделал примерно следующее:
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
var i:integer;
begin
if acol=3 then begin
if length(value)>1 then
stringgrid1.cells[acol,arow]:="1";
for i:=1 to length(value) do
if (value[i]<"1") or (value[i]>"8") then
stringgrid1.cells[acol,arow]:="1";
end;
if acol=2 then begin
if length(value)>6 then
stringgrid1.cells[acol,arow]:="0";
for i:=1 to length(value) do
if ((value[i]<"0") or (value[i]>"9"))then
stringgrid1.cells[acol,arow]:="0";
end;
...
Хотел поинтересоваться,может кто лучше придумал алгоритм проверки.
А то,мой мне что-то не нравиться.

← →
TUser © (2004-03-06 12:12) [1]

нормальный алгоритм. я бы написал case acol of, но это дело вкуса и привычки.

← →
Hooch © (2004-03-06 12:17) [2]

когда мне нужно было проверять корректность ввода всяких строк я скачал компонент для работы с регулярными выражениями, в принципе лёгок в использовании и удобно ну и в исходниках писанины меньше становится :-)

← →
TUser © (2004-03-06 12:26) [3]

В данном случае писанины станет не сильно меньше.

← →
Talla2k © (2004-03-06 12:50) [4]

Вся беда в том,что у меня есть столбец в денежном выражении и количественном.Я то могу описать алгоритм проверки,но этож какой головняк.И проверять наличие запятой,и кол-во символов после запятой ,и не является ли запятая первой.

← →
Talla2k © (2004-03-06 12:51) [5]

2Hooch
Ссылку в студию.Хоть посмотрю что да как.

Ну, если [4] - тогда RegExpr, т.е. [2]

Спасибо Tuser.
А еще варианты есть?

Однако,тоже этим интерисовался!

StringGrid Найти похожие ветки