Delphi

Вопрос

Как найти самую свежую дату в массиве дат?

Ответ

Вот так:

var D: TDateTime; // Для поиска последней даты
    i,index: Integer;
begin
    D := LOW(M); // твой массив
    for i := LOW(M)+1 to HIGH(M) do
   if M[i] > D then begin
      D := M[i]; // Твоя последняя дата
      index := i; // индекс в массиве
        end;
end;

Soldatov Sergey Viktorovich