[Ogurcofff]

Пишу вот для обучения маленькую программку для расчета сопротивления электрической цепи для параллельного и последовательного соединения сопротивлений. Для выбора способа соединения (последовательного или параллельного) использую RadioButton. Так вот почему то при нажатии button1 расчитыватся только RadioButton2.checked, и совсем не расчитывается RadioButton2.checked. Где ошибке не могу понять.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Mask;   type   TForm1 = class(TForm)     edt1: TEdit;     edt2: TEdit;     rb1: TRadioButton;     rb2: TRadioButton;     btn1: TButton;     lbl1: TLabel;     procedure edt1KeyPress(Sender: TObject; var Key: Char);     procedure edt2KeyPress(Sender: TObject; var Key: Char);     procedure btn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;  R1,R2,R:Real; implementation   {$R *.dfm}   procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);   begin     case Key of       '0'..'9', #8:  ;        ',', '.':         begin key:=DecimalSeparator;         if Pos(DecimalSeparator, edt1.Text)<>0 then         Key:=chr(0);         end;         #13 : Edt2.SetFocus;     else Key:=chr(0);       end;   end;   procedure TForm1.edt2KeyPress(Sender: TObject; var Key: Char);   begin       case Key of       '0'..'9', #8:   ;        ',', '.':         begin key:=DecimalSeparator;         if Pos(DecimalSeparator, edt2.Text)<>0 then         Key:=chr(0);         end;         #13 : btn1.SetFocus;     else Key:=chr(0);       end;   end;   procedure TForm1.btn1Click(Sender: TObject);   begin       if (Edt1.Text = '') then         begin           Edt1.SetFocus;           ShowMessage(' ');           Exit;         end;         R1:=StrToFloat(edt1.text);    if (Edt2.Text = '') then          begin           Edt2.SetFocus;           ShowMessage(' ');           Exit;         end;         R2:=StrToFloat(edt2.Text);         <b>if rb1.Checked then</b>       if R1+R2=0 then          begin          ShowMessage(' ');          Exit;          end;            begin          R:=R1+R2 ;          end;           <b> if rb2.Checked then</b>      if R1+R2=0 then         begin         ShowMessage('Îäíî èç çíà÷åíèé ðàâíî 0');         Exit;          end;          begin         R:=(R1*R2)/(R1+R2);         end;         lbl1.Caption:=FloatToStr(R);   end;   end.

[Aristarh Dark]

Очепятка, однако:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

procedure TForm1.btn1Click(Sender: TObject);   begin <font color="red">      R:=0;  //к/з</font>       if (Edt1.Text = '') then         begin           Edt1.SetFocus;           ShowMessage(' ');           Exit;         end;         R1:=StrToFloat(edt1.text);    if (Edt2.Text = '') then          begin           Edt2.SetFocus;           ShowMessage(' ');           Exit;         end;         R2:=StrToFloat(edt2.Text);         if rb1.Checked then       if R1+R2=0 then          begin          ShowMessage(' ');          Exit;          end       <font color="Red">else</font>          begin          R:=R1+R2 ;          end;            if rb2.Checked then      if R1+R2=0 then         begin         ShowMessage('Одно из значений равно 0');         Exit;          end       <font color="red">else</font>           begin         R:=(R1*R2)/(R1+R2);         end;   lbl1.Caption:=FloatToStr(R);   end;

или, если не опечатка - то непонимание принципа работы программы.

[Ogurcofff]

Ну елки палки! Точно! Вот в такие моменты чувствую себя полным идиотом. Спасибо большое!!!

[Ogurcofff]

и еще вопрос в догонку. нужно в edit запретить ввод 2х нулей до запятой т.е. чтобы нельзя было ввести 00,1 или 000,1.
нашел вариант в книге:

Код:

1 2 3

if edt1.text <> '0' then edt1.text:= edt1.text + '0';

Но у меня почему то получается что к одному нулю еще ноль прибавляется.