23 Haziran 2014 Pazartesi

Delphi Variantın tipini öğrenme

Merhabalar, Bazen size dönecek olan variantın tipini bilmediğiniz zamanlar olur ozamanlarda aşağıdaki yazdıklarımı bilmeyen arkadaşlar için tam bir kabûs zamanıdır. Sadece variantı procedure'ye parametre olarak verirseniz size tipini söyleyecektir sizde bunu projenizde istediğiniz gibi değiştirip kullanabilirsiniz.

procedure ShowVariantType(varVar: Variant);
var
typeString : string;
begin

// Gelen variantın hangi tipe sahip olduğunu stringimize atıyoruz
case VarType(varVar) 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;

// Stringimize attığımız tipi artık ekranda gösterebiliriz
ShowMessage('Variantın tipi '+typeString);
end;

KAYNAK için tıklayınız!