Пояснить строку

[prikolist]

Программисты! Объясните пожалуйста эту строку, только подробно желательно.

if (Key ==DecimalSeparator)
if((Edit1->Text).Pos(DecimalSeparator)!=0)
{
Key = 0;
return;
}

Что такое DecimalSeparator, Key, Pos(DecimalSeparator)!=0)
Почему используется так if((Edit1->Text).Pos(DecimalSeparator)!=0)

Что даёт Key = 0; Какую роль играет return; Ответьте пожалуйста. Заранне благодарю за помощь.

[Sazary]

http://www.delphibasics.ru/DecimalSeparator.php

Переменная DecimalSeparator используется в функциях отображения валюты и вещественного числа.

Значение DecimalSeparator по умолчанию '.', в зависимости от региона Windows.

Key - какая-то переменная.

Если Key равна DecimalSeparator, то
 если в Edit1 встречается DecimalSeparator,
  то Key = 0
  и выходим из функции

Что даёт Key = 0;

Из данного куска нельзя определить.

Какую роль играет return;

Выход из функции

[Hollander]

Этого кусочка кода не хватает для понимания. Ну логически, DecimalSeparator - это разделитель строки(т.е. какой-то знак). Key - символ, который сравнивается с этим разделителем, потом в if идет поиск этого разделителя в строке Edit1->Text. А вот почему Key = 0 непонятно, т.к. по идее Key должен быть символом. Если Key - это число, то (Edit1->Text).Pos(DecimalSeparator)!=0 не имеет смысла.

[Sazary]

А вот почему Key = 0 непонятно, т.к. по идее Key должен быть символом. Если Key - это число, то (Edit1->Text).Pos(DecimalSeparator)!=0 не имеет смысла.

Да, Key - это символ. И ему присваивается код 0 (конец строки, например).

[prikolist]

Вот код полностью. Объясните пожалуйста своими словами как вы понимаете его, чтоб я тоже его так понял.

void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
// коды запрещенных клавиш заменим нулем, в результате
// символы этих клавиш в поле редактирования не появятся
// Key — код нажатой клавиши
// проверим, является ли символ допустимым

 if(( Key >= '0') && ( Key <= '9')); // цифра
 

// Глобальная переменная Decimalseparator
// содержит символ, используемый в качестве разделителя
//I при записи дробных чисел
 if ( Key == DecimalSeparator)
 if ( (Edit1->Text).Pos(DecimalSeparator) != 0)
 {
  Key =0; // разделитель уже введен
  return;
 }
 if (Key == VK_BACK) // клавиша <Backspace>
  return;
 if ( Key == VK_RETURN) // клавиша <Enter>
 {
  Edit2->SetFocus() ;
  return;
 }
// остальные клавиши запрещены
 Key =0; //не отображать символ
}

//---------------------------------------------------------------------------


void __fastcall TForm1::Edit2KeyPress(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 {
 if ( ( Key >= '0') && ( Key <= '9')) // цифра
 return;
 if ( Key == DecimalSeparator)
 if ( (Edit2->Text).Pos(DecimalSeparator) != 0)
 {
  Key =0; // разделитель уже введен
  return;
 }
 if (Key == VK_BACK) // клавиша <Backspace>
  return;
 if (Key == VK_RETURN) // клавиша <Enter>
 {
  Button1->SetFocus(); // переход к кнопке Вычислить
// I повторное нажатие клавиши <Enter>
// активизирует процесс вычисления тока
  return;
 }
 }}

[Sazary]

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

Вот код полностью

У вас же тут все подробно расписано.

[prikolist]

Да, но не описанно какую роль играет DecimalSeparator, pos, Key что делает return. Я просто не знаю именно этих трёх терминов, как их использовать и для чего применять.

[Sazary]

У вас там все написано:

// Key — код нажатой клавиши

// Глобальная переменная Decimalseparator
// содержит символ, используемый в качестве разделителя
//I при записи дробных чисел

что делает return

Про это я уже написал

pos

Это функция, которая ищет подстроку в строке.

[prikolist]

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

[Sazary]

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

Я вам привел ссылку во втором посте! Неужели так сложно посмотреть?
Там и пример найдете.