Einzelnen Beitrag anzeigen

Furious Dragon

Registriert seit: 3. Mär 2006
7 Beiträge
 
#6

Re: Mal wieder ein Sudoku Problem

  Alt 21. Mai 2006, 19:55
°-° schon mal thx aber ich glaub ich bin zu doof um das gard zu verstehen

oder es ist nich das was ich brauche - oder von beidem etwas

vielleicht hab ich mich einfach falsch ausgedrückt

ich hab nen Sudokufeld (StringGrid) und das habe ich über 2 for schleifen in ein array eingelesen :

Delphi-Quellcode:
for y:=0 to CMaxSudokuIndex do
  for x:=0 to CMaxSudokuIndex do
     begin
       if StrGrid.Cells[x,y] <> 'then main_array[x,y]:=StrToInt(StrGrid.Cells[x,y]);
       ...
     end;
geht es geschickter die 9ner blöcke auszulesen als:
(eigentlich ne doofe frage weil das muss einfacher gehen

Delphi-Quellcode:
for j:=0 to 2 do
  for i:=0 to 2 do
    begin
      if StrGrid.Cells[i,j] <> 'then Sub_array[i,j]:=StrToInt(StrGrid.Cells[x,y]);
      ...
    end;

for j:=3 to 5 do
  for i:=0 to 2 do
    begin
      if StrGrid.Cells[i,j] <> 'then Sub_array[i,j]:=StrToInt(StrGrid.Cells[x,y]);
      ...
    end;
    ...
for j:=6 to 8 do
  for i:=0 to 2 do
    begin
      if StrGrid.Cells[i,j] <> 'then Sub_array[i,j]:=StrToInt(StrGrid.Cells[x,y]);
      ...
    end;

...
und wenn deine Lösung die du soeben gepostet hast das problem lösen sollte dann entschuldige ich mich vielmals!!! aber ich bin noch ein noobie was programmieren angeht
  Mit Zitat antworten Zitat