Скачать: CL | DM;

на странный глюк нарвался   Найти похожие ветки 

← →
koha ©   (2007-06-08 15:55) [0]

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

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;

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

---

← →
DVM ©   (2007-06-08 15:58) [1]

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

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

---

← →
koha ©   (2007-06-08 16:03) [2]

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

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

---

← →
koha ©   (2007-06-08 16:07) [3]

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

---

← →
DVM ©   (2007-06-08 16:31) [4]

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

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

---

← →
Плохиш ©   (2007-06-08 16:37) [5]

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

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

---

← →
koha ©   (2007-06-08 22:25) [6]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c