procedure'ye dizi göndermek?

[forumsad]

arkadaşlar bu konuda araştırma yaptım ama çözemedim aşağıda bir deneeme yaptım
hata vermiyor ama listbox'a 4 yerine 70 yazıyor neyi hatalı yapıyorum acaba

Kod: Tümünü seç

procedure Deneme( Gdizi : Array of Integer);
begin
Form1.ListBox1.Items.Add(IntToStr(Gdizi[1]));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
dizi: Array[1..10] of  Integer;
begin
dizi[1]:=4;
Deneme(dizi);
end;

saygılarımla

[sabanakman]

Tanımladığınız dizinin ilk elemanına 1. indeks numarası ile erişebiliyor olabilirsiniz ama aslında array of Integer şeklinde tanımlı dizilerde ilk eleman 0. sıradadır. Kısacası dizi[1]:=4; ile yaptığınız atamaya dizi içerisinde Form1.ListBox1.Items.Add(IntToStr(Gdizi[0])) şeklinde erişebilirsiniz.

[forumsad]

teşekkürler hocam

saygılar sunarım

Kod: Tümünü seç

procedure Deneme(glnStr:string;glnInt:integer; Gdizi : Array of Integer);
begin
Form1.ListBox1.Items.Add(IntToStr(Gdizi[0]));
Form1.ListBox1.Items.Add(IntToStr(glnInt));
Form1.ListBox1.Items.Add(glnStr);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
dizi: Array[1..10] of  Integer;
str:string;
int:integer;
begin
dizi[1]:=4;
str:='merhaba';
int:=10;
Deneme(str,int,dizi);

end;