Sooo
ich habe mich wieder mal lange an meinen Builder gesetzt und habe dank der .pas von dajuhsa (DANKE
) endlich einen weg gefunden wie ich den wert ermitteln kann uuuuund in der Spalte suchen kann
KLAR is es nicht gerade die schönste art aber naja immerhin
nur irgentwie hat der mist einen bug ... er findet alle fehler in der Spalte und in der Reihe aber wenn z.B noch nichts eingetragen wurde und man irgendeine Zahl in die erste Reihe bzw. Spalte einträgt sagt er mir es gäbe einen Fehler! nur warum kA... (also keinen prozessfehler sondern die Fehlermeldung von mir ;D)
Delphi-Quellcode:
procedure TForm1.Sudokuregeln(Sudoku: TStringGrid);
VAR
selBottom, selRight, Check: integer;
Zahl, CheckZahl : string;
Row, Col: Array [0..3] of integer;
begin
// Row zurücksetzen
Row[0] := 0;
Row[1] := 0;
Row[2] := 0;
Row[3] := 0;
// Col zurücksetzen
Col[0] := 0;
Col[1] := 0;
Col[2] := 0;
Col[3] := 0;
// Zahl suchen
selBottom := Sudoku.Selection.Bottom;
selRight := Sudoku.Selection.Right;
Zahl := Sudoku.Cells[selRight, selBottom];
IF Zahl = '' then exit
else
begin
// Reihe eingrenzen
IF selRight = 0 then
begin
Row[0] := 1;
Row[1] := (Sudoku.RowCount - 1);
end
else
begin
Row[0] := 0;
Row[1] := (selRight - 1);
Row[2] := (selRight + 1);
Row[3] := (Sudoku.RowCount - 1);
end;
// Reihe überprüfen
for Check := Row[0] to Row[1] do
begin
CheckZahl := Sudoku.Cells[Check, selBottom];
IF CheckZahl = Zahl then MessageDlg('Es ist ein Fehler im Kasten {' + inttostr(Check + 1) + ',' + inttostr(selBottom + 1) + '} aufgetreten!', mtError, [mbOK], 0);
end;
for Check := Row[2] to Row[3] do
begin
CheckZahl := Sudoku.Cells[Check, selBottom];
IF CheckZahl = Zahl then MessageDlg('Es is ein Fehler im Kasten {' + inttostr(Check + 1) + ',' + inttostr(selBottom + 1) + '} aufgetreten!', mtError, [mbOK], 0);
end;
// Spalte eingrenzen
IF selBottom = 0 then
begin
Col[0] := 1;
Col[1] := (Sudoku.ColCount - 1);
end
else
begin
Col[0] := 0;
Col[1] := (selBottom - 1);
Col[2] := (selBottom + 1);
Col[3] := (Sudoku.ColCount - 1)
end;
// Spalte überprüfen
for Check := Col[0] to Col[1] do
begin
CheckZahl := Sudoku.Cells[selRight, Check];
IF CheckZahl = Zahl then MessageDlg('Es is ein Fehler im Kasten {' + inttostr(selRight + 1) + ',' + inttostr(Check + 1) + '} aufgetreten!', mtError, [mbOK], 0);
end;
for Check := Col[2] to Col[3] do
begin
CheckZahl := Sudoku.Cells[selRight, Check];
IF CheckZahl = Zahl then MessageDlg('Es is ein Fehler im Kasten {' + inttostr(selRight + 1) + ',' + inttostr(Check + 1) + '} aufgetreten!', mtError, [mbOK], 0);
end;
end;
end;
und wieder ma danke im Vorraus