Кто может чуть доделать код? - Программа Судоку на Delphi

[vadiprog]

Вот есть код игры "СУДОКУ" надо сделать так, чтобы при проверке горизонтальных и вертикальных рядов, если числа в строке или столбце повторялись, то выделить их красным.

Текстовый документ с кодом можно скачать отсюда http://zalil.ru/33187115 так как сюда весь код не влезает.( "Вы ввели слишком длинный текст (5729 символов). Пожалуйста, сократите его до 5000 символов.")

[Serge_Bliznykov]

по большому-пребольшому секрету скажу Вам, что то, что Вы выложили, это даже не только не проект, это даже не одна форма - это ПОЛОВИНКА от вашей формы...

не думаю, что без исходников проекта целиком Вам кто-то чем-то поможет...
имхо, разумеется...

[vadiprog]

Сообщение от Serge_Bliznykov

по большому-пребольшому секрету скажу Вам, что то, что Вы выложили, это даже не только не проект, это даже не одна форма - это ПОЛОВИНКА от вашей формы...

не думаю, что без исходников проекта целиком Вам кто-то чем-то поможет...
имхо, разумеется...

http://zalil.ru/33186777 вот все исходники

[vadiprog]

нету желающих помочь?

[vadiprog]

цена вопроса 70 р.

[Serge_Bliznykov]

замените процедуру Draw на такую:

procedure TForm4.Draw;    //процедура яка замальовує цифри та встановлює їхне положення

function IsDouble(r,c : integer ) : boolean;
var i : integer;
begin
  IsDouble := false;
  if fields[r,c].Placed=-1 then Exit;
  for i := 0 to 8 do
    if (i<>r) and (fields[i,c].Placed = fields[r,c].Placed) then begin
      IsDouble := True;
      Exit
    end;
  for i := 0 to 8 do
    if (i<>c) and (fields[r,i].Placed = fields[r,c].Placed) then begin
      IsDouble := True;
      Exit
    end;
end;
var x,y,ax,ay : integer;
begin
  DrawGrid;
  Image1.Canvas.DrawFocusRect(Rect(35*selx+1, 35*sely+1, 35*(selx+1), 35*(sely+1))); //квадрат який виділяє вибрану цифру
  Image1.Canvas.Font.Style := [fsBold]; //жирний стиль
  Image1.Canvas.Font.Size:=18;    //розмір цифр

  //встановлює моложення цифр а також їхній колір (чорний - фіксована, синій - вільна, оливкова - перемога)
  for x := 0 to 8 do
    for y := 0 to 8 do begin
      ax := 35*x +10;
      ay := 35*y +3;
      if fields[x,y].InLevel then Image1.Canvas.Font.Color := clBlack
                             else begin
                               if IsDouble(x,y) then Image1.Canvas.Font.Color := clRed
                                                else Image1.Canvas.Font.Color := clBlue;
                             end;
      if win then
        Image1.Canvas.Font.Color := clOlive;
      if fields[x,y].Placed <> -1 then
        Image1.Canvas.TextOut(ax,ay,inttostr(fields[x,y].Placed));
    end;
end;

лень расписывать, что я вставил. сравните со своей - увидите разницу.
это раз.
и второе, я сделал точно, как Вы просили:

надо сделать так, чтобы при проверке горизонтальных и вертикальных рядов, если числа в строке или столбце повторялись, то выделить их красным

по правилам Судоку, если внутри квадрата есть повторы - это это тоже недопустимо, но я это не проверяю (ибо лень )

Успехов!