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...컴파일이 안돼요...
부탁 합니다. 고수님들 빨리요...
없습니다. 말씀하신 에러는 다른 코드에서 일어난 것입니다...
디비돌이 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...컴파일이 안돼요...
> 부탁 합니다. 고수님들 빨리요...