急：如何判断一个变量的数据局类型？

Question

假如有事先存在的一个str:string的变量
但我并不知道它的类型：
那么如何判断这个变量的数据局类型呢？

Answer 1

用VarType及VarAsType 判断类型。

Answer 2

var
  i: integer;
  str: string;
  IsChar: boolean;
begin
  for i := 0 to length(str) do
  begin
    if ord(Str[i]) in [80..89] then
    begin
      IsChar := false;
      break;
    end
    else
      IsChar := True;
  end;
  if IsChar then
    showmessage('The text is string')
  else
    showmessage('The text is not string')
end;

Answer 3

var
   A: Variant;
   B: Integer;
begin
   A:= True;
   B:= VarType(A);  
   MessageDlg( VarToStr(B), mtInformation, [mbOk], 0);
end;