Dyn Array vielleicht????

[foerster7892]

Delphi-Quellcode:

procedure Moeglichkeiten(Werte : array of array of string);
var Stabe1, Stabe2, Stabe3 :string;
    i, g, h, j, Anzahl, Varianten :integer;
begin

  if Taste1 then
  begin
    Stabe1:='A';
    Stabe2:='B';
    Stabe3:='C';
    Anzahl:=Anzahl + 1;
  end;

  if Taste2 then
  begin
    Stabe1:='D';
    Stabe2:='E';
    Stabe3:='F';
    Anzahl:=Anzahl + 1;
  end;

  if Taste3 then
  begin
    Stabe1:='G';
    Stabe2:='H';
    Stabe3:='I';
    Anzahl:=Anzahl + 1;
  end;

  if Taste4 then
  begin
    Stabe1:='J';
    Stabe2:='K';
    Stabe3:='L';
    Anzahl:=Anzahl + 1;
  end;

  if Taste5 then
  begin
    Stabe1:='M';
    Stabe2:='N';
    Stabe3:='O';
    Anzahl:=Anzahl + 1;
  end;

  if Taste6 then
  begin
    Stabe1:='P';
    Stabe2:='Q';
    Stabe3:='R';
    Anzahl:=Anzahl + 1;
  end;

  if Taste7 then
  begin
    Stabe1:='S';
    Stabe2:='T';
    Stabe3:='U';
    Anzahl:=Anzahl + 1;
  end;

  if Taste8 then
  begin
    Stabe1:='V';
    Stabe2:='W';
    Stabe3:='X';
    Anzahl:=Anzahl + 1;
  end;

Varianten := Potenzfkt(Anzahl);
SetLength(Werte, Anzahl, Varianten);

for i := Anzahl downto 1 do
begin
  if i = Anzahl then
  begin
    Varianten := Varianten/3;

    for g := 1 to (Varianten/3) do
    Werte[i, Varianten]:= Stabe1;

    for h := (1/3*Varianten+1) to (2*Varianten/3) do
    Werte[i, Varianten]:= Stabe2;

    for j := (2/3*Varianten+1) to Varianten do
    Werte[i, Varianten]:= Stabe3;
  end

  else
  begin
    Stabe1 := Werte[i, Varianten/3] ;
    Stabe2 := Werte[i, 2*Varianten/3] ;
    Stabe3 := Werte[i, Varianten] ;

    for g := 1 to (Varianten/3) do
    Werte[i, Varianten]:= Stabe1;

    for h := (1/3*Varianten+1) to (2*Varianten/3) do
    Werte[i, Varianten]:= Stabe2;

    for j := (2/3*Varianten+1) to Varianten) do
    Werte[i, Varianten]:= Stabe3;

  end;
end;

end;

das is die procedure