chobo// wrote:

> 시간을 누적해서 계산필드에 넣는건데요..

> 레코드카운트수만큼 계산하는겁니다..

> 즉..1부터 맨마지막 레코드까지 레코드카운트수만큼 곱해주는건데 맨 마지막레코드로 계산해서 계산필드에 들어갑니다..

> 어디를 바꿔줘야될지 모르겟어여..

> procedure Tmachine.Query2CalcFields(DataSet: TDataSet);

> var

> i : integer;

> hh, mm, ss, ms, temp, sum : word;

> begin

> sum := 0;

> for i:=1 to query2.RecordCount do

> begin

> decodetime(Query2Operating_time.Value, hh, mm, ss, ms);

> temp:=(hh*3600 + mm*60 + ss)*i;

> sum:=sum+temp;

> query2calc_f.Value:=floattostr(sum);

> end;

>



함 이렇게 해 보심 안 디나여???????

procedure Tmachine.Query2CalcFields(DataSet: TDataSet);

> var

> i : integer;

> hh, mm, ss, ms, temp, sum : word;

> begin

> sum := 0;

decodetime(Query2Operating_time.Value, hh, mm, ss, ms);

> temp:=(hh*3600 + mm*60 + ss)*i;

> sum:=sum+temp;

> query2calc_f.Value:=floattostr(sum);

end;



걍 이렇게~~~~~~~

더움이 될런지모르겠지만~~~~~~