компонент Edit!

[Karina89]

Здравствуйте, программисты! можете подсказать, пожалуйста, как сделать так, чтобы когда пользователь в программе не ввел в Edit какое-то значение, чтобы программа выдавала не ошибку, а сообщение, например,
"Введите значение k"???
Оператор ввода такой:
k:=inttostr(Edit1.Text);
P.S.: спасибо заранее!

[Winnerer]

гугл на тему try .. except

[Rekky]

Можно использовать блок try except

try
k:=inttostr(Edit1.Text);
exept
 showmessage('Введите значение!');
end;

Но это если при присвоении, действительно возникает ошибка..

[Karina89]

Спасибо огромное =) =) ^-^

[Karina89]

нет! не работает((
надо так, чтобы если пользователь ввел значение в Edit, то оно естественно присвоилось переменной k, а если не ввел, то выводилось только сообщение, чтобы пользователь ввел значение! а то у меня и это сообщение выводится, а потом ещё и сообщение об ошибке (уже от самого Delphi).
P.S. в TurboPascal!

[Winnerer]

сообщение об ошибке (уже от самого Delphi).

а в дебаге всегда так будет, вы попробуйте приложение отдельно запустить.

procedure TForm1.Edit1Change(Sender: TObject);
var k:integer;
begin
if edit1.Text='' then
   begin
   showmessage('Введиите значение');
   exit;
   end;
  try
  k:=strtoint(edit1.Text);
  except
  end;
end;

//мимо проходил

[Karina89]

я пробовала отдельно запускать. Всё-равно выводит сначала моё, а потом опять Delphi-ское сообщение)
последний оператор ни в procedure TForm1.Edit1Change(Sender: TObject); ни в procedure procedure TForm1.Button1Click(Sender: TObject); ничего не выводит..((( никаких сообщений вообще...

[Valio]

Что вы человеку впариваете свой try except..... Судя по всему нужно вводить целое число. Ну так вот напиши функцию, которая проверит:

1. Все ли символы цифры.
2. Кол-во цифр (макс. число типа)
3. Не стоит ли первой цифрой ноль.

Всё. Функция готова.

[Karina89]

ну нет же)! всё намного проще!
по нажатию кнопочки Button1 в Edit1 должно быть введено число, которое затем присвоиться переменной k! но если пользователь не ввел число в Edit1, то программа произвольно выводит сообщение об ошибке (на английском, непонятное короче для пользователя, а не программиста)! так вот! я хочу чтобы не ошибка выводилась, а моё сообщение, чтобы пользователь "ввел значение"!)

[Valio]

по нажатию кнопочки Button1 в Edit1 должно быть введено число, которое затем присвоиться переменной k!

Дело в том, что функция inttostr выдаст ошибку если ей дать "не число". Поэтому чтоб функция ошибку не выдалу нужно ей подсунуть "правильное число".

Я начну:

Function CheckValueInt(S : String) : Boolean;
Begin
Result := True;
If Length(S) = 0 Then Result := False; 
If Length(S) > 1 Then If S[1] = '0' Then Result := False;
End;

Теперь в поле нельзя оставить пустым и начинать писать число с нуля.

Теперь вот так её вызвать:

If CheckValueInt(Edit1.Text) = True Then 
ShowMessage('Ок.')
Else
ShowMessage('Ошибка');