Кто-нибудь оптимизируйте действие при выборе radiobutton2

[Алексей_2012]

Здравствуйте, в предыдущей теме вы мне помогали написать программу применяя логическое xor, я сделал по аналогии, написал свою процедуру перевода двоичных символов в десятичное число, все работает, но все очень громоздко, может быть кто-то сможет оптимизировать код, который выполняется при активации radiobutton2? А если можно, то лучше весь проект (2 из 5 радиокнопок пока не начал делать, их не пишите)

[Dozent]

Мне снег возле горожа надо почистить, а ещё у тёщи, лопату дам. Огород пока копать не надо...

[Алексей_2012]

код рабочий, просто оптимизация, ито для себя, сейчас сам сижу пытаюсь что-то переделать, а написал что радиобАттоны трогать не надо, потому что некоторые форумчане могу поинтересоваться для чего тут еще rb3 и rb4

[evg_m]

самая простая оптимизация сделать ОТДЕЛЬНЫЕ процедуры для каждой задачи

 if RadioButton1.Checked then begin
    if edit1.text='' then exit;
    CalcIsb(edit1.Text);
    Edit1.SetFocus;
 end

 else if RadioButton2.Checked then begin
   if (edit1.text='') or (edit2.text='') then exit;
   if not FindErr(Edit1.Text, Edit2.Text) then begin
     ShowMessage('Ошибок не найдено!');
     Exit;
   end;
   Edit1.SetFocus;
 end

кода остается столько же но читать его становится легче.
второй оптимизацией я бы назвал исключение всех глобально заданных (а по сути локальных) переменных.
хаффман.rar версия с лок. переменными и отдельными процедурами.

[Алексей_2012]

а еще вопрос, на вкладке events Tedit1 выбираю onenter, в списке выбираю button1, далее тестирую, ввожу 1101 (например), нажимаю enter и ничего не происходит почему-то

[Sciv]

onenter - это не событие нажатия энтера. Это скорее событие попадания мыши в пределы объекта. Событие-Антоним - onexit.

Для обработки нажатия кнопок юзайте OnKeyPress и иже с ним

[Алексей_2012]

тогда подскажите код клавиши enter

[Smitt&Wesson]

Сообщение от Алексей_2012

тогда подскажите код клавиши enter

Код клавиши Enter - 0x0D.

[Sibedir]

Сообщение от Алексей_2012

а еще вопрос, на вкладке events Tedit1 выбираю onenter, в списке выбираю button1, далее тестирую, ввожу 1101 (например), нажимаю enter и ничего не происходит почему-то

Может вам нужно просто установить Button1.Default = True, там же в инспекторе объектов.

Button1.Default = True означает, что если текущий компонент, который сейчас находится в фокусе, никак не обрабатывает нажатие [Enter] (не гасит это событие), то событие передастся кнопке. Button1.Cancel дает аналогичное поведение для нажатия [Esc]. И два компонента на одном родителе не должны одновременно иметь значение Default или Cancel = True. Потому что это бессмысленно. Первый же (по порядку) компонент с Default или Cancel = True погасит событие нажатия [Enter] или [Esc] и дальше оно просто не пойдет.

[Алексей_2012]

Ладно, все работает нормально, но если ввести больше 10бит в edit1 программа выдает ошибку (скриншот ошибки и мои модернизации) во вложении, к тому что в комментарии не придерайтесь, это я просто выписывал количество избыточного кода в зависимости от введенного количества бит, чтобы потом отделить столько то символов от edit1 и запихнуть то что отделил в переменную, и подставить эту переменную вместо edit1 ошибка вылетает про включенной радиокнопки1, введите 10 бит-не будет ошибки, введите более 10-вылетит ошибка, не пойму в чем дело, хотя в моей версии программы такой ошибки небыло