Sistema Tecnico Postado Julho 21, 2008 Denunciar Share Postado Julho 21, 2008 Bom dia, galera.estou com um problema que não estou conseguindo resolver.tenho um programa onde eu relaciono os clientes e mando para os clientes, só que não estou conseguindo salvar a tabela destino, alguém pode me ajudar?ESTE É O CÓDIGO QUE ESTOU USANDO.var sTbConsName, NomeOrigem, NomeDestino: String;begin With DataModule1 do begin sTbConsName := TbConsName; NomeOrigem := AliasBDLPath+'\'+sTbConsName; end; DataModule1.Consulta.Close; If not FileExists(NomeOrigem) then begin MessageDlg('Arquivo '+sTbConsName+' não encontrado!',mtError, [mbOK],0); DataModule1.Consulta.Open; Exit; end; if SaveDialog1.Execute then begin NomeDestino := SaveDialog1.FileName; CopyFile(NomeOrigem, NomeDestino); end; DataModule1.Consulta.Open;end;ESTE É O ERRO:incompatible types: string and PAnsiChar'//como resolvo isto? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Duduh_Capixaba Postado Julho 21, 2008 Denunciar Share Postado Julho 21, 2008 Cara, em qual linha do código está dando o erro? Analisando rápido, creio que o erro seja aqui:sTbConsName := TbConsName;Pois você não definiu o que sua string está recebendo da sua tabela. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Sistema Tecnico
Bom dia, galera.
estou com um problema que não estou conseguindo resolver.
tenho um programa onde eu relaciono os clientes e mando para os clientes, só que não estou conseguindo salvar a tabela destino, alguém pode me ajudar?
ESTE É O CÓDIGO QUE ESTOU USANDO.
var
sTbConsName, NomeOrigem, NomeDestino: String;
begin
With DataModule1 do begin
sTbConsName := TbConsName;
NomeOrigem := AliasBDLPath+'\'+sTbConsName;
end;
DataModule1.Consulta.Close;
If not FileExists(NomeOrigem) then begin
MessageDlg('Arquivo '+sTbConsName+' não encontrado!',mtError, [mbOK],0);
DataModule1.Consulta.Open;
Exit;
end;
if SaveDialog1.Execute then
begin
NomeDestino := SaveDialog1.FileName;
CopyFile(NomeOrigem, NomeDestino);
end;
DataModule1.Consulta.Open;
end;
ESTE É O ERRO:
incompatible types: string and PAnsiChar'
//como resolvo isto?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.