procedure parametre

[zambak]

iyi gunler...
procedure dene(a:array of integer)
begin

end;
*Bu biçimde tanımlanan procedurdeki a parametresinin uzunlugunu
setlength metoduyla degistiremiyormuyuz?
*Bu proceduru sabit olarak degilde degisken olarak a'ya atabiliyormuyuz?
örnek dene([1,3,5]) degilde dene([x])gibi teşekkürler....

[conari]

A Parametresinin uzunluğunu delphi object inp. değiştirebilirsin diğeri için yorum yok

[undefined]

Kod: Tümünü seç

Type
  TMyarray=array of integer;

Procedure dene(a:TMyArray)
begin
  showmessage(inttostr(a[0]));
  showmessage(inttostr(a[1]));
end; 

Procedure dene2;
var
  myarray:Tmyarray;
begin
  setlength(myarray,2);
  myarray[0] := 1;
  myarray[1] := 2;
  dene(myarray);
end;

Bu örnek işinizi görür muhtemelen.
kolay gelsin

[sabanakman]

Kod: Tümünü seç

Type
  TMyarray=array of integer;

Procedure dene(a:TMyArray)
begin
  showmessage(inttostr(a[0]));
  showmessage(inttostr(a[1]));
end; 

Procedure dene2;
var
  myarray:Tmyarray;
begin
  setlength(myarray,2);
  myarray[0] := 1;
  myarray[1] := 2;
  dene(myarray);
end;

Bu örnek işinizi görür muhtemelen.
kolay gelsin

yapısı kullanılırsa;

Kod: Tümünü seç

function Ortalama(const Dizi:TMyArray):Real;
var i,n:Integer;
begin
  n:=0;Result:=0;
  for i:=Low(Dizi) to High(Dizi) do begin
    n:=n+1;
    Result:=Result+Dizi[i];
  end;
  if n>0 then Result:=Result/n;
end; 

gibi örnekler çoğalır gider .