[Agasfer2010]

Доброе время суток! У меня проблема в этом месте кода:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

DayDB := IntToStr(DaysBetween(IncDay(IncYear(ADOQuery1.FieldByName('bd').AsDateTime, YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1) + 0), now)); FIOBD := ADOQuery1.FieldByName('FIO').AsString; case StrToInt(DayDB) of 0: begin     s[1, i][1] := 'Сегодня день рождения у:';     s[1, i][2] := FIOBD;     s[1, i][3] := 'Исполняется: ' + IntToStr(YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1);    end; 1: begin     s[2, i][1] := 'Завтра день рождения у:';     s[2, i][2] := FIOBD;     s[2, i][3] := 'Исполняется: ' + IntToStr(YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1);    end; 2: begin     s[3, i][1] := 'Послезавтра день рождения у:';     s[3, i][2] := FIOBD;     s[3, i][3] := 'Исполняется: ' + IntToStr(YearsBetween(date, ADOQuery1.FieldByName('bd').AsDateTime) + 1);    end; end;

А заключается она в следующем:
когда DayDB = 2, то этот блок обрабатывается, но строки в массив не заносятся. Массив объявлен так:

Код:

1	s: array [1..3,1..10000] of array [1..3] of string;

Помогите, очень нужно. Эта программа будет напоминать о днях рождениях.

[Страдалецъ]

Очень мне не нравится такая конструкция. Памяти это у вас кушает просто немеряно. Возможно проблема связана как раз с этим.
Для начала попробуйте просто уменьшить размерность массива с 10000 хотя-бы до 10 и проверить, все-ли работает.

[Agasfer2010]

Сообщение от Страдалецъ

Очень мне не нравится такая конструкция. Памяти это у вас кушает просто немеряно. Возможно проблема связана как раз с этим.
Для начала попробуйте просто уменьшить размерность массива с 10000 хотя-бы до 10 и проверить, все-ли работает.

Самое большое человеческое спасибо тебе! Дело реально было в этом) я поставил 500 и всё заработало) Надеюсь этого количества хватит на наших сотрудников Этот массив можно назвать 3х мерным? Или это скорее всего 2х мерный с вложением одномерного?