Скачать: CL | DM;

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)

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

---

← →
_BasiL_ ©   (2003-03-03 17:21) [5]

Есть 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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c