Проверка значения строки
Falk0ner, вс, 06/07/2008 - 15:34.
Проверка значения строки
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка значения строки
Функция предназначена дла проверки значения строки.
Зависимости: нет
Автор: Separator, <a href="mailto:vilgelm@mail.kz">vilgelm@mail.kz</a>, Алматы
Copyright: Сергей Вильгельм
Дата: 6 января 2003 г.
***************************************************** }
type
TTypeStr = (tsString, tsDate, tsNumber);
function CheckString(const Value: string): TTypeStr;
begin
if StrToDateTimeDef(Value, 0) = 0 then
if StrToIntDef(Value, 0) = 0 then
Result := tsString
else
Result := tsNumber
else
Result := tsDate
end;
>> Проверка значения строки
Функция предназначена дла проверки значения строки.
Зависимости: нет
Автор: Separator, <a href="mailto:vilgelm@mail.kz">vilgelm@mail.kz</a>, Алматы
Copyright: Сергей Вильгельм
Дата: 6 января 2003 г.
***************************************************** }
type
TTypeStr = (tsString, tsDate, tsNumber);
function CheckString(const Value: string): TTypeStr;
begin
if StrToDateTimeDef(Value, 0) = 0 then
if StrToIntDef(Value, 0) = 0 then
Result := tsString
else
Result := tsNumber
else
Result := tsDate
end;
Отправить комментарий