| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проверка значения строки: [D6]

Страницы:   < 1 2 >

Separator ©   (2002-11-11 07:51:00) 

Мне нужно проверичть, что записано в строке: дата, число или текст. Я делаю так:

type
TTypeStr = (tsString, tsDate, tsNumber);

function TypeStr(St: string): TTypeStr;
var
WNumber: real;
WDate: TDateTime;
begin
Result:= tsNumber;
try
WNumber:= StrToFloat(St);
except
on EConvertError do
begin
Result:= tsDate;
try
WDate:= StrToDateTime(St);
except
on EConvertError do
Result:= tsString
end
end
end
end;


Как мне сделать, чтоб в дебаг режиме в этойфункции не вылетало сообщение об ошибке. Или предложите другой метод проверки.

---

Separator   (2002-11-11 10:23:00) [21]

Это слишком муторно писать, а других способов нет?

---

stone   (2002-11-11 10:23:00) [22]

приведи значение к Variant, а потом проверяй стандартной функцией
function VarIsType(const V: Variant; AVarType: TVarType): Boolean;

---

KoluChi   (2002-11-11 10:06:00) [23]

проверять по-символьно

---

Smithson   (2002-11-11 09:38:00) [24]

никак

---

Separator   (2002-11-11 08:07:00) [25]

Ну так он не будет вообще останавливаться, а мне надо только в этой процедуре!!!!!

---

sask   (2002-11-11 08:01:00) [26]

Tools -> Debugger Options -> Language Exception: Stop on Delphi Exceptions

---

Страницы:   < 1 2 >

Наверх