OnKeyPress ...

[mss]

см пост выше

Ага, вижу)
Должен делать "...", но почему то отказывается делать это самое "..."))
ты ЭТО хотел сказать ?
Или ты хотел сказать что BP на строчке if Key = #13 then не ловится ?)

[Вадим Мошев]

Советую выполнить пошаговую трассировку (клавиша F7).
То есть, вместо того, чтобы нажать RUN, нажимайте F7, при этом на экране так строка, которая выполняется в данный момент времени, будет выделена тёмно-синим цветом.

[Vova777]

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

Ага, вижу)
Должен делать "...", но почему то отказывается делать это самое "..."))
ты ЭТО хотел сказать ?
Или ты хотел сказать что BP на строчке if Key = #13 then не ловится ?)

ну посмотрите внимательнее, я же код выложил

[Вадим Мошев]

ещё совет

DecimalSeparator:= '.';

Не трогайте эту переменную вообще, она сама принимает нужное значение в зависимости от того, какие настройки вашего ПК.

[Vova777]

Сообщение от Вадим Мошев

ещё совет

DecimalSeparator:= '.';

Не трогайте эту переменную вообще, она сама принимает нужное значение в зависимости от того, какие настройки вашего ПК.

программа работает с файлами с других компов, там может стоять что угодно.

[Аватар]

Ваш код вообще не понятно что делает, в case для '.' какого то фига #13 обрабатывается

[Vova777]

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

Ваш код вообще не понятно что делает, в case для '.' какого то фига #13 обрабатывается

что непонятного?

1)в "case" заданы символы или кнопки которые можно использовать, #9 - это backspace, #13 - Enter, '.' - дробный разделитель, и числа.

2)if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0);
// запрет ввода второго разделителя - запрет ввода второго разделителя

3)if Key = #13 then
begin
if (Label37.Caption = 'Введите новое значение (диаметр):') and ((Edit1.Text <> '') or (Edit1.Text <> '0')) then
begin
if Edit1.Text[1] <> '.' then
Label24.Caption:= 'Диаметр: ' + Edit1.Text + ' мм'
else
Label24.Caption:= 'Диаметр: 0' + Edit1.Text + ' мм';
end
else
Label24.Caption:= 'Диаметр: н/а';
end;

//код обработки клавиши Enter

4) Key := Chr(0);
// остальные символы запрещены

простой же код...

[Вадим Мошев]

1)в "case" заданы символы или кнопки которые можно использовать, #9 - это backspace, #13 - Enter, '.' - дробный разделитель, и числа.

BackSpace - это #8.
Сейчас смотрю и анализирую ваш код, вижу, что Case похоже не к месту вообще, на и может напутано что-то с парами begin-end.
Щас посмотрим...

Вообще, пишите код форматированно.

[Аватар]

Ну это вам понятно, а это ваш код в виде, в котором хоть что-то понятно

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
  #8,'0'..'9': ;
  #13: ;
  '.': begin
      DecimalSeparator:= '.';
      if Pos(DecimalSeparator, Edit1.Text) <> 0 then Key:= Chr(0);
      if Key = #13 then begin
        if (Label37.Caption = 'Введите новое значение (диаметр):') and ((Edit1.Text <> '') or (Edit1.Text <> '0')) then begin
          if Edit1.Text[1] <> '.' then Label24.Caption:= 'Диаметр: ' + Edit1.Text + ' мм'
                                  else Label24.Caption:= 'Диаметр: 0' + Edit1.Text + ' мм';
        end
        else Label24.Caption:= 'Диаметр: н/а';
      end;
    end;
  else Key := Chr(0);
  end;
end;

Ничего не убрал кроме коментов и выровнял для наглядности, будете так оформлять - меньше ошибок будет

[Вадим Мошев]

Советую обработку написать следующим образом:

if NOT (key in [#8, #13, '.', '0'..'9']) then 
					    begin
					    	key:=chr(0);
					    	exit
					    end;
					
if key = '.' then 
		if Pos(DecimalSeparator, Edit1.Text) <> 0 then
			                		   begin
					         		 Key:= Chr(0); 
						        	 exit;
							   end; 

if key = #13 then // Обрабатываем клавишу Enter, насяльника

С ДекиминалСепараторами и десятичными точками сами разберитесь...