Скачать: CL | DM;

A : Array of array of String   Найти похожие ветки 

← →
Gayrus ©   (2002-04-13 06:59) [0]

Записывать в A[x,y] получается, а при считывании идёт ошибка. Как считать?

---

← →
SPeller ©   (2002-04-13 07:48) [1]

Ты объявляешь динамический массив.
Объяви подругому A: array[i,j] of string;
где i и j максимально допустимые индексы. В общем размерность.

---

← →
ctapik-net ©   (2002-04-13 08:40) [2]

Да ладно все работает. Ты длину массива устанавливаешь?
SetLength(A,10) ;
For I := 0 To High(A) Do SetLendgth(A[I],10) ;
//Получили квадратную матрицу 10х10.
S := A[k,t] ; где 0<=k,t<=9
Вот и все чего здесь трудного?

---

← →
Gayrus ©   (2002-04-14 07:42) [3]

var A : Array of array of String;{!!!} begin SetLength(A,10,10);А при считывании идет Ошибка по адрессу FFFFFFFF, всё как обычно :)

---

← →
Вася Пупкин ©   (2002-04-14 08:16) [4]

Ищи ошибку в коде. Может быть, ты не учел, что дин. массивы индексируются с нуля, т.е. х,у=0..9 ?

вот это работает:
var
Form1: TForm1;
A : Array of array of String;{!!!}

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=A[0,0];
Label2.Caption:=A[0,1];
Label3.Caption:=A[1,0];
Label4.Caption:=A[1,1];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(A,10,10);
A[0,0]:="0-0";
A[0,1]:="0-1";
A[1,0]:="1-0";
A[1,1]:="1-1";
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c