电视选角到其他类型

Question

我有

uses
  System.Rtti;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  _UserString: string;
  _CastedValue: TValue;
  _IntExampleValue: TValue;
  _DateTimeExampleValue: TValue;
begin
  _UserString := '55';
  _IntExampleValue := TValue.From<integer>(-199);
  if not TValue.From(_UserString).TryCast(_IntExampleValue.TypeInfo, _CastedValue)
  then
    ShowMessage('Failed to cast')
  else
    ShowMessage('Casted successfully');
  _UserString := DateTimeToStr(Now);
  _DateTimeExampleValue := TValue.From<TDateTime>(Now);
  if not TValue.From(_UserString).TryCast(_DateTimeExampleValue.TypeInfo, _CastedValue)
  then
    ShowMessage('Failed to cast')
  else
    ShowMessage('Casted successfully');
end;

两次我都收到消息说它无法投射，但为什么呢？我看不出有什么不对。

Answer 1

TValue不是为进行此类转换而设计的。 您不能在 Pascal 语言本身无法直接转换的两种不兼容类型之间进行转换。 正如String不能直接分配给Integer或TDateTime一样，TValue<String>也不能强制分配给TValue<Integer>或TValue<TDateTime>。 使用StrToInt()和StrToDateTime()等转换函数是无可替代的。