procedure TForm2.Button1Click(Sender: TObject);
var i,t,k: integer;
begin
lab5[Combobox1.ItemIndex*ComboBox1.ItemIndex]:= 'Morsch'; //für später
if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 0)) then
begin
mb1a1 := strtofloat(edit1.Text);
l1a1 := strtofloat(edit2.Text);
ewb1a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b1a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz1a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 0)) then
begin
mb2a1 := strtofloat(edit1.Text);
l2a1 := strtofloat(edit2.Text);
ewb2a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b2a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz2a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 0)) then
begin
mb3a1 := strtofloat(edit1.Text);
l3a1 := strtofloat(edit2.Text);
ewb3a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b3a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz3a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 0)) then
begin
mb4a1 := strtofloat(edit1.Text);
l4a1 := strtofloat(edit2.Text);
ewb4a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b4a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz4a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 0)) then
begin
mb5a1 := strtofloat(edit1.Text);
l5a1 := strtofloat(edit2.Text);
ewb5a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b5a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz5a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 0)) then
begin
mb6a1 := strtofloat(edit1.Text);
l6a1 := strtofloat(edit2.Text);
ewb6a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b6a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz6a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 0)) then
begin
mb7a1 := strtofloat(edit1.Text);
l7a1 := strtofloat(edit2.Text);
ewb7a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b7a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz7a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 0)) then
begin
mb8a1 := strtofloat(edit1.Text);
l8a1 := strtofloat(edit2.Text);
ewb8a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b8a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz8a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 0)) then
begin
mb9a1 := strtofloat(edit1.Text);
l9a1 := strtofloat(edit2.Text);
ewb9a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b9a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz9a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 0)) then
begin
mb10a1 := strtofloat(edit1.Text);
l10a1 := strtofloat(edit2.Text);
ewb10a1 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b10a1[k] := strtofloat(stringgrid1.Cells[i,t]);
bz10a1[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 1)) then
begin
mb1a2 := strtofloat(edit1.Text);
l1a2 := strtofloat(edit2.Text);
ewb1a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b1a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz1a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 1)) then
begin
mb2a2 := strtofloat(edit1.Text);
l2a2 := strtofloat(edit2.Text);
ewb2a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b2a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz2a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 1)) then
begin
mb3a2 := strtofloat(edit1.Text);
l3a2 := strtofloat(edit2.Text);
ewb3a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b3a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz3a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 1)) then
begin
mb4a2 := strtofloat(edit1.Text);
l4a2 := strtofloat(edit2.Text);
ewb4a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b4a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz4a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 1)) then
begin
mb5a2 := strtofloat(edit1.Text);
l5a2 := strtofloat(edit2.Text);
ewb5a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b5a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz5a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 1)) then
begin
mb6a2 := strtofloat(edit1.Text);
l6a2 := strtofloat(edit2.Text);
ewb6a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b6a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz6a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 1)) then
begin
mb7a2 := strtofloat(edit1.Text);
l7a2 := strtofloat(edit2.Text);
ewb7a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b7a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz7a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 1)) then
begin
mb8a2 := strtofloat(edit1.Text);
l8a2 := strtofloat(edit2.Text);
ewb8a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b8a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz8a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 1)) then
begin
mb9a2 := strtofloat(edit1.Text);
l9a2 := strtofloat(edit2.Text);
ewb9a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b9a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz9a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 1)) then
begin
mb10a2 := strtofloat(edit1.Text);
l10a2 := strtofloat(edit2.Text);
ewb10a2 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b10a2[k] := strtofloat(stringgrid1.Cells[i,t]);
bz10a2[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 2)) then
begin
mb1a3 := strtofloat(edit1.Text);
l1a3 := strtofloat(edit2.Text);
ewb1a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b1a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz1a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 2)) then
begin
mb2a3 := strtofloat(edit1.Text);
l2a3 := strtofloat(edit2.Text);
ewb2a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b2a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz2a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 2)) then
begin
mb3a3 := strtofloat(edit1.Text);
l3a3 := strtofloat(edit2.Text);
ewb3a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b3a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz3a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 2)) then
begin
mb4a3 := strtofloat(edit1.Text);
l4a3 := strtofloat(edit2.Text);
ewb4a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b4a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz4a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 2)) then
begin
mb5a3 := strtofloat(edit1.Text);
l5a3 := strtofloat(edit2.Text);
ewb5a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b5a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz5a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 2)) then
begin
mb6a3 := strtofloat(edit1.Text);
l6a3 := strtofloat(edit2.Text);
ewb6a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b6a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz6a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 2)) then
begin
mb7a3 := strtofloat(edit1.Text);
l7a3 := strtofloat(edit2.Text);
ewb7a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b7a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz7a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 2)) then
begin
mb8a3 := strtofloat(edit1.Text);
l8a3 := strtofloat(edit2.Text);
ewb8a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b8a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz8a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 2)) then
begin
mb9a3 := strtofloat(edit1.Text);
l9a3 := strtofloat(edit2.Text);
ewb9a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b9a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz9a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 2)) then
begin
mb10a3 := strtofloat(edit1.Text);
l10a3 := strtofloat(edit2.Text);
ewb10a3 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b10a3[k] := strtofloat(stringgrid1.Cells[i,t]);
bz10a3[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 0) and (ComboBox2.ItemIndex = 3)) then
begin
mb1a4 := strtofloat(edit1.Text);
l1a4 := strtofloat(edit2.Text);
ewb1a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b1a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz1a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 1) and (ComboBox2.ItemIndex = 3)) then
begin
mb2a4 := strtofloat(edit1.Text);
l2a4 := strtofloat(edit2.Text);
ewb2a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b2a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz2a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 2) and (ComboBox2.ItemIndex = 3)) then
begin
mb3a4 := strtofloat(edit1.Text);
l3a4 := strtofloat(edit2.Text);
ewb3a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b3a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz3a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 3) and (ComboBox2.ItemIndex = 3)) then
begin
mb4a4 := strtofloat(edit1.Text);
l4a4 := strtofloat(edit2.Text);
ewb4a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b4a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz4a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 4) and (ComboBox2.ItemIndex = 3)) then
begin
mb5a4 := strtofloat(edit1.Text);
l5a4 := strtofloat(edit2.Text);
ewb5a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b5a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz5a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 5) and (ComboBox2.ItemIndex = 3)) then
begin
mb6a4 := strtofloat(edit1.Text);
l6a4 := strtofloat(edit2.Text);
ewb6a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b6a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz6a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 6) and (ComboBox2.ItemIndex = 3)) then
begin
mb7a4 := strtofloat(edit1.Text);
l7a4 := strtofloat(edit2.Text);
ewb7a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b7a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz7a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 7) and (ComboBox2.ItemIndex = 3)) then
begin
mb8a4 := strtofloat(edit1.Text);
l8a4 := strtofloat(edit2.Text);
ewb8a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b8a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz8a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 8) and (ComboBox2.ItemIndex = 3)) then
begin
mb9a4 := strtofloat(edit1.Text);
l9a4 := strtofloat(edit2.Text);
ewb9a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b9a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz9a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
if ((ComboBox1.ItemIndex = 9) and (ComboBox2.ItemIndex = 3)) then
begin
mb10a4 := strtofloat(edit1.Text);
l10a4 := strtofloat(edit2.Text);
ewb10a4 := strtofloat(edit3.Text);
k:= 1;
for i := 1 to 4 do
for t := 1 to 13 do
begin
b10a4[k] := strtofloat(stringgrid1.Cells[i,t]);
bz10a4[k] := stringgrid1.Cells[0,t];
k:=k+1;
end;
end;
end;