В Delphi нет констант с несколькими кодовыми строками. Вы можете использовать оператор +
для объединения нескольких строк с системной константой sLineBreak следующим образом:
MYSTRING = 'line 1' + sLineBreak + 'line 2' + sLineBreak + 'line 3';
(вы можете отформатировать это на нескольких линиях, если хотите), или если вам не нужно кросс-платформенный код вы можете сделать это:
MYSTRING = 'line 1'#13#10'line 2'#13#10'line 3';
При использовании буквенных символов вам не нужно использовать оператор +.
Ваша первая проблема заключается в том, что вы переписываете $range
при каждом проходе цикла с помощью следующей строки:
$range = [];
Вы должны переместить эту строку за пределы цикла. т.е.
$wa_startindex = 0;
$range = [];
while(!$reservALL->atEnd()) {
...
У вас также есть проблемы с загрузкой данных в $range
. Вы помещаете в него массивы вместо отдельных значений. Измените этот код:
foreach ($dateRange as $date) {
$range[] = $date->format($format);
$result = array_unique($range, SORT_REGULAR);
}
array_push($range, $result);
на
foreach ($dateRange as $date) {
$range[] = $date->format($format);
}
, а затем в конце цикла вызовите array_unique
:
...
}
$range = array_unique($range);
$reservALL->moveFirst(); //return RS to first record