| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Двумерный массив [D6]

Костик ©   (2004-08-07 02:11:00) 

Объявлен двумерный массив и нужно чтобы в первом его измерении были имена (всего 5), а во втором фамилии (тоже 5)

const
A:array[0..4,0..4]:String =

Что нужно дальше написать?
Никак не въеду

---

wnew   (2004-08-07 17:34:00) [1]

Вероятно тебе нужно не массив использовать, а список:

type Names = record
      FirstName: string[30];
      LastName : string[30];
    end;

И уже потом можешь объявить массив типа Names.

---

TopT   (2004-08-07 13:06:00) [2]

Костик   (07.08.04 02:11)
ТО что ты обьявил, это масив 5х5 элементов, а не 2х5 как ты хотел. Нужно так: 2 строчки и 5 столбиков.
//****************
const
a:Array[1..2,1..5] of string=(('vasia','Peta','Kolia','Vitia','Dima'),('Petrov','sidorov','pushkin','krilov','ivanov'));
//****************

---

Anatoly Podgoretsky   (2004-08-07 12:36:00) [3]

А почему бы человеку не иметь по 5 фамилий :-)

---

SergP   (2004-08-07 09:02:00) [4]

> Объявлен двумерный массив и нужно чтобы в первом его измерении
> были имена (всего 5), а во втором фамилии (тоже 5)


Это как? :-)))

---

Andy BitOff   (2004-08-07 03:35:00) [5]

Первые скобки весь массив, в нем еще три элемента ограниченных скобками и уже в свою очередь каждый из них содержит тоже по три элемента.

---

Andy BitOff   (2004-08-07 03:32:00) [6]

Да не может быть такого определения const a:array[0..2,0..2] :String =
Вот как надо a:array[0..2,0..2] ofString =

И здесь ты создаешь ДЕВЯТЬ элементов 3х3, т.е. (образно) 3 строки в каждой из которых по 3 элемента. Значит правильно будет так:
a:array[0..2,0..2] ofString =(('1','2' ,'1000'),('3','4' ,'1000'),('5','6' ,'1000'));


---

Костик   (2004-08-07 03:12:00) [7]

А как описАть массив, к примеру,

const a:array[0..2,0..2]:String =

Я так делал:
const a:array[0..2,0..2]:String =(('1','2'),('3',4')),(('5','6'),('7','8'));

Но это не правильно. А как нужно?

---

Andy BitOff   (2004-08-07 02:42:00) [8]

Либо я тебя не понял, либо одно из двух. Опиши понятнее. Вот как понял тебя я:

type
 TMyAr = array[0..4,0..1] of String;
const
 A:TMyAr = (('Вася0','Пупкин0'),
            ('Вася1','Пупкин1'),
            ('Вася2','Пупкин2'),
            ('Вася3','Пупкин3'),
            ('Вася4','Пупкин4'));

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption:=a[0,0]+' '+a[0,1]; //=Вася0 Пупкин0
end;


---

Наверх