VPF::Функция проверки Даты - Форум программистов

nematora

Дата 26.8.2011, 09:19 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.8.2011

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

Добрый день!!!

Хочу написать программку, которая построчно считывает данные из текстового файла и анализирует их.

вот фрагмент текстового файла:

Код


12.08.2011 4:02:55  Запуск приложения
12.08.2011 4:02:59  Загрузка данных
12.08.2011 4:03:04: Начало загрузки
ОК

суть в том что программа отрезает символов и преобразует его в Дату (StrToDate). Но когда ей попадается строка начинающейся не с даты вылетает ошибка "raised exception class EConvertError with message 'is not valid date"
В просторах интернета нашел функцию проверки Даты
и решил по тестировать функцию я создал вставил туда код:

Код


function TForm1.Validate(S: string): boolean;
BEGIN
  Result:=True;
  try
    StrToDate(S);
  except
    ON EConvertError DO
      Result:=False;
  end;
END;

как мне теперь её использовать?

Код



procedure TForm1.btn1Click(Sender: TObject);
var
   s:String;
begin
   s:=edt1.text;
end;

Смысл в том чтобы из Edt1.Text брался текст и проверялся с помощью функции. Если это дата то возвращял бы его значение в Label1.Caption иначе в Label1.caption выводил текст типа "не дата"

superVad

Дата 26.8.2011, 10:44 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 7
Всего: 15

Код


if Validate(edt1.text) then
Label1.Caption := edt1.text
else
Label1.Caption := 'Не дата';

Вместо TEdit лучше юзай TDateTimePicker - и проблем таких не будет.

Это сообщение отредактировал(а) superVad - 26.8.2011, 10:46

Snowy

Дата 26.8.2011, 10:59 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

Репутация: 31
Всего: 484

TryStrToDate чем не нравится?

nematora

Дата 26.8.2011, 11:07 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.8.2011

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

Всё равно не работает, не знаю что не так

Код


function TForm1.Validate(S: string): boolean;
BEGIN
  Result:=True;
  try
    StrToDate(S);
  except
    ON EConvertError DO
      Result:=False;
  end;
END;
procedure TForm1.btn1Click(Sender: TObject);
begin
   if Validate(edt1.text) then
       Lbl1.Caption := edt1.text
   else
       Lbl1.Caption := 'Íå äàòà';
end;

Добавлено через 3 минуты и 52 секунды
Snowy, знать бы как использовать. в моем примере

Frees

Дата 26.8.2011, 11:14 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(nematora @ 26.8.2011, 14:07

)

Всё равно не работает, не знаю что не так

без делфи ехе запусти, заработает...(делфи всегда исключения показывает)

или

Код


procedure TForm1.btn1Click(Sender: TObject);
var
 d: TDateTime;
begin
   if TryStrToDate(edt1.text, d) then
       Lbl1.Caption := DateTimeToStr(d)
   else
       Lbl1.Caption := 'Не дата';
end;

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

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

nematora

Дата 26.8.2011, 11:26 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 26.8.2011

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

Frees, скопировал и всё заработало, Спасибо большое!!!!!

Добавлено через 7 минут
а Можете ещё подсказать как остановить выполнение While OEF?

перебираются сроки в файле, дошел до той строки что соответствует условию и прекращает дальше перебирать?

Frees

Дата 26.8.2011, 12:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Выход из цикла - break

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

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

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