Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
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
Ссылку в студию.Хоть посмотрю что да как.
← →
TUser © (2004-03-06 12:58) [6]Ну, если [4] - тогда RegExpr, т.е. [2]
← →
Talla2k © (2004-03-06 16:16) [7]Спасибо Tuser.
А еще варианты есть?
← →
GanibalLector © (2004-03-07 04:06) [8]Однако,тоже этим интерисовался!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.037 c