SpinEdit

← →
Sergik (2003-04-14 10:02) [0]

Подскажите пожалуйста, как в SpinEdit можно определить, что значение Value не определено (у него тип integer и проверить, например как Length(IntToStr(SpinEdit.Value)) не получается, если область ввода - пуста).

← →
snake1977 (2003-04-14 10:05) [1]

никак, просто для себя придумай, что например -1 это "ничего".
или поставь на форму TUpDown из закладки win32 и работай с ним и каким нибудь TEdit

← →
Skier (2003-04-14 10:06) [2]

>Sergik

> например как Length(IntToStr(SpinEdit.Value)) не получается,
>

Тоже самое, но в блоке try-except-end;

function ThereIsNoValue(ASpinEdit : TSpinEdit) : Boolean
begin
Result := False;
if Assigned(ASpinEdit) then begin
try
IntToStr(SpinEdit.Value);
Result := True;
except
//
end; //try
end; //if
end;

← →
Skier (2003-04-14 10:07) [3]

>Sergik
Ой ! Название функции поменяй на ThereIsAValue :)

← →
Anatoly Podgoretsky (2003-04-14 10:11) [4]

Не существует такого понятия как пустое значение Integer, это напоминает знаменитый вопрос "как очистить переменную".
Но Ты можешь его ввести, ддя этого зарезирвируй одно из примерно 4 миллиародв чисел для этой цели.

← →
han_malign (2003-04-14 10:20) [5]

должна быть возможность выдерныть напрямую текст, у меня такого компонента нет, так что поковыряй исходники
З.Ы. Но во всяком случае в RX, при получении и потере фокуса, Value приобретет значение 0, или MinValue если оно больше нуля

> просто для себя придумай, что например -1 это "ничего"
- просто для информации, обычно это называют "Null value" (значение за диапазоном, обозначающее неопределенность)

← →
Sergik (2003-04-14 12:04) [6]

Спасибо за ответы, но главная прблема состоит в том , чтобы отловить "момент", когда значение неопределено (условие не проверить(в том числе и в try..except))

← →
Anatoly Podgoretsky (2003-04-14 12:19) [7]

Sergik (14.04.03 12:04)
Для Integer такого момента не существует, все значения определены, все 4 миллиарда.

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