[Agasfer2010]

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

Код:

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, то этот блок обрабатывается, но строки в массив не заносятся. Массив объявлен так:

Код:

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

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

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

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

[Agasfer2010]

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

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

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