1:
2:
3:
4:

case RadioGroup1.ItemIndex of
  0: Reihenschaltung;
  1: Parallelschaltung;
end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
    0: Reihenschaltung;
    1: Parallelschaltung;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
    0: Label1.Caption:='Reihenschaltung';
    1: Label1.Caption:='Parallelschaltung';
 end;
end;                    

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:

var
  Form1: TForm1;
   var Schaltung:String;
implementation

{$R *.dfm}

procedure Reihenschaltung;
begin
  Schaltung:='Reihenschaltung';
end;

procedure Parallelschaltung;
begin
  Schaltung:='Parallelschaltung';
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
 case RadioGroup1.ItemIndex of
    0: Reihenschaltung;
    1: Parallelschaltung;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=Schaltung;
end;                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=Schaltung;
end                    

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:

unit Zeigerdiagramm_Neu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)

  GroupBox1: TGroupBox; {In GroupBox1 befindet sich alles außer später die Leinwand in der gezeichnet werden soll}

    GroupBox2: TGroupBox; {In GroupBox2 müssen vier Werte eingegeben Werden}
      Label1: TLabel;
      Label2: TLabel;
      Label3: TLabel;
      Label4: TLabel;

      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Edit4: TEdit;

    GroupBox3: TGroupBox; {In GroupBox3 werden 9 Werte berechnet}
      Label5: TLabel;
      Label6: TLabel;
      Label7: TLabel;
      Label8: TLabel;
      Label9: TLabel;
      Label10: TLabel;
      Label11: TLabel;
      Label12: TLabel;
      Label13: TLabel;

      Edit5: TEdit;
      Edit6: TEdit;
      Edit7: TEdit;
      Edit8: TEdit;
      Edit9: TEdit;
      Edit10: TEdit;
      Edit11: TEdit;
      Edit12: TEdit;
      Edit13: TEdit;

    RadioGroup1: TRadioGroup; {In RadioGroup1 kann zwischen der Reihen- und Parallel- schaltung ausgewählt werden, woraufhin die Rechenmethoden wechseln} 

    procedure RadioGroup1Click(Sender: TObject);







  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  C, f : real; {C ist die Kapazität des Kondensators, f ist die Frequenz}
  Schaltung :String; {Die Zeichenflolge "Schaltung"  ist ein reserviertes Wort}
implementation

{$R *.dfm}


procedure Reihenschaltung;
  begin
    Schaltung:='Reihenschaltung'
  end;

procedure Parallelschaltung;
  begin
    Schaltung:='Parallelschaltung'
  end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
  begin
    case RadioGroup1.ItemIndex of
      0: Reihenschaltung;
      1: Parallelschaltung;
    end;
  end;





end.