Проверка значения строки |
Previous Top Next |
Code: |
{ **** UBPFD *********** by delphibase.endimus.com **** >> Проверка значения строки
Функция предназначена дла проверки значения строки.
Зависимости: нет Автор: Separator, vilgelm@mail.kz, Алматы 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; |
©Drkb::00914