while문에서 잠깐 멈추는건
Application.ProcessMessages;
sleep(1);
이것으로 알았습니다... 만약 잠깐 멈추었다 다시 멈춘부분부터 시작하려하는데 continue 를 타지않는데요..
왜 그런것일까요??
while not eof( f ) do begin
s := '';
Readln(f,s);
xx := copy(s,1,5);
if (strtoint(xx)) > j then
begin
kkk := '';
kkk := Trim(s);
UDF_DB_Insert(Trim(kkk));
StopPoint := xx;
end;
//잠시멈춤
Application.ProcessMessages;
sleep(1);
if CheckBox1.Checked = true then begin
break;
end else begin
continue;
end;
inc(i);
end;
아래 프로그램은... 1/1000 초 정지한다음에 다음행이 실행 됨니다..
흠. 시간은 정확한건 아니지만.. ^^;; 지송. 아마 타이머 시간이랑 같은
식으로 표현할꺼라고 생각들거등요.. 1000이 1초.. 로여...
그럼 즐프하세요..