Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c