삭제를 위한 암호를 넣어 주세요

글쎄요
언뜻 떠오르는 방법이 없네요

http://www.borlandforum.com

저기서 c++ 빌더님께 여쭈어 보세요
내공이 상당한 분이시라는
 
2019-02-23 오후 5:18:52

삭제를 위한 암호를 넣어 주세요

답변 감사드립니다. 새로운 사이트를 알았네요 
2019-02-23 오후 5:58:16

삭제를 위한 암호를 넣어 주세요

http://www.delphibasics.co.uk/RTL.asp?Name=VarType
 
2019-02-23 오후 6:34:05

삭제를 위한 암호를 넣어 주세요

procedure f(var v);
var
  basicType: Integer;
  typeString: string;
begin
  basicType := VarType(v) and VarTypeMask;

  // Set a string to match the type
   case basicType of
     varEmpty     : typeString := 'varEmpty';
     varNull      : typeString := 'varNull';
     varSmallInt  : typeString := 'varSmallInt';
     varInteger   : typeString := 'varInteger';
     varSingle    : typeString := 'varSingle';
     varDouble    : typeString := 'varDouble';
     varCurrency  : typeString := 'varCurrency';
     varDate      : typeString := 'varDate';
     varOleStr    : typeString := 'varOleStr';
     varDispatch  : typeString := 'varDispatch';
     varError     : typeString := 'varError';
     varBoolean   : typeString := 'varBoolean';
     varVariant   : typeString := 'varVariant';
     varUnknown   : typeString := 'varUnknown';
     varByte      : typeString := 'varByte';
     varWord      : typeString := 'varWord';
     varLongWord  : typeString := 'varLongWord';
     varInt64     : typeString := 'varInt64';
     varStrArg    : typeString := 'varStrArg';
     varString    : typeString := 'varString';
     varAny       : typeString := 'varAny';
     varTypeMask  : typeString := 'varTypeMask';
   end;

   showmessage(typeString);
end;

답변 감사합니다. 그런데 에러가 나네요 
타입미지정파라메터와 Variant는 다른건가보네요. 
2019-02-23 오후 7:10:26

삭제를 위한 암호를 넣어 주세요

굳이 타입을 미지정 해야할 이유가 있나요?
variant로 지정해도 어떤 타입이던 받아지는걸로 아는데..
최초에 받을때부터 variant로 받고 저 함수에 넣어서 확인하며 될듯 합니다.. 
2019-02-24 오후 11:01:06