var
I: Integer;
begin
if not TryStrToInt(Edit1.Text, I) then begin
//если не является целым
end;
...
end;
Проверка при вводе
1.Скажите, пожалуйста, как проверить вводимую в InputBox строку - является ли она целым числом.
2.Можно ли во время выполнения изменить фоновый цвет отдельной ячейки StringGrid или как нибудь еще ее выделить (хотя бы поместить в нее курсор ввода)
2.Можно ли во время выполнения изменить фоновый цвет отдельной ячейки StringGrid или как нибудь еще ее выделить (хотя бы поместить в нее курсор ввода)
Цитата:
Originally posted by Neighbour
1.Скажите, пожалуйста, как проверить вводимую в InputBox строку - является ли она целым числом.
2.Можно ли во время выполнения изменить фоновый цвет отдельной ячейки StringGrid или как нибудь еще ее выделить (хотя бы поместить в нее курсор ввода)
1.Скажите, пожалуйста, как проверить вводимую в InputBox строку - является ли она целым числом.
2.Можно ли во время выполнения изменить фоновый цвет отдельной ячейки StringGrid или как нибудь еще ее выделить (хотя бы поместить в нее курсор ввода)
1. чё за InputBox... и где ты его нашел?
2. по части цвета - обрабатываешь событие OnDrawCell.... по части установки курсора - StringGrid.Col := 3; StringGrid.Row := 2;
Цитата:
Originally posted by verybadbug
1. чё за InputBox... и где ты его нашел?
2. по части цвета - обрабатываешь событие OnDrawCell.... по части установки курсора - StringGrid.Col := 3; StringGrid.Row := 2;
1. чё за InputBox... и где ты его нашел?
2. по части цвета - обрабатываешь событие OnDrawCell.... по части установки курсора - StringGrid.Col := 3; StringGrid.Row := 2;
Наверно чел имел в виду функцию InputQuery.
А проверить, является целым числом или нет можно двумя способами:
1) функцией Val(s, N, Code), где s - исходная строка, N - переменная целого типа, Code - тоже целое. Если после вызова Code = 0, то число целое и оно занесется в N, иначе нет.
2) функцией StrToInt(s). Если не целое, то возникнет исключение(кажется EConvertError если не путаю)
Цитата:
Originally posted by sp999
...
2) функцией StrToInt(s). Если не целое, то возникнет исключение(кажется EConvertError если не путаю)
...
2) функцией StrToInt(s). Если не целое, то возникнет исключение(кажется EConvertError если не путаю)
А мона еще и [color=blue]f:=StrToIntDef(s,a)[/color] - если "s" не целое, то исключения не будет, а в "f" занесеться "a".
Цитата:
Originally posted by StranikS
А мона еще и [color=blue]f:=StrToIntDef(s,a)[/color] - если "s" не целое, то исключения не будет, а в "f" занесеться "a".
А мона еще и [color=blue]f:=StrToIntDef(s,a)[/color] - если "s" не целое, то исключения не будет, а в "f" занесеться "a".
или так...
Код: