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

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

на странный глюк нарвался

koha ©   (2007-06-08 15:55:00) 

на странный глюк нарвался:

Type
 PTimeInfo = ^TProcessTimeInfo;
 TProcessTimeInfo = Record
   KernelTime : TDateTime;
   UserTime   : TDateTime;
   ColabsTime : TDateTime;
   IDLTime    : TDateTime;
   FullTime   : TDateTime;
 end;

function GetProcessTimeInfo(PID: integer; Var TR: TimeRec; Var TimeInfo: TProcessTimeInfo): Boolean;
begin
 
 // - вот так компилятр сказал гуд, но работать не стало

 with TimeInfo do begin
   KernelTime := KernelTime;
   UserTime   := UserTime;
   ColabsTime := ColapsTime;
   IDLTime    := IDLTime;
   FullTime   := SystemTimeToDateTime(CurTime)-FileTimeToDateTime(CreatTime);
 end;

 // - вот так компилятр сказал тоже гуд и все заработало

   TimeInfo.KernelTime := KernelTime;
   TimeInfo.UserTime   := UserTime;
   TimeInfo.ColabsTime := ColapsTime;
   TimeInfo.IDLTime    := IDLTime;
   TimeInfo.FullTime   := SystemTimeToDateTime(CurTime)-FileTimeToDateTime(CreatTime);

end;

почему делфи в первом случае невыдал ни кокой ошибки?

---

koha   (2007-06-08 22:25:00) [1]

> Плохиш ©   (08.06.07 16:37) [5]
> > на странный глюк нарвался:С каких пор документированная
> работа компилятора стала называться "глюк"?


-  всего скорей я имел ввиду свой глюк а не делфи.

---

Плохиш   (2007-06-08 16:37:00) [2]

> на странный глюк нарвался:

С каких пор документированная работа компилятора стала называться "глюк"?

---

DVM   (2007-06-08 16:31:00) [3]

> то ошибки бы не было?

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

---

koha   (2007-06-08 16:07:00) [4]

- да, пока еще распознавание ошибок на абсурдность не придумали ........

---

koha   (2007-06-08 16:03:00) [5]

Выходит так, если было бы написано  приблизительно так, то ошибки бы не было?

with TimeInfo do begin
  KernelTime := KernelTime2;
  UserTime   := UserTime2;
  ColabsTime := ColapsTime2;
  IDLTime    := IDLTime2;
  FullTime   := SystemTimeToDateTime(CurTime)-FileTimeToDateTime(CreatTime);
end;

---

DVM   (2007-06-08 15:58:00) [6]

> почему делфи в первом случае невыдал ни кокой ошибки?

А как по-твоему компилятор должен был догадаться в первом случае KernelTime это KernelTime или TimeInfo.KernelTime ?

---

Наверх