1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  VAR a1,a2,a3,a4,b1,b2,b3,b4,c,i : integer;

begin

if    checkbox1.checked=true     then       i:=1;
...                2                                      ...   2;
...                3                                      ...   3;
...                5                                      ...   6;

      c:=a[i]*b[i];
      showmessage(inttostr(c));

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

   
VAR a1,a2,a3,a4,b1,b2,b3,b4,c,i : integer;

begin

a1:=strtoint(edit1.text);...(*variablen einlesen lassen*)

if checkbox1.checked=true then c:=a1*b1;
if checkbox2.checked=true then c:=a2*b2;
if checkbox3.checked=true then c:=a3+b3;
if checkbox4.checked=true then c:=a4*b4;

(*ausgabe*)showmessage...

end;					

1:
2:
3:

(* i = 1, wenn checkbox1.checked = true; i = 2 wenn checkedbox2.checked=true;...*)

c:= a[i]*b[i]   (* i ist je nach checkbox auswahl unterschiedlich*)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

VAR a : array[1..4]of integer;
       b : array[1..4]of integer;
c,i,s : integer;

if checkbox1.checked=true then i:=1;if cb2.ch=true then i:=2;...

s:=i

case s of
       1 : c:=a1*b1;
       2 : c:=a2*b2;
       3 : c:=...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if (block1.selected=true) and (block5.selected=true) then i := 1; i2 := 5

block[i]_1:=>einlesen<(*auf jeden fall irgendetwas mit den variablen machen*)
block[i]_2:=>einlesen<
block[i]_3:=>einlesen<
block[i]_4:=>einlesen<
block[i]_5:=>einlesen<
...

block[i2]_1:=>einlesen<
block[i2]_2:=>einlesen<
block[i2]_3:=>einlesen<
block[i2]_4:=>einlesen<					

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

j     := 1;
for i := 1 to 4 do
  if((FindComponent('Checkbox' + inttostr(i))
    as TCheckBox).Checked) then
  begin
    j := i; break;
  end;					

1:
2:
3:
4:

i := StrToIntDef((FindComponent('Edit' + inttostr(j)) as TEdit).Text,0) *
  StrToIntDef((FindComponent('Edit' + inttostr(j+4)) as TEdit).Text,0);

ShowMessage(inttostr(i));					

1:

i := StrToInt('Test');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

VAR a1,a2,a3,a4,b1,b2,b3,b4,i,c : intger

begin

for i := 1 to 4
begin
a[i]:=(findcomponent('edita'+inttostr(i)) as tedit).text;
b[i]:=(findcomponent('editb'+inttostr(i)) as tedit).text;
end;

if checkbox1.checked then i:=1;
if checkbox2.checked then i:=2;
if checkbox3.checked then i:=3;
if checkbox4.checked then i:=4;

c:=a[i]*b[i];
showmessage(inttostr(c));

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:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:

unit Mainprog;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, DBCtrls, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    EndeBtn: TButton;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Label2: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit1: TEdit;
    procedure EndeBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.EndeBtnClick(Sender: TObject);
begin
  close;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  aRow, aCol: ShortInt;
begin
  with StringGrid1 do begin
    Options:= Options + [goEditing, goTabs, goAlwaysShowEditor];
    Cells[0,0]:= 'Spalte A';
    Cells[1,0]:= 'Spalte B';
    Cells[2,0]:= 'Spalte C';
    Cells[3,0]:= 'Spalte D';
    Cells[4,0]:= 'Spalte E';
    Cells[5,0]:= 'Spalte F';
    Cells[6,0]:= 'Spalte G';
    Cells[7,0]:= 'Spalte H';
    RowCount:= 7;
    ColCount:= 8;
    for aRow:= 1 to RowCount -1 do
      for aCol:= 0 to ColCount-1 do
        Cells[aCol,aRow]:= IntToStr(aCol+aRow);
  end;
end;


procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  anz,i: ShortInt;
  Kodierung: string[8];
  Ergebnis: LongInt;
  Faktor: ShortInt;
  aRow: ShortInt;
  Spaltensumme: Array[1..8] of LongInt;
begin
  Kodierung:= '00000000';
  for anz:= 1 to 8 do
    if ((FindComponent('CheckBox' + IntToStr(anz)) as TCheckBox).Checked) then
      Kodierung[anz]:= '1';
  Label1.Caption:= Kodierung;

  Ergebnis:= 0;
  for anz:= 1 to 8 do begin
    Faktor:= StrToInt(Kodierung[anz]);
    With StringGrid1 do begin
      SpaltenSumme[anz]:= 0;
      for aRow:= 1 to RowCount-1 do
        SpaltenSumme[anz]:= SpaltenSumme[anz] + StrToInt(Cells[anz-1,aRow]);

      SpaltenSumme[anz]:= SpaltenSumme[anz] * Faktor;
    end;
  end;

  for anz:= 1 to 8 do
    (FindComponent('Edit' + IntToStr(anz)) as TEdit).Text:=
      IntToStr(Spaltensumme[anz]);

  Ergebnis:= 0;
  for anz:= 1 to 7 do
    for i:= anz+1 to 8 do
      Ergebnis:= Ergebnis + (SpaltenSumme[anz] * SpaltenSumme[i]);

  Label2.Caption:= Format(' %7d', [Ergebnis]);

end;

end.					

1:
2:
3:
4:

  Ergebnis:= 0; 
  for anz:= 1 to 7 do 
    for i:= anz+1 to 8 do 
      Ergebnis:= Ergebnis + (SpaltenSumme[anz] * SpaltenSumme[i]);					

1:

VAR a1,a2,a3,a4 : integer;					

1:

VAR a : Array[1..4] of Integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.Button1Click(Sender: TObject);

var a,b : array[1..3] of integer;
    i,c,m : integer;
begin

for i := 1 to 3 do
begin
a[i]:=strtoint((findcomponent('edita'+inttostr(i)) as tedit).text);
b[i]:=strtoint((findcomponent('editb'+inttostr(i)) as tedit).text);
end;

for i := 1 to 3 do
begin
if (findcomponent('checkbox'+inttostr(i))as tcheckbox).checked then m:=i;
end;

c:=a[m]+b[m];
showmessage(inttostr(c));

end;