Q&A

  • 특정 메모 내용을 계속적으로 Text 파일로...
질문대로 메모장을 썻다 지웠다 합니다..timer를 이용해서...

여러가지 정보들이 나타나서 사용후 지워버리는 식입니다..

이러한 내용들을 전부 text 파일에 로그 처럼 남기려고 하는데..

memo.lines.savaTofile ('c:/log/log.txt');  
-> 요렇게 하면 처음 것만 나타나구요...

Assgnfile(Textfile,('c:/log/log.txt');
Rewrite(Textfile);
-> 요렇게하면 Rewrite에서 I/O 에러가 나네요...

어케 해야 할지...

걍 특정한 메모의 내용을 그대루 계속 쓰기만 하믄 댈것 같은데 안대네요...

답변 부탁합니다...고수님들..
이 게시물을
1  COMMENTS
  • Profile
    혜월 • 2003.04.03 00:42
    procedure TForm1.LogFile(S: String);
    var
        i : integer;
    begin
        if FileExists('Log.txt') then begin
            i := FileOpen('Log.txt', fmOpenWrite or fmShareDenyWrite)
        end else begin
            i := FileCreate('Log.txt');
        end;

    try
        FileSeek(i,0,2);
        FileWrite(i,S[1],Length(S));
    finally
        FileClose(i);
      end;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
        i : integer;
    begin
        for i := 0 to Memo1.Lines.Count -1 do begin
            LogFile(Memo1.Lines.Strings[i] + #10);
        end;
    end;
←First Page
699 700 701 702 703 704 705 706 707 708
Last Page→
한델 로그인 하기