우선 (--)(__) 하구여
밑에 소스에서 에러 표시부분에서
[Error] frm_print.pas(480): Incompatible types: 'String' and 'PChar'
이런 에러가 생긴니다
제가 생각으로 에러났부분이 아닌데 에러가 나네여 고수님들 에러 체크 부탁드립니다
procedure TFrmprint.BitBtn9Click(Sender: TObject);
var
input_name : string;
begin
input_name := inputbox('이름입력','저장할입력을 입력하세요','');
if not FileExists(path + 'dbtemp.db') then
begin
showmessage('DB 디렉토리에 temp.db 파일이 없어 복사하지 못했습니다.');
exit;
end
else
begin
CopyFile('dbtemp.DB','save' + input_name + '.db',false);//에러
end;
showMessage('저장되었습니다.');
end;
하시면 됩니다. 타입이 맞지 않아서 나는 에러입니다.