Работа с многомерными массивами в функции. Очередной вопос начинающего (#005)

[Albert2008]

День добрый.
Ни в одном из прочитанных мною мануалов не было написано, что в процедуре нельзя работать с массивами. А потому решил написать пример (под ту программу, которую пытаюсь написать). Подскажите пожалуйста, почему возникает ошибка и что делать ?)))

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s,e,f :integer ;
mas1 : array of array of integer ; //Задаётся двумерный массив

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Setlength(mas1, 50 , 50 ); //Устанавливается его размерность.
end;

function rrr ( var e,f,rrr :integer):integer ;// вот тут ошибка Identifier redeclared 'mas1'
// тут фомирутеся функция. var - было выбрано потомучто все эти
// переменные являются как входящими, так и исходящими.
begin
e:=2;
f:=4;
mas1[e,f]:= f+1 ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToStr(mas1[5,5]);
end;

end.

Возможно ли также в процедуре задавть различные цыклы с двумерными массивами ?

С уважением к Вам. Альберт.

[Stilet]

Потому что ты в корне неверно создал пример
во-первых желательно обьявлять процедуру так:

type ab=array of array of integer ;
...........
function rrr ( var e,f:integer;r:ab):integer ;

Во-вторых: проверять габариты массива:

if (high(rrr)<=e)and((high(rrr[e])<=f)) then
 rrr[e,f]:= f+1 ; // Типа такого

[Albert2008]

procedure TForm1.FormCreate(Sender: TObject);
begin
Setlength(mas1, 50 , 50 );
end;

function rrr ( var e,f :integer; mas1 :ab):integer ;

begin
if (high(mas1)<=e) and((high(mas1[e])<=f)) then
begin

e:=2;
f:=4;
mas1[e,f]:= 5 ;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToStr(mas1[5,5]);
end;

end.



Ошибок вроде нету, и код скомпилировался но вот в результате он почему-то выводит "0" вместо "5".
Ещё есть надпись: Return value of function 'rrr' might be undefined.

Подскажите пожалуйста - чего ещё не хватает ?

[Albert2008]

Кстати если перед
Edit2 вставить строку
rrr(e,f,mas1); типа вызов функции, то он и в неё поставит ошибку....

[Stilet]

то он и в неё поставит ошибку....

Которая настолько секретна что ее текст нельзя даже шепоом написать?

[puporev]

e:=2;
f:=4;
mas1[e,f]:= 5 ;

Задаем значение ячейки[2,4].

Edit2.Text := IntToStr(mas1[5,5]);

и хотим чтобы оно чудесным образом очутилось в ячейке [5,5];

[Albert2008]

1.
При добавлении
rrr(e,f,mas1);
перед Edit2
Возникает ошибка: Return value of function 'rrr' might be undefined

2. Сымсле не в том что
e:=2;
f:=4;
mas1[e,f]:= 5
или
Edit2.Text := IntToStr(mas1[5,5]); написать.
Даже если написать
e:=2;
f:=4;
mas1[e,f]:= 5
Все равно нифига не будет.
Вопрос в том - почему он это выходное Return value of function 'rrr' считает каким-то не тем ?И как сделать , чтобы было тем.

[Банзай]

Return value of function 'rrr' might be undefined
- значит что функция должна возвращать значение, если это не так, то это процедура.
з.ы. перезалей masinfunc.jpg если ещё нужно, потому как там без бинокля не разобраться

[Albert2008]

В том-то и фишка. Что функция должна возвращать значение.Для этого и применятеся var. А именно значение это лежит в mas1[e,f]

На картинку забей. Она не в тему.

[puporev]

Чтобы функция возвращала результат, нужно не var, а волшебное слово result. Примерно так:

type ab=array of array of integer ;
var
  Form1: TForm1;
  mas1:ab;
implementation

{$R *.dfm}
function rrr ( e,f :integer):integer ;
begin
result:=sqr(mas1[e,f]) ;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
Setlength(mas1, 50 , 50 );
for i:=0 to length(mas1)-1 do
for j:=0 to length(mas1)-1 do
mas1[i,j]:=i*j;
Edit1.text:=inttostr(rrr(5,5));
end;

end.