procedure parametre

[egedenizi]

Merhabalar...
Bir konuyu danışmak istedim.
Benim bu biçimde procedurum var.


Type
a=array of integer;
b=array of a;

procedure dene(d:b);

var
dizi:b;

begin
dizi:=d;
dizi[0][0]:=5;

end;

Burada diziye 5 atadığımda d parametreside 5 atanıyor.yani ikiside eşitleniyor. Bunu nasıl çözebilirim Teşekkürler....

[naile]

Yapmak istediğiniz ne peki?

[egedenizi]

Gelen parametreye göre diziye ekleme yapmak istiyorum.Ama parametrede degistiginden sonuc faydasız oluyor.

[mkysoft]

değişkenleriniz dynamic array olduğundan bunu yapıyor. Dizileri direk bir birine eşitlerseniz verileri aktarmak yerine pointerlarını bir birine eşitler. bunu yapmasını istemiyorsanız dizinin içeriğini döngülerle aktarın.

[aslangeri]

s.a.
aynı şey fontlarla uğraşırken benimde başıma gelmişti.
@mkysoft un dediği gibi pointerları eşitlediği için ikisidedeğişiyordu.
ben assign metodunu kullanarak halletmiştim.

Kod: Tümünü seç

font.assign(yenifont)

gibi bir şey kullanmıştım.
belki işinize yarar.
kolay gelsin.

[Murat DİCLE]

şunu bir deneyebilr misin?

procedure dene(const d:b);
begin
.
.
.
end;

neticeyi bilmiyorum ama faydası olabileceğini düşündüm..

[sabanakman]

prosedür içinde parametre ile gelen diziyle aynı özellikte başka bir dizi oluşturmaktan başka çaren yok. dizi:=b satırı yerine aşağıdaki kodu kullan.

Kod: Tümünü seç

procedure dene(d:b);
var dizi:b; i,j,x,y:Integer;
begin
  //dizi:=d; yerine
  x:=high(d);
  y:=high(d[0]);
  SetLength(dizi,x+1,y+1);
  for i:=0 to x do
   for j:=0 to y do
    dizi[i][j]:=d[i][j];
  //bu satırları kullanırsan bağımsız bir kopya elde edersin.
  ..
  dizi[0][0]:=5;//bu diğer diziyi etkilemez
  ..
  SetLength(dizi,0,0);dizi:=nil;{işin bitince hafızadan aldığın yeri iade etmen gerekir}
end;

.. ile olan yerlerde dizi değişkeni üzerinde bağımsız olarak istediğin gibi çalışabilirsin. Kolay gelsin.

[Murat DİCLE]

memcopy gibi birşeyle daha hızlı kopyalanabilir düşüncesindeyim.

[undefined]

memcopy gibi birşeyle daha hızlı kopyalanabilir düşüncesindeyim.

Hocam buda pek mümkün değil çünkü b tipi array a tipi arrayların pointerlarını tutuyor. d arrayını memcopy yapsak bile pointerları kopyalamış olacak. Yine parametreyle gelen arrayla paylaşmış olacaz aynı değerleri. Belki arrayın 2.boyutu memcpy ile copyalanmış arraylara eşitlenebilir. Buda performans açısından çok farkedermi denemek lazım. Çünkü sonuçta bir fonksiyona call yapılıyor çok defa bu yöntemlede. @sabanakman'ın yöntemi en iyi yöntem gibi.

[Murat DİCLE]

memcopy gibi birşeyle daha hızlı kopyalanabilir düşüncesindeyim.

Hocam buda pek mümkün değil çünkü b tipi array a tipi arrayların pointerlarını tutuyor. d arrayını memcopy yapsak bile pointerları kopyalamış olacak. Yine parametreyle gelen arrayla paylaşmış olacaz aynı değerleri. Belki arrayın 2.boyutu memcpy ile copyalanmış arraylara eşitlenebilir. Buda performans açısından çok farkedermi denemek lazım. Çünkü sonuçta bir fonksiyona call yapılıyor çok defa bu yöntemlede. @sabanakman'ın yöntemi en iyi yöntem gibi.

Doğru söylüyorsun. Dizi içinde dizi olunca hafızadaki yerleri farklı olabilir. Sıradan gitmeyebilir. Ama belki tek bir diziyi kopyalamak söz konusu olabilir buda ne kadar gerekli ya da ne kadar performans sağlar tartışılır.