löschen sich komponenten ?

[xineohp]

moin,


so gehts:

Delphi-Quellcode:

//Karten neu legen
  for i:=1 to 3 do begin
    for j:=1 to 7 do begin
      case i of
        1: arr1[j]:=stapel[j];
        2: arr2[j]:=stapel[7+j];
        3: arr3[j]:=stapel[14+j];
      end;
    end;
  end;