Скрипты Simple-Scada

Синтаксис

function StrToTime(AStr: string): TDateTime;

Описание

Конвертирует строку со временем в TDateTime. В случае неудачи возвращает текущие дату и время.

Пример кода

var
  aDate: TDateTime;
  aStr:  string;
begin
  aStr := '14:45:33';                 // сохранить время в строку
  Calendar1.Value := StrToTime(aStr); // вывести время в объект "Calendar1" 
end.