Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.25;
Скачать: 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 вся ветка

Текущий архив: 2002.04.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
4-81117
BVS
2002-02-06 17:15
2002.04.25
Как создать динамический масив?


3-80797
ПикулевЕвгений
2002-04-05 09:12
2002.04.25
Поиск по базе


1-80994
Miwa
2002-04-12 11:48
2002.04.25
TP7: Не то чтобы глюк, но все же...


14-81046
lipskiy
2002-03-19 21:45
2002.04.25
По поводу XP и убитого винта - шутка дубль два или что это?


1-80874
Alexander K.
2002-04-14 00:05
2002.04.25
Как быстрее всего переделать цветное bmp(24) в монохром(24) ?