Советы по головоломке "Разбиение на прямоугольники" - вывод, сохранение результатов

[Кристина Юрьевна]

Здравствуйте,уважаемые!) я пишу курсовую на delphi.
тема курсовой- "головоломка"Разбиение на прямоугольники"",хотелось бы услышать,в данном случае прочесть советы ваши,что сделать и как,ибо требования ого-го какие условие самой головоломки:
"значит задана типа сетка(как тетрадный лист в клеточку) и в ней стоят в разброс цифры,эти цифры являются величинами площадей прямоугольников,которые необходим выделить(например стоит цифра 6,значит это прямоугольник 2 на 3 клеточки,и нужно вокруг этой цифры начертить по клеткам этот прямоугольник),если число простое,то это будет линия из клеток,длинной в это число.если пользователь не может сам выделить,то авторешение должно сделать это за него.
хотелось бы выслушать всех,кто сюда заглянет!спасибо заранее!

[chertovich]

Рисовать нужно на Canvas, а данные брать, например, из массива
Потом надо найти стороны прямоугольника (надо составить алгоритм, это сами)

[Кристина Юрьевна]

ммм,ну что работать с Canvas придётся,это я уже поняла)
заполнение этой сетки наверное рандомное будет.
вопросы такие у меня созрели;
1)как лучше писать такую вещь,как например число 12-это 2*6 и 3*4,как программа будет это выбирать?
2)и по изображениям вопрос,какие всё-такие форматы можно вставлять на форму? только растровые изображения?

[chertovich]

  TStoroni = record
    a, b: Integer;
  end;

  TStoroniArr = array of TStoroni;

var
  Form1: TForm1;

function GetStoroniArr(S: Integer): TStoroniArr;

implementation

{$R *.dfm}

function GetStoroniArr(S: Integer): TStoroniArr;
var
  a, b: Integer;
begin
  SetLength(Result, 0);
  for a := 1 to S do
    for b := 1 to S do
    begin
      if a * b = S then
      begin
        SetLength(Result, Length(Result) + 1);
        Result[High(Result)].a := a;
        Result[High(Result)].b := b;
      end;
    end;
end;

Возвращает массив всех возможных прямоугольников. Потом можно сделать дополнительную обработку и выбрать то, где разница между a и b самая небольшая

[Кристина Юрьевна]

спасибо,очень даже пригодиться)

[Андрей Игоревич]

ну ты даешь,сестренка...а ко мне подойти слабо было