2 Boyutlu Dinamik Dizi

[husonet]

Merhaba;

Arkadaşlar iki boyutlu dinamik dizi nasıl tanımlar ve kullanırım bu dizi uzunluğunu DBGrid deki kayıt sayısı kadar olaması lazım bunu yapabilirmiyim yorumlarınızı bekliyorum.

İyi Çalışmalar.

[fahrettin]

Delphi helpindeki örnek işinizi gorur saniyorum. kayıt sayisini biliyorsaniz dizinin boyunu da SetLength ile o kadar tanımlayabilirsiniz....

tek boyutlu

Kod: Tümünü seç

var

  A, B: array of Integer;
begin
  SetLength(A, 1);
  SetLength(B, 1);
  A[0] := 2;
  B[0] := 2;
end;

cok boyutlu

Kod: Tümünü seç

var

  A : array of array of string;
  I, J : Integer;
begin
  SetLength(A, 10);
  for I := Low(A) to High(A) do
  begin
    SetLength(A[I], I);
    for J := Low(A[I]) to High(A[I]) do
      A[I,J] := IntToStr(I) + ',' + IntToStr(J) + ' ';
  end;
end;

[husonet]

Hocam Teşekkür Ederim ama Kayıt sayısı değişebilir bunu SQL sonucuna bağlı olarak düşünebilirsiniz kayıt sayısını dizi de run time da ayarlayabilirmiyiz.

Dizi de uzunluk Run Time da ayarlanacak bu mümkünmü.

[fahrettin]

Zaten dinamik dizinin tek anlamı bu.

Kod: Tümünü seç

SetLength(A, 1); 
  

burada 1 yerine bir degisken de olabilir ve bu kod ile run time de bu isi yapmis oluyorsunuz zaten....
mesela

Kod: Tümünü seç

SetLength(A, Query1.RecordCount); 
  

gibi....

[husonet]

Hocam Çok teşekkür ederim öğrenmek istediğim buydu.