2 вопроса по C++Builder6

[viktory]

Добрый вечер, уважаемые форумчане.
Пишу курсач, проблема заключается в следующем: дно океана представлено как матрица 10Х10. В зависимости от того, что находится на клетке площади(пустая или какой то вид рыбы)заполняется матрица. После на форму нужно вывести соответствующие картинки. Собственно с выводом у меня и проблема. Не пойму как и во что выводить. Image? но ведь их 100 штук будет. А в StringGrid или DrawGrid не получается.
И второй вопросик: как по щелчку на Button закрыть форму?
Спасибо за уделенное моей проблеме время.

up
с закрытием формы разобралась, а вот вывод матрицы картинок не знаю как осуществить

[Скарам]

А в StringGrid или DrawGrid не получается.

Вообще DrawGrid на мой взгляд наиболее подходит для отображения большого количества картинок...напишите что конкретно не получается,а мы поможем и подскажем

[Stilet]

Все очень просто (если я правильно понял задачу.
Кидаешь на форму ImageList в него картинки этих рыб
Далее заполняешь массив:

var a:array[1..10,1..50] of byte;
...
var q,w:byte;
begin
 DrawGrid1.RowCount:=length(a);
 DrawGrid1.ColCount:=length(a[high(a)]);
   for q:=low(a) to high(a) do begin
    for w:=low(a[q]) to high(a[q]) do begin
     a[q,w]:=random(ImageList1.Count);
    end;
   end;
   DrawGrid1.DefaultColWidth:=ImageList1.Width;
   DrawGrid1.DefaultRowHeight:=ImageList1.Height;
   DrawGrid1.Repaint;
end;

После чего процедура отрисовки в ДравГриде отрисовывает нужную рыбу в нужном квадрате

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 if a[arow,acol]<>0 then begin
  ImageList1.Draw(DrawGrid1.Canvas,rect.left,rect.top,a[arow,acol]);
 end;
end;

И не нужно тут никаких 100 штук. Сколько ты рыб добавишь (разновидностей) столько и понарисовывает из массива.

Смысл ясень?