Цитата:
|
Сообщение от Andruxa
Код:
type
massiv = array of array of integer;
function matrix(a,b:integer; ar:massiv):integer;stdcall;external 'mas.dll';
function max(a,b:integer; ar:massiv):integer;stdcall;external 'mas.dll';
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=0 to 3 do
for j:=0 to 3 do
sg1.Cells[i,j]:= inttostr(random(100)-50);
end;;
нужно создать function чтоб определяла Одномерноый массив из максимальных элементов столбцов и формировала новый одномерный массив! |
Даже не знаю что и сказать. Это вы сами такое написали? Сможете прокомментировать?
Я здесь вижу что объявляется двумерный массив с именем "massiv", но заполняется чтото с именем "sg1" - включая свои экстрасенсорные способности предполагаю что это TStringGrid ?
Задача всё ещё непонятна... В двумерном массиве "massiv" нужно найти максимальные элементы? Тогда почему он нигде не заполняется? В таком виде как сейчас его размер 0х0 (ноль на ноль), то есть искать нечего.
Или же вам нужно найти максимальные элементы в некоем "sg1"? Но в таком случае это никакой не двумерный массив - у массивов никаких "Cells" не бывает.
И какое отношение к задаче имеют эти функции "matrix" и "max" которые импортируются из какой-то загадочной "mas.dll"?