Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.08.2011, 16:03
Ogurcofff Ogurcofff вне форума
Прохожий
 
Регистрация: 28.07.2011
Сообщения: 34
Репутация: 12
По умолчанию RadioButton. Не могу справится

Пишу вот для обучения маленькую программку для расчета сопротивления электрической цепи для параллельного и последовательного соединения сопротивлений. Для выбора способа соединения (последовательного или параллельного) использую 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.
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 08:21.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025