Не допустить пустой Edit

@Satir4ik · Регистрация: 13.11.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Немножко описания. Есть эдит в который пользователь вводит число кратное 4 или 8 в зависимости от положения в чекбоксе (изначально в эдите стоит 0). Сразу после ввода Edit1.Change значение в эдите (Int) присваивает переменной Z и не допускает разблокировку кнопок пока число в эдите не будет равно кратному 4 или 8. Стоит ограничение на ввод цифр и Backspace через Edit1.KeyPress. Установлена Delphi 7.
Суть проблемы: если пользователь удаляет символы пока поле не станет пустым - выводится ошибка, что значение в поле не соответствует переменной (ну, оно и понятно). Как описать, чтобы поле никогда не оставалось пустым?
Ну, и, собственно, немножко кода.

Глобальний var

Delphi

var
  Form1: TForm1;
  Excel, Workbook: Variant;
  q, z, c:integer;
  a, b, e:string;
  x, y:integer;

Edit1.Change

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
z:=StrToInt(Edit1.Text);
if CheckBox1.Checked=false then begin
  if z mod 4 <> 0 then begin
    Panel1.Color:=clRed;
    Button1.Enabled:=false;
    Button3.Enabled:=false;
  end else
  if z mod 4 = 0 then begin
    Panel1.Color:=clLime;
    Button1.Enabled:=true;
    Button3.Enabled:=true;
    end;
end;
if CheckBox1.Checked=true then begin
  if z mod 8 <> 0 then begin
    Panel1.Color:=clRed;
    Button1.Enabled:=false;
    Button3.Enabled:=false;
  end else
  if z mod 8 = 0 then begin
    Panel1.Color:=clLime;
    Button1.Enabled:=true;
    Button3.Enabled:=true;
    end;
end;
end;

Edit1.KeyPress

Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then
    Key := #0;
end;

Операция на кнопке

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
q:=0;
z:=StrToInt(Edit1.Text);
 
{описание действия}
if CheckBox1.Checked=false then begin
 
Memo1.Lines.Text:=IntToStr(z)+','+IntToStr(q+1);
Memo2.Lines.Text:=IntToStr(z)+','+IntToStr(q+1);
Memo3.Lines.Text:=IntToStr(q+2)+','+IntToStr(z-1);
repeat
a:=Memo1.Lines.Text;
b:=Memo2.Lines.Text;
e:=Memo3.Lines.Text;
Memo1.Lines.Text:='';
Memo2.Lines.Text:='';
z:=z-1;
q:=q+1;
Memo1.Lines.Text:=a+','+IntToStr(q+1)+','+IntToStr(z);
Memo2.Lines.Text:=b+','+IntToStr(z-1)+','+IntToStr(q+2);
a:=Memo1.Lines.Text;
Memo1.Lines.Text:='';
Memo3.Lines.Text:='';
z:=z-1;
q:=q+1;
Memo1.Lines.Text:=a+','+IntToStr(z)+','+IntToStr(q+1);
Memo3.Lines.Text:=e+','+IntToStr(q+2)+','+IntToStr(z-1);
if q=z then Memo1.Lines.Text:=a;
if q=z then Memo2.Lines.Text:=b;
if q=z then Memo3.Lines.Text:=e;
until q=z;
 
{здесь будет ещё немного кода
end else begin
 
 
 
end;}
end;
end;

@Puporev · 13.11.2013, 12:32

Просто ввел значение в Эдит и проверил

Delphi

val(Edit1.Text,z,code);
if(code<>0)or(z mod 4<>0)or(z mod 8<>0) then
 begin
  showmessage('Значение z введено неверно, повторите');
  Edit1.Clear;
  Edit1.Setfocus;
  exit
 end;

@Satir4ik · 13.11.2013, 12:46 **[ТС]**

Куда именно это прописать и какой переменной обозначить "code"?

@Puporev · 13.11.2013, 13:11

Где будешь первый раз использовать Z, там и напиши

Delphi

1	var code:integer;

@Satir4ik · 13.11.2013, 13:16 **[ТС]**

Все равно выдает эту ошибку...

@Puporev · 13.11.2013, 13:23

Добавь еще что z<>0

Delphi

1	if(code<>0)or(z=0)or(z mod 4<>0)or(z mod 8<>0) then

Это вообще убери

Delphi

1	procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char)

А мой кусок кода вставь сюда

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
val(Edit1.Text,z,code);
if(code<>0)or(z mod 4<>0)or(z mod 8<>0) then
 begin
  showmessage('Значение z введено неверно, повторите');
  Edit1.Clear;
  Edit1.Setfocus;
  exit
 end;
q:=0;
z:=StrToInt(Edit1.Text); //это убрать

@artemka2008 · 13.11.2013, 13:25

можно так попробовать

Delphi

1 2	if Edit1.Text='' then Edit1.Text:='0';

@Satir4ik · 13.11.2013, 13:47 **[ТС]**

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

Добавь еще что z<>0

Delphi

1	if(code<>0)or(z=0)or(z mod 4<>0)or(z mod 8<>0) then

Это вообще убери

Delphi

1	procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char)

А мой кусок кода вставь сюда

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
val(Edit1.Text,z,code);
if(code<>0)or(z mod 4<>0)or(z mod 8<>0) then
 begin
  showmessage('Значение z введено неверно, повторите');
  Edit1.Clear;
  Edit1.Setfocus;
  exit
 end;
q:=0;
z:=StrToInt(Edit1.Text); //это убрать

Это может сработать, но у меня изначально кнопки отключены, потому надо чтобы именно эдит определял число которое вводится и после введения правильного числа активировал кнопки, иначе программа будет выполнять бесконечный цикл, что естественно ничего хорошего не принесет. Попробую этот код переделать под Edit1.Change.

Добавлено через 3 минуты

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

можно так попробовать

Delphi

1 2	if Edit1.Text='' then Edit1.Text:='0';

Пробовал, не получается

@artemka2008 · 13.11.2013, 13:55

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

потому надо чтобы именно эдит определял

попробуйте использовать обработчик OnChange

@Satir4ik · 13.11.2013, 14:05 **[ТС]**

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

попробуйте использовать обработчик OnChange

В 1м посте описано, и даже код выложен, что я использую Edit1.OnChange для определения нужного числа, но он не срабатывает когда поле Edit1 пустое.

@Sigin · 13.11.2013, 14:08

Держи мой вариант, со своим разбирайся сам или давай исходник (не хочу ковыряться в коде):

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
var i,j:integer;
p:string;
begin
p:=Edit1.Text;
for i:=1 to Length(p) do
if (Edit1.Text<>'') and (Edit1.Text<>'0') and (p[i] in ['0'..'9'])
then {действие}
else
  begin
    Edit1.SetFocus;
    Edit1.Text:='5';
    Showmessage('Повторите ввод');
    Break;
  end;
end;

Немного объясню суть: даже если пользователь вставит текст в Edit то оно все сотрет и присвоит Edit'у начальное значение (в моем случае - 5) если первое число 0 тоже самое.

@Puporev · 13.11.2013, 14:11

Можно и так сделать

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='' then
  begin
    showmessage('В не ввели значение Z');
    exit
  end;
....................
end;

@artemka2008 · 13.11.2013, 14:12

Satir4ik, не заметил.

как вариант в самое начало обработчика OnChange

Delphi

1	if edit1.text<>'' then begin

@Puporev · 13.11.2013, 14:16

Так работает

Delphi

var
  Form1: TForm1;
  z:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var i:integer;
begin
if not(Key in ['0'..'9', #8]) then
    Key := #0;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var z:integer;
begin
if Edit1.Text='' then
  begin
    showmessage('Â íå ââåëè çíà÷åíèå Z');
    exit
  end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
z:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(z)
end;

@artemka2008 · 13.11.2013, 14:16

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

Сообщение от artemka2008
можно так попробовать

Delphi

1 2	if Edit1.Text='' then *Edit1.Text:='0';

Пробовал, не получается

вы имели в виду, что ноль не появляется или что?

@Satir4ik · 13.11.2013, 14:59 **[ТС]**

В начало

Delphi

1	if edit1.text<>'' then begin

В конец

Delphi

end else begin
    Edit1.Text:='0';
    Panel1.Color:=clRed;
    Button1.Enabled:=false;
    Button3.Enabled:=false

Помогло =)
Но вылезла другая проблема, когда вводишь 0 вручную - программа срабатывает, а не должна...

Добавлено через 7 минут
Решил добавлением параметров (z=0) и (z<>0) в соответствующие исключения)

Всем большое спасибо!)

@Satir4ik 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 7
	13.11.2013, 14:05 [ТС]	10
	Сообщение от artemka2008 попробуйте использовать обработчик OnChange В 1м посте описано, и даже код выложен, что я использую Edit1.OnChange для определения нужного числа, но он не срабатывает когда поле Edit1 пустое. 0

@Satir4ik 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 7
	13.11.2013, 12:46 [ТС]	3
	Куда именно это прописать и какой переменной обозначить "code"? 0

@Satir4ik 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 7
	13.11.2013, 13:16 [ТС]	5
	Все равно выдает эту ошибку... 0

@artemka2008 191 / 50 / 10 Регистрация: 27.09.2013 Сообщений: 516 Записей в блоге: 4
	13.11.2013, 13:55	9
	Сообщение от Satir4ik потому надо чтобы именно эдит определял попробуйте использовать обработчик OnChange 0