Variant

← →
_BasiL_ © (2003-03-03 16:41) [0]

У меня есть переменная типа Variant, значение переменной "03.03.2003", как узнать, что это, число или дата?
Пробывал через VarType возврощает не Дату и не Дабл.

← →
Anatoly Podgoretsky © (2003-03-03 16:47) [1]

Это дата

← →
Leran2002 © (2003-03-03 16:54) [2]

Метод может быть и дурной, но работающий :))

D:="03.03.2003";

try
StrToDate(D);
except
... // не проканало - значит не дата :))
end;

← →
calm © (2003-03-03 16:59) [3]

Попробуй

Unit

Variants

Category

Variant support routines

function VarIsType(const V: Variant; AVarType: TVarType): Boolean; overload;
function VarIsType(const V: Variant; const AVarTypes: array ofTVarType): Boolean; overload;

← →
Johnmen © (2003-03-03 17:03) [4]

>Anatoly Podgoretsky © (03.03.03 16:47)

Да нет, это строка :)

Есть TEdit в нем следующая строка
Дата #@ТекДата@-1# или Месяц #@Месяц@-1#
вот эти строчки надо подсчитать, соответственно в первом случае будет Дата-1, а во втором Число-1 Значения могут меняться как забьет пользователь.

← →
Леша (2003-03-03 17:37) [6]

const
Number: set of char = ["0".."9"];
....
....
function IsNumber(s:string):boolean;
var
i:integer;
begin
try
Result:=true;
for i:=1 to Length(s) do
begin
if not (s[i] in Number) then
begin
Result:=false;
Exit;
end;
end;
except
Result:=false;
Exit;
end;
end;
....
....
s:="03.03.2003";
число_или_дата:=IsNumber(s);

Variant Найти похожие ветки