Проблема с TDateTime

pvk

Почему попытка исполнения вот такой строки выдает ошибку "Invalid variant type conversion":
ShowMessage(DateTimeToStr(StrToDateTime('14.04.2004')));

P.S. Использую Дельфи 5.

AlexTZ

Ошибка в fs_isysrtti.pas:

function TFunctions.CallMethod2(Instance: TObject; ClassType: TClass;
  const MethodName: String; var Params: Variant): Variant;
begin
  if MethodName = 'STRTOINT' then
    Result := StrToInt(Params[0])
  else if MethodName = 'STRTOFLOAT' then
    Result := StrToFloat(Params[0])
  else if MethodName = 'STRTODATE' then
    Result := StrToDate(Params[0])
  else if MethodName = 'STRTOTIME' then
    Result := StrToTime(Params[0])
// here
  else if MethodName = 'STRTODATETIME' then
//
    Result := StrToDateTime(Params[0])
end;

pvk

Долго глядел в попытке понять в чем ошибка - оказывается две буквы "D". Спасибо, помогло...