сократить исключительную ситуацию > 140

[beegl]

Как бы сократить исключительную ситуацию > 140 в OnChange Edit1

Записал так:

if SelGIF > 140 then
begin
SelGIF := 140;
Edit1.Text := '140';
TrackBarGIF.Position := SelGIF;
end;

Но если ввожу 56 и случайно нажал 7, то будет 140, а как доделать такую исключительную ситуацию, чтобы если ввожу 567 то не получалось 140, а оставался запрет на большое число, но 56 оставалось, а не сбрасывало на Max := 140?

[Аватар]

  if SelGIF > 140 then
  begin
    s:=Copy(IntToStr(SelGIF),1,3);
    if s>'140' then s:=Copy(s,1,2);
    SelGIF := StrToInt(s);
    Edit1.Text := s;
    TrackBarGIF.Position := SelGIF;
  end;

Камасутра

[eoln]

А если вводим 145, то должно 140, т.к ошиблись границей? Или 14?
А если 157, то 15, т.к одну цифру случайно ввели?
Можно короче

  while SelGIF > 150 do SelGIF := SelGIF div 10;
  if SelGIF > 140 then SelGIF := 140;
  Edit1.Text := inttostr(SelGIF);
  TrackBarGIF.Position := SelGIF;

или если переход границы не учитывать

  while SelGIF > 140 do SelGIF := SelGIF div 10;
  Edit1.Text := inttostr(SelGIF);
  TrackBarGIF.Position := SelGIF;

Ну и длину вводимого текста ограничить в свойствах эдитов до 3 символов (тогда while и не нужен будет, а хватит if), чтобы переполнения integer не было

[beegl]

Сообщение от Аватар

  if SelGIF > 140 then
  begin
    s:=Copy(IntToStr(SelGIF),1,3);
    if s>'140' then s:=Copy(s,1,2);
    SelGIF := StrToInt(s);
    Edit1.Text := s;
    TrackBarGIF.Position := SelGIF;
  end;

Камасутра

Классно. Работает. А как сделать в OnChange TrackBarGIF, чтобы если Edit1.Text := '';, то TrackBarGIF.Position := 1;, но в Edit1.Text := '';

Делал так, зависает программа:

Edit1.Text := IntToStr(TrackBarGIF.Position);
  if Edit1.Text = '' then
  begin
    TrackBarGIF.Position := 1;
    Edit1.Text := '';
  end;

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

Ну и длину вводимого текста ограничить в свойствах эдитов до 3 символов (тогда while и не нужен будет, а хватит if), чтобы переполнения integer не было

Edit OnKeyPress

procedure TKamasutraForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = ',' then
    Key := DecimalSeparator; // запятую заменяем на разделитель для числа
  if Key = '.' then
    Key := DecimalSeparator; // точку заменяем на сепаратор (на всякий случай)
  if not (Key in ['0'..'9','-',DecimalSeparator,#8,#13]) // символы которые пропускаются
    or ((Key = DecimalSeparator) // все цифры знак минус разделитель
    and (POS (DecimalSeparator, Edit1.Text) > 0)) // запрет на второй сепаратор
    or ((Key = '-') and (POS ('-', Edit1.Text) > 0)) // запрет на второй минус
    or ((Key = '-') and (Edit1.SelStart <> 0)) // запрет на минус не вначале цифры
    then // (можно и предыдущей строчки но так лучше для понимания)
  begin
      Key := #0; // запрещенный символ заменяем нулем
      MessageBeep (MB_OK); // биб в спикир
  end;
end;

Edit OnChange

procedure TKamasutraForm.Edit1Change(Sender: TObject);
begin
SetKeys(VK_END);
if (Edit1.Text <= ' ') or (Edit1.Text = '') or (Edit1.Text = '0000') or
(Edit1.Text = '000') or (Edit1.Text = '00') or (Edit1.Text = '0') then
begin
SelGIF := 1;
Edit1.Text := '';
TrackBarGIF.Position := 1;
end else
SelGIF := StrToInt(Edit1.Text);
if FileExists(ExtractFilePath(Application.ExeName) + 'IMG\SEX' + IntToStr(SelGIF) +'.GIF') then
 begin
  DisplayGIF.Image.LoadFromFile(ExtractFilePath(Application.ExeName) +'IMG\SEX' + IntToStr(SelGIF) +'.GIF');
  TrackBarGIF.Position := SelGIF;
  Label3.Caption := 'SEX' + IntToStr(TrackBarGIF.Position) +'.GIF';
end;
if SelGIF > 140 then
  begin
    s := Copy(IntToStr(SelGIF),1,3);
    if s> '140' then s := Copy(s,1,2);
    SelGIF := StrToInt(s);
    Edit1.Text := s;
    TrackBarGIF.Position := SelGIF;
  end;

[Аватар]

Делал так, зависает программа:

// Edit1.Text := '';
 Edit1.Text := '1';

Зависает потому, что впадает в цикл без выхода

[kropotkina-alice]

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

...если ввожу 56 и случайно нажал 7, то будет 140, а как доделать такую исключительную ситуацию, чтобы если ввожу 567 то не получалось 140, а оставался запрет на большое число, но 56 оставалось, а не сбрасывало на Max := 140?

Например:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0'..'9'] then
if (StrToInt(Edit1.Text+Key)>140) then
key:=Chr(0);
end;

[Serge_Bliznykov]

kropotkina-alice, а ваш код учитывает, что позиция ввода (курсор) может стоять не только в конце поля Edit1, но и в начале, и в середине?

[kropotkina-alice]

Если я сделаю всё, то ТС совсем не надо будет включать мозг, а это неправильно
Вот и пусть сам добавит проверку на ввод не цифровых значений и прочего.
Главное, что я хотела показать - что обработчик должен быть не на OnChange, а именно на нажатие клавиши...

[Аватар]

обработчик должен быть не на OnChange, а именно на нажатие клавиши

А еще есть Ctrl-V. Так что OnChange, не так конечно как у ТС

[kropotkina-alice]

Сообщение от Аватар

А еще есть Ctrl-V. Так что OnChange, не так конечно как у ТС

Обработка OnChange - это обработка, увы, уже свершившегося факта.
А обработка нажатия - это предварительная обработка с целью недопущения ненужного события...