Testar se uma palavra está em uma string usando AnsiContainsStr e ContainsStr

Testar se uma palavra está em uma string usando AnsiContainsStr e ContainsStr

  março 02, 2023    Ana Paula Novello

---

Vira e mexe precisamos testar se contém alguma palavra no meio de uma string para isso temos duas funções que podemos utilizar AnsiContainsStr e ContainsStr; A função AnsiContainsStr é uma busca sensitive com isso ela diferencia minuscula de maiúsculas já a função ContainsStr não tem essa distinção.procedure TFVendas_NFSe.actTesteExecute(Sender: TObject); var lDescricao: String; begin lDescricao...

Read More

Utilizando Checklistbox no Delphi 10

Utilizando Checklistbox no Delphi 10

  agosto 17, 2022    Ana Paula Novello

---

Buenas, hoje pela manhã vi em um fórum que muitos programadores não utilizam o checklistbox por não saberem como usar ou não ver onde ele poderia ser aplicado.Vamos num exemplo: Temos um cadastro de produto, e esse produto pode ter vários grupos ou variações,...

Read More

Criando ícone na barra de tarefas a cada Form aberto

Criando ícone na barra de tarefas a cada Form aberto

  julho 28, 2022    Ana Paula Novello

---

Um código simples que hoje me salvou em um projeto.Exemplo: Em uma ordem de serviço com a opção de abrir várias ordens ao mesmo tempo, com isso ficará vários TForm em abertos ao mesmo tempo, para poder se localizar e abrir a ordem novamente jogamos o nome do cliente...

Read More

Criar etiqueta e definindo quantidades a serem impressas no Delphi FastReport

Criar etiqueta e definindo quantidades a serem impressas no Delphi FastReport

  outubro 15, 2021    Ana Paula Novello

---

Esse post irei fazer será um adicional de um antigo post.Vamos supor que queremos imprimir uma folha de etiquetas mas tem algumas destas etiquetas que queremos que seja impressão mais de uma quantidade.Para isso vamos utilizar um TClientDataSet para selecionar os produtos...

Read More

FastReport no Delphi - Com dois Detail

FastReport no Delphi - Com dois Detail

  outubro 11, 2021    Ana Paula Novello

---

Criaremos um relatório de orçamentos, então iremos exibir os dados principais do "Cliente" e "Número do Orçamentos" e abaixo os produtos e os detalhes das parcelas. Vamos organizar esse relatório jogando os produtos para um Detail e com os totais dos produtos,...

Read More

Erro "Incompatible types: 'System.TArray' and 'Pointer',"

Erro "Incompatible types: 'System.TArray' and 'Pointer',"

  junho 28, 2021    Ana Paula Novello

---

O erro seguir e simples na verdade método GotoBookmark esta esperando um parâmetro um array de bytes e o SelectedRows.Items[i] retorna esse valor.Exemplo: DataSet.GotoBookmark(Pointer(dbgrPrincipal.SelectedRows.Items[i])); Então para ajustar o código acima seria apenas...

Read More

Erro "Incompatible types: 'System.TArray' and 'string'"

Erro "Incompatible types: 'System.TArray' and 'string'"

  junho 28, 2021    Ana Paula Novello

---

Mas um erro na atualização do delphi 2007 para o Delphi Sydney.A propriedade AsBlob possui um tipo TBlobData isto até o Delphi 2009, pois até então ele era declarado como string. Então esse erro corresponde a incompatibilidade de formado dos campos. Se você deseja...

Read More

Erro "Required package 'rtl' not found"

Erro "Required package 'rtl' not found"

  abril 13, 2021    Ana Paula Novello

---

Esse erro esta relacionado a não conseguir encontrar um caminho, talvez por estar invalido (pode ocorrer quando instala um Delphi em uma maquina que já continha uma outra versão, e com isso ele se perde na hora de criar a pasta e adicionar na library path) Sugestão...

Read More

Erro "Unable to resolve records. Table name not found."

Erro "Unable to resolve records. Table name not found."

  abril 09, 2021    Ana Paula Novello

---

Esse bugs está relacionado algum erro no SQL:Para corrigir o erro, verifique o SQL, exemplos do que já presenciei: select *from CLIENTES (O * esta sem espaço e colado no from)Colocar o select de CLIENTES na tabela nas os campos adicionados no DataSet eram referente...

Read More

Método do DataSet [InsertRecord]

Método do DataSet [InsertRecord]

  janeiro 23, 2021    Ana Paula Novello

---

O método InsertRecord é uma grande facilidade para inserção de registros em um TDataSet e os que são herdado das classes TClientDataSet, TSQLDataSet, TFDQuery, FireDAC entre alguns outros componentes de conecção de banco de dados.Quando utilizamos o InsertRecord não...

Read More