| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
сравнение
Officeman © (2006-02-20 11:32:00)Вопрос.
данный код выполняется в цикле.
т.е. ждём изменения файла.
if MF2.Checked=true then begin
//определяем время изменения и переводим в тип-строка.
try
Windows.FindClose(FindFirstFile('go.bas', FindData));
NewTim:=TimeToStr(FileTimeToDateTime(FindData.ftLastWriteTime));
finally
memo2.Lines.Add('NewTim: '+NewTim);
end;
//сравниваем новое и старое значение. ????????????????????? ***
if NewTim<>OldTim then begin
OldTim:=NewTim;
memo2.Lines.Add('OldTim: '+OldTim);
...
*** пример. в memo2 выводит так:
NewTim: 10:58:52
OldTim: 10:58:52
почему. они не сравниваются как СТРОКИ, проходят как НЕРАВНЫЕ. ???
хотя тип string
DiamondShark (2006-02-20 12:10:00) [1]
> почему. они не сравниваются как СТРОКИ, проходят как НЕРАВНЫЕ.
> ???
Потому что они-таки неравные.
Просто в мемо ты их выводишь когда старое значение уже потерял.
:)
Ega23 (2006-02-20 11:49:00) [2]
> if MF2.Checked=true then begin
Лишняя проверка. Достаточно if MF2.Checked then .....
КаПиБаРа (2006-02-20 11:43:00) [3]Officeman (20.02.06 11:32)
if NewTim<>OldTim then begin
if NewTim<>OldTim then begin
memo2.Lines.Add('OldTim: '+OldTim);
OldTim:=NewTim;
| |
