Variablen Massenhaft definieren

[holger_barntrup]

Zeig doch mal wie du das gemacht hast bitte.

[Kegasetu]

Das ist der Befehl zum speichern

Delphi-Quellcode:

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;

[Jumpy]

Wenn mb,l,ewb als 2-dimensionale Arrays angelegt wären, könnte man schreiben:

Delphi-Quellcode:

 mb[ComboBox1.ItemIndex,ComboBox2.ItemIndex] := strtofloat(edit1.Text);
 l[ComboBox1.ItemIndex,ComboBox2.ItemIndex] := strtofloat(edit2.Text);
 ewb[ComboBox1.ItemIndex,ComboBox2.ItemIndex] := strtofloat(edit3.Text);

Wenn dann b und bz 4-dimensionale Array wären und man die Schleifenreihenfolge umdreht könnte man k weglassen und schreiben

Delphi-Quellcode:

  for t := 1 to 13 do
    begin
    bz[ComboBox1.ItemIndex,ComboBox2.ItemIndex,0,t] := stringgrid1.Cells[0,t];
    for i := 1 to 4 do
      begin
          b[ComboBox1.ItemIndex,ComboBox2.ItemIndex,i,t] := strtofloat(stringgrid1.Cells[i,t]);
      end;
    end;

Oder Alternativ ein 3-dimensionales Array mit k, wobei man k statt hochzuzählen auch aus i und t berechnen könnte (k:=t+(i-1)*13).
Auf jeden Fall hätte man sich viel Code gespart.