dinamik diziler

[tears]

merhaba

delphinin dinamik dizi helpinde aşağıdaki kod var.

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;

Bu koddaki dizinin string değilde double olanına ihtiyacım var. Ama delphi diziye atama yaparken hata veriyor.
Böyle bir diziye nasıl değer atayabilirim ?

kolay gelsin

[sadettinpolat]

Kod: Tümünü seç

var
  A : array of array of double;
  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] := 2.23;
  end;
end;

şeklinde olmuyor mu veya senin yazdığın kod nedir ?

[tears]

Kod: Tümünü seç

 var
 asd : array of array of integer;
  i, j :integer;
begin
  SetLength(asd, 10);
  i:= 3;
  j:= 3;
  asd[i,j] := 5;
  showmessage('deneme');
end;

buda benim yazdığım kod hatayı

Kod: Tümünü seç

asd[i,j]:=5;

satırında veriyor.

[mege]

alınan hata nedir. ! küreme baktım ve gördümkü siz sub-arrayın sizeını belirtmemişsiniz diyor. bi üstteki örnekle kotrol edin. yani siz asd serisinin boyutunu vermişsiniz ama asd[1] serisinin boyutunu vermemişsiniz.

[tears]

Kod: Tümünü seç

 var
 asd : array of array of integer;
  i, j :integer;
begin
  SetLength(asd, 10);
  SetLength(asd[3], 10);
  i:= 3;
  j:= 3;
  asd[i,j] := 5;
  showmessage('deneme');

böyle yapınca düzeldi mege hocam. saolasın bu dinamik dizi olayını biraz açarmısın acaba?