Q&A

  • file 속성이 왜 변경이 안되지요...?
procedure Tfsdatatotinput.SpeedButton1Click(Sender: TObject);

var

OldAttributes, NewAttributes : Word;

WorkFile: String;

begin

WorkFile := 'c:temp임야공유지-영진리9.MDB';

OldAttributes := FileGetAttr(WorkFile);

NewAttributes := OldAttributes;



NewAttributes := NewAttributes and not faReadOnly;

FileSetAttr(WorkFile, NewAttributes);



showmessage('진행되었습니다.');

end;



이렇게 했는데 이런 에러가 나내요...

Operator not applicable to this operand type...컴파일이 안돼요...

부탁 합니다. 고수님들 빨리요...

1  COMMENTS
  • Profile
    최용일 2000.03.07 22:26
    아래의 코드에서 일어난 에러가 아닌데요. 아래의 코드는 전혀 이상이

    없습니다. 말씀하신 에러는 다른 코드에서 일어난 것입니다...



    디비돌이 wrote:

    > procedure Tfsdatatotinput.SpeedButton1Click(Sender: TObject);

    > var

    > OldAttributes, NewAttributes : Word;

    > WorkFile: String;

    > begin

    > WorkFile := 'c:temp임야공유지-영진리9.MDB';

    > OldAttributes := FileGetAttr(WorkFile);

    > NewAttributes := OldAttributes;

    >

    > NewAttributes := NewAttributes and not faReadOnly;

    > FileSetAttr(WorkFile, NewAttributes);

    >

    > showmessage('진행되었습니다.');

    > end;

    >

    > 이렇게 했는데 이런 에러가 나내요...

    > Operator not applicable to this operand type...컴파일이 안돼요...

    > 부탁 합니다. 고수님들 빨리요...