[WcN]

Числа вводятся в StringGrid и потом после StrToInt обрабатываются.
Как можно организовать такую проверку, чтобы кроме целых чисел ничего туда не вводилось? Может существуют маски или что-то подобное.Спасибо

[Yurk@]

Можно просто применить данное число какой-то переменной типа Integer и обрабатывать все ошибки.
Например:

Код:

try
...
код
...
except
... 
обработка ошибки (ввод числа не Integer)
...

[Sava]

а может читать стринг и в сринге смотреть если ли разделитель дробной и целой части?

[WcN]

Наверное тут вариант SAVA больше подойдет(спасибо), ибо пишу для второкурсника курсовую и исключения они не проходили еще. Я не уточнил в вопросе зачем мне это - так вот: с помощью стринг грида я вывожу матрицу 10х10 с возможностью автозаполнения и ручного ввода. По заданию элементы матрицы - целые числа. Может есть более удобный вариант кроме стринг грида? Я начал делать с ним и почти закончил(все работает и на 3 покатит), но уже для себя решил, что преподаватель легко может прицепиться к тому, что нет проверки вводимых значений. Думал ограничится месадж боксом при старте с текстом вроде "Вводить только целые" - но это, согласитесь, не серьезно!

[4erep_88]

Еще вариант: в процедуре OnKeyPress запретить ненужные символы.
Я сам всегда использую StringGrid, когда пишу проги для работы с матрицами. Меня он полностью устраивает

[WcN]

Сообщение от 4erep_88

Еще вариант: в процедуре OnKeyPress запретить ненужные символы.
Я сам всегда использую StringGrid, когда пишу проги для работы с матрицами. Меня он полностью устраивает

Никогда так не делал, но идею понял!
Это что-то в этом роде:
исли код клавиши <,>,= чему-то, то разрешить ввод=False
или если символ входит в [1..10] то разрешить ввод=True
А каким образом запрещать ввод?

[Rosenkrantz]

Код:

function IsInteger(const S: String): Boolean;
var
  X: Double;
  E: Integer;
begin
  Val(S, X, E);
  Result := (E = 0) and (Trunc(X) = X);
end;

[Burka]

Код:

if not (key in ['1', '2','3', '4','5','6','7','8','9', '0',#8]) then key:=#0;

все же это лучше по-моему)

[Rosenkrantz]

Сообщение от Burka

Код:

if not (key in ['1', '2','3', '4','5','6','7','8','9', '0',#8]) then key:=#0;

все же это лучше по-моему)

Вправо-влево пользователю двигать курсор запретим? Выделение Shift`ом тоже? Home/End? Копирование/вставку? Или все клавиши перечислим?

[Rosenkrantz]

Сообщение от Rosenkrantz

Вправо-влево пользователю двигать курсор запретим? Выделение Shift`ом тоже? Home/End? Копирование/вставку? Или все клавиши перечислим?

А, виноват. Это все тут ни при чем, оно в другом событии.
Подумав: но с Copy/Paste проблема все равно остается.

[WcN]

Спасибо всем! Буду пробовать эти варианты. Я так понял, что отказываться от стринг грида не нужно.

[VIR]

а про спец симолы забыл???????????
так не пойдет

[The Shadow]

Код:

try
StrToInt(Строка)
//В строке записано число
except
//Ошибка
end;

[Oleg]

Я не умничаю , просто делаю более понятнее.

Код:

try
StrToInt(Строка)
//В строке записано число
except
//Ошибка
end;

[Yurk@]

А я разве не то же написал:
http://www.delphisources.ru/forum/sh...58&postcount=2