Q&A

  • READFILE 사용할 때...
procedure TForm1.Button1Click(Sender: TObject);
var
hfile: HWND;
hwrite: DWORD;
buf: string;
begin
buf := '12345678901234567890';      //20
hfile := CreateFile('test.txt',GENERIC_READ,0,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
if (hfile <> INVALID_HANDLE_VALUE) then begin
   readfile(hfile,buf,20,hwrite,0);
   CloseHandle(hfile);
   exit;
end;
showmessage('asdfads');


저 readfile사용하면 위의 test.txt파일이 열리는 것 아닌가요... 아무 반응이 없던데, 왜 그런건지 궁금합니다. test.txt파일 열 수 있는 방법 좀 알려주세요.
이 게시물을
1  COMMENTS
  • Profile
    이광철 • 2003.07.02 00:54


    procedure TForm1.Button2Click(Sender: TObject);
    var
      F    : TextFile;
      strLn: string;

    begin
      AssignFile(F, 'Test.txt');
      Reset(F);
      System.Readln(F, strLn);
      CloseFile(F);
    end;
←First Page
618 619 620 621 622 623 624 625 626 627
Last Page→
한델 로그인 하기