momentan schaffe ich es, die erste reihe abwechselnd mit 1 und 0 zu füllen,
ich bringe es auch zusammen, dass es mir die nächsten spalten auffült, jedoch in falscher reihenfolge..
der Code:
Delphi-Quellcode:
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
i,j: Integer;
p: Real;
begin
p:= 1;
for j := 1 to SpinEdit1.Value do p := p*2;
with sg1 do
begin
ColCount := SpinEdit1.Value;
RowCount := trunc(p) + FixedRows;
for i := 1 to trunc(p) do
Cells[SpinEdit1.Value-1, i] := IntToStr(1 - i mod 2);
for i := 1 to trunc(p) do
Cells[SpinEdit1.Value-2, i] := IntToStr(1 - i div 2 mod 2);
for i := 1 to trunc(p) do
Cells[SpinEdit1.Value-3, i] := IntToStr(1 - i div 4 mod 2);
end;
end;
sreenshot von falsch angeordneten zahlen dabei