VPF::Многомерный массив - Форум программистов

dimonskif

Дата 3.11.2006, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 6.1.2006

Репутация: нет
Всего: нет

Помогите разобраться с многомерным массивом.
Есть задача:
Дни недели и события, которые должы происходить в эти дни

Код


procedure TForm1.FormCreate(Sender: TObject);
var
week: array[1..7, 1..50] of string;
day:integer;
begin
DateTimePicker1.Time:=y;
 week[1][0] := 'Воскресенье';
 week[2][0] := 'Понедельник';
 week[3][0] := 'Вторник';
 week[4][0] := 'Среда';
 week[5][0] := 'Четверг';
 week[6][0] := 'Пятница';
 week[7][0]:= 'Суббота';
day:=DayOfWeek(Date);
end;

как добавить событие в день?

Код


week[1][1] := 'Завтрак!';
week[1][2] := 'Обед!';
week[2][1] := 'Завтрак!';
week[2][2] := 'Обед!';

и т. д.?

Snowy

Дата 3.11.2006, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Так и добавить.
Разве не работает?

Guedda

Дата 3.11.2006, 10:14 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


for i := 1 to 7 do begin
  week[i,1] := 'Завтрак';
  week[i,2] := 'Обед';
end;

--------------------

Ll 2

dimonskif

Дата 3.11.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 6.1.2006

Репутация: нет
Всего: нет

Не это ясно, а вот как поменять первую часть массива(т.е сменить день), не затрагивая его содержимое.

Zero

Дата 3.11.2006, 12:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Цитата(dimonskif @ 3.11.2006, 13:13

)

Не это ясно, а вот как поменять первую часть массива(т.е сменить день), не затрагивая его содержимое.

Первая часть массива это не дни, это можно сказать измерения по оси x.
А то что ты в начале с нулями по Y привёл, то это как раз не должно работать, т.к. в типе объявлено от единицы начало.

dimonskif

Дата 3.11.2006, 13:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 6.1.2006

Репутация: нет
Всего: нет

я образно назвал измерения по оси x днями.
перефразирую.
Как внести изменения данных измерения по оси x , не затрагивая данные по оси у?

Guedda

Дата 3.11.2006, 16:09 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Цитата(dimonskif @ 3.11.2006, 13:09

)

Как внести изменения данных измерения по оси x , не затрагивая данные по оси у?

Посмотри мой коммент выше. Там всё написано.

--------------------

Ll 2

Zero

Дата 4.11.2006, 20:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Грубо говоря, твоя процедура должна выглядеть так:

Код


procedure TForm1.FormCreate(Sender: TObject);
var
week: array[1..50, 1..7] of string;
day:integer;
begin
DateTimePicker1.Time:=y;
for i:=1 to 50 do  
begin 
 week[i,7] := 'Воскресенье';
 week[i,1] := 'Понедельник';
 week[i.2] := 'Вторник';
 week[i,3] := 'Среда';
 week[i,4] := 'Четверг';
 week[i,5] := 'Пятница';
 week[i,6]:= 'Суббота';
end;
day:=DayOfWeek(Date);
end;

Только тип должен быть не:

Код


week: array[1..7, 1..50] of string;

А вот так:

Код


week: array[1..50, 1..7] of string;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »