VPF::Поиск в текстовых файлах - Форум программистов

Palladin

Дата 24.6.2006, 21:18 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

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

Гы, очень даже, я вот думаю может просто ввод сделать времени таким ??,?? smile

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

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Sunr1se

Дата 25.6.2006, 10:03 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(RooR @ 24.6.2006, 21:18

)

я вот думаю может просто ввод сделать времени таким ?

То есть каким? smile

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

IRC-канал Винграда

Sunr1se

Дата 25.6.2006, 15:36 (ссылка)

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

Загрузка ...

Бывалый

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

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

Еще один вариант, получше предыдущих. Может быть еще актуально smile

Код


function CompareTime(Time1, Time2: string): integer;
var
  Time1Real, Time2Real: real;
begin
  Time1 := StringReplace(Time1, ':', ',', []);
  Time2 := StringReplace(Time2, ':', ',', []);
  Time1Real := StrToFloat(Time1);
  Time2Real := StrToFloat(Time2);
  if Time1Real > Time2Real then
    Result := 1
  else
    Result := 2;
end;

По сравнению с предыдущим у него один недостаток и одно преимущество. Недостаток в том, что если время запишут как 14.10, а не как 14:10, то код не сработает как надо. А преимущество в том, что появляется возможность обрабатывать записи вида 9:55.

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

IRC-канал Винграда

Palladin

Дата 25.6.2006, 19:49 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

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

ГЫ, ещё раз спасибо я и незнаю какой в прогу впихнуть smile

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

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

Sunr1se

Дата 25.6.2006, 20:43 (ссылка)

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

Загрузка ...

Бывалый

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

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

Пихай второй!!! Рекомендую! smile

Не, серьезно, он лучше. На мой взгляд.

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

IRC-канал Винграда

Yanis

Дата 25.6.2006, 23:59 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Sunr1se @ 25.6.2006, 16:36

)

Еще один вариант, получше предыдущих. Может быть еще актуально

Код

DateUtils.CompareTime(StrToTime(Time1), StrToTime(Time2))

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

*щёлк*

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