Значения массива

[Serebah]

Есть массив значения которому задаются в цикле:
DataNachala: array of TDateTime;
i:integer;
...
SetLength(DataNachala,i);
for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
DataNachala[i] := StrToDate(Form3.StringGrid1.Cells[0, i]);

Как сделать чтоб получилось так:
DataNachala[Первый элемент из i] := DateTimePicker1.DateTime;
DataNachala[Остальные элементы кроме первого из i] := StrToDate(Form3.StringGrid1.Cells[0, i]);

Помогите пожалуйста советом.

[asmodey1]

Ничего, если я попробую ?

SetLength(DataNachala,i);
DataNachala[0] := DateTimePicker1.DateTime;
for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
DataNachala[i] := StrToDate(Form3.StringGrid1.Cells[0, i]);

[Serebah]

Это вариант мне не подходит, т.к. DataNachala[0] уже не входит в DataNachala[i]
(i := от 1 до ...).

[Serebah]

Есть два динамических массива, размер которых равен количеству столбцов СтринГрида и значения в массив задаются из этого же СтринГрида в формате дат. В первый столбец дата начала периода а во второй столбец дата конца периода и нужно определить количество дней между датами.
Решаю так:

var
i:integer;
DataNachala, DataKonca : array of TDateTime;
begin
SetLength(DataNachala,i);
SetLength(DataKonca,i);
for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
DataKonca[i] :=   StrToDate(Form3.StringGrid1.Cells[1, i]);
DataNachala[i] :=  StrToDate(Form3.StringGrid1.Cells[0, i]);
Label22.Caption := Label22.Caption +  IntToStr(DaysBetween
(DataNachala[i], DataKonca[i]))+';';

Однако, дальше задача стоит в том, чтоб первый элемент массива даты начала (DataNachala : array of TDateTime) всегда был равен дате заданной в DateTimePicker1.DateTime; а остальные как и раньше в цикле из СтринГрида. И дни между датами определяло соответственно:
первый размежду
Заданной в массиве DateTimePicker1.DateTime и DataKonca[i]
а дальше между массивами как и раньше.

[asmodey1]

Сообщение от Serebah

Это вариант мне не подходит, т.к. DataNachala[0] уже не входит в DataNachala[i]
(i := от 1 до ...).

Ничего, если я еще разок попробую ?

SetLength(DataNachala,i);
DataNachala[1] := DateTimePicker1.DateTime;
for i:= 1 to Form3.StringGrid1.RowCount-1 do begin
DataNachala[i+1] := StrToDate(Form3.StringGrid1.Cells[0, i]);

[Serebah]

Сбасибо, только вот я не пойму как мне отобразить значения это массива теперь в Лабеле.
Я пишу так:
Label24.Caption := Label24.Caption + DateToStr(DataNachala[i])+';';
Но первой датой мне выводит какой-то 1899 год, а должно дату которая в DateTimePicker1.DateTime;
Если пишу i+1 то выводит дату уже из СтринГрида, если i-1 то опять 1899 год

[asmodey1]

Так уберите вы время. Оно вам нужно ???
Не array of TDateTime, а array of TDate;
Не DateTimePicker1.DateTime, а DateTimePicker1.Date...

[Serebah]

Убрал, но от этого ничего не изменилось. Как вывести теперь этот массив в Лабел?