Q&A
- 루프문이 계속 빠지지 않고 돌아가는데 왜 그런지 잘 모르겠습니다..
루프문이 계속 빠지지 않고 돌아가는데 왜 그런지 잘 모르겠습니다.
알려주세요...
startcount에 10을 넣고 endcount에 20을 넣고 돌리면 계속 돌거든요.....
procedure TForm1.PrinterClick(Sender: TObject);
begin
AssignFile(filename, 'c:/text/data.txt');
Reset(filename);
i :=0;
// with Printer do begin
AssignFile(outFile, 'c:/지로/text.txt');
ReWrite(outFile);
startcount := strtoint(Edit1.text);
endcount := strtoint(Edit2.text);
While Not Eof(filename) Do Begin <== 이부분이 계속 도네요..알려주세요...
// if sss = Eof(filename) then
// exit;
while i < 9999999 do begin
ReadLn(filename, MyStr);
if Eof(filename) then
exit;
i := i+1;
if (i >= startcount) and (i <= endcount) then
WriteData
else if i > endcount then
i:=9999999;
end;
end;
CloseFile(filename);
CloseFile(outFile);
end;
알려주세요...
startcount에 10을 넣고 endcount에 20을 넣고 돌리면 계속 돌거든요.....
procedure TForm1.PrinterClick(Sender: TObject);
begin
AssignFile(filename, 'c:/text/data.txt');
Reset(filename);
i :=0;
// with Printer do begin
AssignFile(outFile, 'c:/지로/text.txt');
ReWrite(outFile);
startcount := strtoint(Edit1.text);
endcount := strtoint(Edit2.text);
While Not Eof(filename) Do Begin <== 이부분이 계속 도네요..알려주세요...
// if sss = Eof(filename) then
// exit;
while i < 9999999 do begin
ReadLn(filename, MyStr);
if Eof(filename) then
exit;
i := i+1;
if (i >= startcount) and (i <= endcount) then
WriteData
else if i > endcount then
i:=9999999;
end;
end;
CloseFile(filename);
CloseFile(outFile);
end;
2
COMMENTS
-
-
로직상 무한루프가 될 가능성이 있네요..
While (Not Eof(filename)) and (I < 9999999) Do Begin
이쁜이 wrote:
> 루프문이 계속 빠지지 않고 돌아가는데 왜 그런지 잘 모르겠습니다.
> 알려주세요...
>
> startcount에 10을 넣고 endcount에 20을 넣고 돌리면 계속 돌거든요.....
>
>
> procedure TForm1.PrinterClick(Sender: TObject);
> begin
> AssignFile(filename, 'c:/text/data.txt');
> Reset(filename);
> i :=0;
> // with Printer do begin
> AssignFile(outFile, 'c:/지로/text.txt');
> ReWrite(outFile);
> startcount := strtoint(Edit1.text);
> endcount := strtoint(Edit2.text);
>
> While Not Eof(filename) Do Begin <== 이부분이 계속 도네요..알려주세요...
> // if sss = Eof(filename) then
> // exit;
>
> while i < 9999999 do begin
> ReadLn(filename, MyStr);
>
> if Eof(filename) then
> exit;
>
> i := i+1;
> if (i >= startcount) and (i <= endcount) then
> WriteData
> else if i > endcount then
> i:=9999999;
> end;
>
> end;
> CloseFile(filename);
> CloseFile(outFile);
> end;
(NOTICE) You must be logged in to comment on this post.
-
- bingyou
- 2001.10.20 01:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 가을하늘
- •
- 2001.10.20 00:26
- 1 COMMENTS
- /
- 0 LIKES
-
최병문•2010.05.17 22:34해결하셨나요??? 연락 부탁 드립니다. bm_choi@naver.com
-
- 정용광
- 2001.10.20 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 죽음천사
- 2001.10.20 00:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 블루델
- 2001.10.19 23:55
- 0 COMMENTS
- /
- 0 LIKES
-
- K J K
- 2001.10.19 23:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 헬프미
- •
- 2001.10.19 23:02
- 3 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.10.19 23:14간단한 실수를 하신거 같군요. query1.First 문을 루프 바깥(위)으로 끌어내세요. 헬프미 wrote: > 쿼...
-
헬프미•2001.10.20 00:52답변 감사합니다. 그런데, 간단한 DB 를 만들어 필들에 NAME1, NAME2를 주어 한 5~6개 정도 레코드...
-
코스엑스•2001.10.21 15:54다시 써봤읍니다. begin with Form1.Query1 do begin Open; First; while not EOF do ...
-
- 초보
- 2001.10.19 23:01
- 0 COMMENTS
- /
- 0 LIKES
-
-
조건일•2001.10.20 00:48우선~ 리스트뷰 작동원리까지는 아니더라도 문법구성 정도는 정확하게 이해 하셔야 겠네요... 여기 글에...
-
-
- 이쁜이
- 2001.10.19 22:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지인
- •
- 2001.10.19 22:50
- 1 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.10.19 23:17O.S, 탑니다.. 특히 화면컨트롤에서 차이가 납니다. 98에서 쓰시려면 98에서 컴파일하시는게 최고입니다....
-
- 회색도시
- 2001.10.19 21:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 처음
- 2001.10.20 12:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 밍키
- 2001.10.19 20:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 강동길
- 2001.10.19 20:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 주복락
- 2001.10.19 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 이쁜이
- •
- 2001.10.19 19:49
- 2 COMMENTS
- /
- 0 LIKES
루프문이 계속 빠지지 않고 돌아가는데 왜 그런지 잘 모르겠습니다. 알려주세요... startcount에 10을 넣고 endcount에 20을 넣고 돌리면 계속 돌거든요..... procedure TForm1.PrinterClick(Sender: TObject); begin AssignFile(filename...-
지나는 이•2001.10.20 12:51이쁜이 wrote: > 루프문이 계속 빠지지 않고 돌아가는데 왜 그런지 잘 모르겠습니다. > 알려주세요... >...
-
지나가는사람•2001.10.19 20:39로직상 무한루프가 될 가능성이 있네요.. While (Not Eof(filename)) and (I < 9999999) Do Begin ...
-
- 수정이^^
- •
- 2001.10.19 19:49
- 6 COMMENTS
- /
- 0 LIKES
-
허접한•2001.10.26 11:48ShellExeCute 에서 오픈한거의 handle 값은 어디에다가 되돌려 줬죠? PoseMessage의 방식은 맞는데 어데로...
-
바다를향해•2001.10.20 04:07냠냠.....올만에 글을 올리는 군여.... 아주 간단히 설명을 해보자면....... 폼을 create하고 바로 close...
-
바부이니•2001.10.20 00:44안냐세염 바부이니랍니다. 제가 함 봤거든여. 근데 저두 초보라서...^^; PostMessage(Handle, WM_CLOS...
-
사발우성•2001.10.19 23:19초보 사발임돠~ 일단.. 폼 close이벤트에 close가있군엽 -_- 삭제하시길... 삭제했는데구 폼이 안닫기면 ...
-
죠스고기•2001.11.10 07:00Application.ProcessMessages; 라고 코딩해보세요. 그 후에 폼을 닫던가 하시구요. ini파일은 절대...
-
수정이^^•2001.10.19 20:54이건 실행시키면 portmis.ini의 텍스트화일을 불러와서 ip읽어서 데이타를 전송한뒤 자동으로 창이 닫히거...
-
- 델파이초보
- 2001.10.19 19:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용광
- 2001.10.19 19:08
- 0 COMMENTS
- /
- 0 LIKES
> 루프문이 계속 빠지지 않고 돌아가는데 왜 그런지 잘 모르겠습니다.
> 알려주세요...
>
> startcount에 10을 넣고 endcount에 20을 넣고 돌리면 계속 돌거든요.....
>
>
> procedure TForm1.PrinterClick(Sender: TObject);
> begin
> AssignFile(filename, 'c:/text/data.txt');
> Reset(filename);
> i :=0;
> // with Printer do begin
> AssignFile(outFile, 'c:/지로/text.txt');
> ReWrite(outFile);
> startcount := strtoint(Edit1.text);
> endcount := strtoint(Edit2.text);
>
> While Not Eof(filename) Do Begin <== 이부분이 계속 도네요..알려주세요...
> // if sss = Eof(filename) then
> // exit;
>
> while i < 9999999 do begin
> ReadLn(filename, MyStr);
>
> if Eof(filename) then
> exit;
>
> i := i+1;
> if (i >= startcount) and (i <= endcount) then
> WriteData
> else if i > endcount then
> i:=9999999;
> end;
>
> end;
> CloseFile(filename);
> CloseFile(outFile);
> end;
일단 코딩내용을 주석으루 막구 폼을 생성후 닫아 보세요.
그래서 닫아 지면 밑의 방법으루 테스트 해보시구 안되면
폼을 새루 만들어서 코딩을 해보세요.
일단 Timer를 하나 만드세요.
다음에 FormCreate에 한 코딩을 Timer의 OnTimer Event로 옮기시고,
FormCreate에
Timer.Enabled := True ;
Timer의 OnTimer Event에
Timer.Enabled := False ;
//=====================
해당 코딩 ...
글구 코딩내용중 성공하나 실패하는 폼은 닫는 거 같으니
SendMessage 없애구 대신 맨 밑에 Close 를...
글구 FormClose의 Close는 없애시구, 만약 MDI Child 같으면,
FormClose에 Action := caFree 를 넣으시구요..
이러면 대충될 거 같은디요..
머리속으로 만 돌려서 어떨지 모르겠네....
오빠가... (^^;)