somoon wrote:

> 안녕하세요.

> 초보입니다.

>

> 버튼을 누르면 10분마다 정해진 일을 하는 실제코딩을

> 아래의 begin/end사이에 좀 넣어주십시오.(full code를)

> 부탁드립니다,

> 죄송합니다.

>

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

>

> /////////////////////////////////////////////////////////////////////

> // query해서 테이블을 만들고 그것을 batchmove하는 코딩이 들어 있음.//

> /////////////////////////////////////////////////////////////////////

>

> end;



코딩시 timer1의 enabled를 false로 선택해 놓아야 합니다.

버튼 클릭시 timer1의 enabled를 true로 해주면

Timer1Timer event가 interval주기로 실행이 됩니다.



procedure TForm1.Button1Click(Sender: TObject);

begin

timer1.interval:=600000; // 1000 이 1초임

timer1.enabled:=true;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

/////////////////////////////////////////////////////////////////////

// query해서 테이블을 만들고 그것을 batchmove하는 코딩이 들어 있음.//

/////////////////////////////////////////////////////////////////////

end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

timer1.enabled:=false;

end;



도움이 되셨기를...

감사합니다. 지호님.



님의 코딩대로 하니까 잘되는데요.



실행주기가 버튼누른후 10,20,30,40분......이 됩니다.

그러나 원하는 실행주기는 0,10,20,30,40분...이 되어야 합니다.

즉, 버튼을 누르자 마자 실행되고 그후에 10분마다 실행되어야 하지요.



어떻게 하면 되나요.

somoon wrote:

>

> 감사합니다. 지호님.

>

> 님의 코딩대로 하니까 잘되는데요.

>

> 실행주기가 버튼누른후 10,20,30,40분......이 됩니다.

> 그러나 원하는 실행주기는 0,10,20,30,40분...이 되어야 합니다.

> 즉, 버튼을 누르자 마자 실행되고 그후에 10분마다 실행되어야 하지요.

>

> 어떻게 하면 되나요.



batchmove하는 부분을 함수로 만들어 놓은 후 button1클릭시 한번 실행한후

timer1을 enabled:=true해주면 되지요



function TForm1.aaa:boolean;

begin

/////////////////////////////////////////////////////////////////////

// query해서 테이블을 만들고 그것을 batchmove하는 코딩이 들어 있음.//

/////////////////////////////////////////////////////////////////////



end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if not aaa then

begin

//에러처리

end;



timer1.interval:=600000; // 1000 이 1초임

timer1.enabled:=true;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

if not aaa then

begin

//에러처리

end;



end;



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

timer1.enabled:=false;

end;