VPF::Как узнать тип данных из строки

MadCoder

Дата 23.1.2009, 12:37 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

Здравствуйте!

Подскажите, импортирую данные в текстовом формате. Одно из полей является текстом, второе - датой и третье числом с плавающей запятой. Как проверить данные на корректность типам?

Например:

var
A, B, C: String;
begin
// Если значение - дата
if IsDate(B)=True then ....
// Если значение - число
if IsNumeric©=True then ...
end;

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Frees

Дата 23.1.2009, 12:43 (ссылка)

(голосов:2)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

TryStrToInt
TryStrToFloat

TryStrToDate()

по поводу даты

есть функция VarToDateTime она понимает разные форматы написания даты
ля проверки строки можно использовать try except

Код


      value: string;
      IsDate := False;
      try
        if value <> '' then
          VarToDateTime(Value);
      except on E: EVariantTypeCastError do
          IsDate := True;
      end;

--------------------

Кольцов Виктор Владимирович

MadCoder

Дата 23.1.2009, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

try... except предлагать не надо, т.к. у меня срабатывает внешний обработчик ошибок.

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Akella

Дата 24.1.2009, 18:36 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

народ вы чё, а как же VarType smile

Это сообщение отредактировал(а) Akella - 24.1.2009, 18:53

MadCoder

Дата 24.1.2009, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

Точно! Спасибо smile

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

Frees

Дата 26.1.2009, 07:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

Цитата(Akella @ 24.1.2009, 20:36

)

народ вы чё, а как же VarType smile

var v: Variant
v:='10.02.2008'

это какой VarType будет?

насколко я знаю это будед varString
а не varDate

хотя автору веднее что нужно smile

--------------------

Кольцов Виктор Владимирович

Akella

Дата 26.1.2009, 09:01 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

в таком случае все типы данные будут строковыми

MadCoder

Дата 26.1.2009, 10:42 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

VarType к сожалению действительно не помог...

Мне помогли TryStrToInt и TryStrToDate, пример:

Код


var
SomeInt: Integer;
SomeDate: TDateTime;
SomeText: String;
begin
SomeText:='01.01.2008';

If TryStrToInt(SomeText,  SomeInt)=True then
ShowMessage('Work! Int');
DateSeparator:='.';
If TryStrToDate(SomeText,  SomeDate)=True then
ShowMessage('Work! Date');
end;

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »