예전에 한번 했던 적이 있는데
우찌된 일인지 도통 못하고 있네요 ㅠㅠ

While 검색시작일 <= 검색종료일 do
begin
if 조건 then
  Memo1.lines.add('test1!!');

if 조건 then
  Memo1.lines.add('test2!!!');

검색시작일 = 검색시작일 + 1;
end;

검색기간이 길고,데이타가 많으면 Tmemo에 찍히는게 바로바로 보이질 않고,
그프로그램을 돌려놓고 다른일도 하려 왔다갔다 하다보면 화면이 멈춰져 있는것처럼 보여
확인하기가 힘이들고, 또 중간에 자꾸 인터넷이 끊기거나 서버를 끄는 경우가 생겨버리면
어디서 끊어졌는지를 확인하기 어렵더라구요.
그래서 파일(test.txt)로 담을려고 합니다.
새로운 어플리케이션을 열어
procedure TForm1.Button1Click(Sender: TObject);
var
FH :TextFile;
MyStr: String;

begin

        AssignFile(FH, 'C:\test.txt');
        Append(FH);
        WriteLn(FH, 'test1');
        WriteLn(FH, 'test2');
        CloseFile(FH);
end;

실행이 잘됩니다.
그런데 기존 프로그램 루프안에 넣어서 돌리면 I/O error 103 이 나면서 실행이 안됩니다.
파일명 조차도 생성이 안돼요.

팁/테크와 묻고답하기를 찾아보아도..제가 응용을 할줄 모르는건지 못찾았네요.
어떻게 하면 메모장에 한줄할줄 찍히듯이 파일(test.txt)로 만들수 있는지 조언좀 부탁드립니다.