Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.

Pesquisar na Comunidade

Mostrando resultados para as tags ''Delphi''.



Mais opções de pesquisa

  • Pesquisar por Tags

    Digite tags separadas por vírgulas
  • Pesquisar por Autor

Tipo de Conteúdo


Categorias

  • Armazenamento
  • Áudio
  • Energia
  • Entrada
  • Feiras e Eventos
  • Gabinetes
  • Memória
  • Museu
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Rádio CdH
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Blog

Categorias

  • Armazenamento
  • Áudio
  • Câmeras
  • Computadores
  • Consoles
  • Eletrônicos
  • Energia
  • Entrada
  • Gabinetes
  • Impressão
  • Jogos
  • Memória
  • Placas-mãe
  • Portáteis
  • Processadores
  • Programas
  • Redes
  • Refrigeração
  • Smartphones
  • Tablets
  • Vídeo
  • Outros

Categorias

  • Livros disponíveis
  • Livros esgotados

Categorias

  • Cursos

Fóruns

  • Mensagens do Clube do Hardware
    • Regras gerais
    • Boletins do Clube do Hardware
    • Notícias da administração
  • Hardware
    • Recomendações de computadores
    • Placas de vídeo
    • Placas-mãe e chipsets
    • Processadores
    • Problemas de gargalo e desempenho
    • Memórias
    • Armazenamento
    • Refrigeração e superaquecimento
    • Fontes e energia
    • Gabinetes e casemods
    • Placas de som e áudio on-board
    • Periféricos
    • Mac
    • Overclock
    • Hardware - outros
  • Computação móvel
    • Notebooks
    • Tablets
    • Smartphones e apps
  • Redes e Internet
    • Redes e Internet
    • Hospedagem de sites e registro de domínios
  • Segurança da informação
    • Remoção de malware
    • Dúvidas sobre invasões e infecções
    • Programas de proteção
  • Programação e desenvolvimento
    • Java
    • C/C#/C++
    • Pascal/Delphi
    • .NET
    • Bancos de dados
    • Programação web
    • Programação - iniciantes
    • Programação de microcontroladores
    • Programação - outros
  • Software
    • Jogos
    • Pacotes de escritório
    • Computação distribuída (Folding@Home, Bitcoin etc.)
    • Virtualização
    • Design, animação e tratamento de imagens
    • Edição de áudio e vídeo
    • Programas
  • Sistemas Operacionais
    • Recomendação de sistemas operacionais
    • Windows
    • GNU/Linux, BSD, Unix-like e software livre
  • Eletrônicos
    • Equipamentos de som, home theaters e gravadores de mesa
    • Televisores e projetores
    • Câmeras e filmadoras
    • Players portáteis
    • Consoles (videogames)
    • GPS
    • Telefonia fixa
    • Eletrônica
    • Retrocomputação
  • Outros
    • Recomendações de serviços e lojas
    • Preços e promoções
    • Notícias
    • Bolsa de empregos, certificações e mercado de trabalho
    • "Causos"
    • Encontros de usuários
    • Feira do Rolo
  • Clube do Hardware
    • Comentários, elogios, críticas, sugestões e questões sobre o Clube do Hardware
    • Comentários de artigos
    • Fórum para testes de funcionalidades

Categorias

  • Hardware
  • Redes
  • Eletrônica
  • Sistemas operacionais

Encontrado 60 registros

  1. Boa noite pessoal... Gostaria de uma ajuda... eu estou com um projeto onde estou fazendo uma especie de estrato bancário onde os valores dele fica um embaixo do outro. Imagine que este é o relatório. ID DATA HORARIO CENTRO DE CUSTO HISTORICO TIPO VALOR 1 16/08/2018 10:00 EMPRESA TESTE1 DEBITO -R$ 100,00 2 16/08/2018 12:34 EMPRESA TESTE2 CREDITO R$ 200,00 3 17/08/2018 12:45 EMPRESA TESTE2 CREDITO R$ 130,00 4 17/08/2018 12:56 EMPRESA TESTE3 CREDITO R$ 140,00 5 18/08/2018 12:09 EMPRESA TESTE1 DEBITO -R$ 160,00 TOTAL CREDITO (?) TOTAL DEBITO(?) TOTAL CREDITO (Já está funcionando este campo de cálculo). Deste forma, Preciso colocar os campos negativos em vermelho e positivos em azul e também preciso de algum comando que posso usar no fortes report que calcule o que teve de crédito e débito de acordo com o valor (Positivo ou negativo), ou de acordo com o campo "TIPO" (Crédito e Débito), alguém pode me ajudar? Banco de dados Mysql, Relatório Fortes Reportes, Campo (Valor) ou (TIPO) de é a origem do cálculo é um TRLDBText. Desde já agradeço.
  2. Gostaria de ajuda de vocês em uma duvida em relação a implantação do sistema. Estou com um cliente que deseja realizar a instalação em diversos terminais A duvida é em relação a como realizar a instalação em vários terminais tendo um único servidor. Como realizar a instalação do banco de dados no servidor e instalar o software no terminal com conexão com o servidor ( cada terminal terá uma licenca diferente ). Outra duvida: Normalmente vocês que realizam a "transformação" do pc mais potente do cliente em servidor ?
  3. Ja pensou em colocar suas aplicações com travas e controle Online ? Conheça a ferramenta OneMaker - Plataforma de Ativação OnLine Código Fonte no Delphi Tokyo Plataforma de ativação Online que pode ser integrado em qualquer sistema, de forma simples, rápida e totalmente automatizado. A integração é bem simples, apenas colocar o componente na aplicação, adicionar a unit no projeto e colocar um código no OnShow, pronto, seu sistema agora é totalmente controlado por liberação Online e Offline A plataforma é comercializada com seus códigos fontes em Delphi Tokyo **Alguns recursos** * Cadastro de clientes; * Cadastro Sistemas; * Cadastro de Contas bancárias; * Configurações de Boleto bancário * Geração de Mensalidades; * Geração de Boletos; * Envio de Boletos ao cliente; * Manutenção de Controle de contas a receber; * Trabalha com arquivo Retorno e Remessa; * Liberação automática após cliente pagar o boleto ou liberação manual;; * Bloqueio de cliente; * E muito mas... **Conteúdo do pacote** * Componente exclusivo com fontes * Fontes do Servidor * Fontes da Plataforma de Ativação Online * Unit para adicionar em sua aplicação Vídeo da ferramenta:https://www.youtube.com/watch?v=au9FjiUEoEI mais informações: Email / Skype: erp_onemaker@hotmail.com Whatsapp: (19) 99923-7944
  4. "'1a' is not a valid floating point value", quero mudar para "Valor inválido!". Como faço?
  5. Boa tarde a todos, Como já havia dito em um post anterior, sou novato em desenvolvimento e mais ainda em Pascal/Delphi, no programa que estou escrevendo, me deparei com um problema que de repente é até simples mas não estou conseguindo resolver. Tenho uma unit, dentro desta unit tenho um PageControl com seis abas e dentro da primeira aba tenho outro PageControl com mais duas abas (por enquanto). Pois bem, dentro das abas deste último PageControl, tenho dois DBGrids, com SQLDataSet, DataSetProvider e ClientDataSet. Inseri e programei alguns botões para Inserir, Editar, Excluir, Cancelar, Salvar e Sair, todos configurados e funcionando, tudo no PageControl(último citado). Ainda no mesmo PageControl, coloquei um ComboBox e um botão de "OK", para selecionar as abas, funcionando quase da forma que preciso. Ainda no mesmo PageControl, coloquei um campo TEdit para digitar e um potão de pesquisa, também funcionando, para as duas abas. Ainda no mesmo PageControl, e agora vem a questão mesmo, inseri um botão de voltar, programei a parte em que ele apaga os dados escritos no campo de pesquisa porém, ele não retorna a tabela ao seu estado original, a tabela fica com o resultado da busca indefinidamente. 1º Como posso fazer para que quando eu trocar de abas em qualquer um dos PageControl's a outra aba desapareça? 2º Como posso fazer para que quando eu clique no botão voltar o grid retorne ao seu estado original? Se houver mais alguma dica ou algo que eu possa melhorar em meu código(o que eu acho muito provável), eu agradeço imensamente. Segue o código do botão voltar até agora: procedure TfrmCompras.sbtnVoltarClick(Sender: TObject); Var i : Integer; begin for i := 0 to ComponentCount -1 do if Components is TEdit then begin TEdit(Components).Text := ''; end; if pcFormCompras.ActivePage = tbsInsumos then begin tbsInsumos.TabVisible := false; TClientDataSet(dsInsumos.DataSet).Close; TClientDataSet(dsInsumos.DataSet).Open; tbsInsumos.TabVisible := true; end; end; Código do botão "OK" para troca de abas do segundo PageControl, o do primeiro é basicamente a mesma coisa: procedure TfrmCompras.sbtnComprasFormClick(Sender: TObject); begin case cbxComprasForm.ItemIndex of 0 : tbsInsumos.TabVisible := true; 1 : tbsProcedimentos.TabVisible := true; end; edtFormCompras.SetFocus; end; Utilizo Win10Pro64, Delphi Tokyo, MySQL(HeidiSQL) Desde já agradeço imensamente.
  6. Olá amigos. Estou com um problema queimando meus neurônios. Estou fazendo um programinha de gestão financeira para uma pequena igreja. Como o movimento é muito pequeno e não exige muito do banco de dados, utilizo Access conectado com ADO. No formulário tenho um combobox com os seguintes itens: dízimos, ofertas e total. Logo abaixo tenho um label, que deve me retornar a soma das entradas do mês corrente, do campo selecionado no combobox. Inseri no próprio formulário uma adoquery para cada item: dízimos, ofertas e total, e um dbtext (não visível) para cada adoquery que recebe o campo Expr1, Expr2 e Expr3, respectivamente. No evento onchange do combobox, coloquei o seguinte código: procedure TFinanceiro.ComboBox1Change(Sender: TObject); var num1, num2, num3: real; begin Label25.Caption := ''; AdoQuery1.Close; AdoQuery2.Close; AdoQuery3.Close; AdoQuery1.SQL.Clear; AdoQuery1.SQL.Add('Select Sum(Valor) as Expr1'); AdoQuery1.SQL.Add('from entradas'); AdoQuery1.SQL.Add('where Month(DtLanc) = Month(Date()) and year(DtLanc) = Year(Date()) and IdLancamento IN (1)'); AdoQuery2.SQL.Clear; AdoQuery2.SQL.Add('Select Sum(Valor) as Expr2'); AdoQuery2.SQL.Add('from entradas'); AdoQuery2.SQL.Add('where Month(DtLanc) = Month(Date()) and year(DtLanc) = Year(Date()) and IdLancamento IN (2)'); AdoQuery3.SQL.Clear; AdoQuery3.SQL.Add('Select Sum(Valor) as Expr3'); AdoQuery3.SQL.Add('from entradas'); AdoQuery3.SQL.Add('where Month(DtLanc) = Month(Date()) and year(DtLanc) = Year(Date()) and IdLancamento IN (3)'); AdoQuery1.Open; AdoQuery2.Open; AdoQuery3.Open; If Combobox1.Text = 'Total Geral de Entradas' Then begin if Dbtext3.Caption = '' then label25.Caption := 'R$0,00' else num3 := StrToFloat(DbText14.Caption); Label25.Caption := FloatToStrF(num3, ffcurrency, 8,2); end; If Combobox1.Text = 'Dízimos' Then begin if Dbtext1.Caption = '' then label25.caption := 'R$0,00' else num1 := StrToFloat(DbText1.Caption); Label25.Caption := FloatToStrF(num1, ffcurrency, 8,2); end; If Combobox1.Text = 'Ofertas' Then begin if Dbtext2.Caption = '' then label25.caption := 'R$0,00' else num2 := StrToFloat(DbText2.Caption); Label25.Caption := FloatToStrF(num2, ffcurrency, 8,2); end; End; Pois bem, quando seleciono, por exemplo, Dízimos, na combobox, ele retorna no label 25 a soma de todos os dízimos que entraram no mês. Se seleciono, ofertas, o label muda para a soma das ofertas. Funciona tudo perfeito. O problema é quando eu edito ou adiciono um novo lançamento. Meu código para isso é: procedure TFinanceiro.Button7Click(Sender: TObject); var data: string; begin data := FormatDateTime('DD/MM/YYYY', DateTimePicker1.Date); dbedit2.Text := data; dbnavigator1.BtnClick(nbpost); Combobox1.Text := 'Selecione a Opção'; Depois de clicar e salvar o lançamento, se eu volto no combobox1 e seleciono qualquer campo, o label sempre aparece zerado. Ou seja, ele não me retorna mais os totais. O mesmo ocorre após excluir um registro. Aí eu preciso sair do programa e entrar de novo, e quando faço isso, lá estão os valores atualizados. Já tentei inserir um close e um open na tabela após o insert, já tentei o mesmo com a conexão, e nada. Aliás, acredito que não deveria ser necessário algo assim, pois o evento onchange do combobox vai sempre fechar e abrir as adoquery, logo os valores deveriam atualizar. Enfim... não sei o que fazer para ele atualizar sem eu ter que fechar e abrir o programa. Se alguém puder dar uma força...
  7. Fiz um sistema no Delphi XE8, que utiliza o ClientDataSet. No meu computador roda Ok. Quando instalo em outro computador, da o seguinte erro: Access violation at address 0080635B in module 'AutomacaoC.exe'. Read of address 00000000, quando executa o seguinte comando: cdsForm.CreateDataSet; cdsForm.EmptyDataSet; cdsForm.Open; Alguem pode me ajudar?
  8. alguém poderia me ajudar a criar uma regra para gerar parcelas no delphi seatle , com bando de dados em mysql?
  9. Boa tarde a todos, Iniciei muito recentemente na área de desenvolvimento e, como etapa inicial, estou tentando desenvolver um programa simples para ajudar no dia-a-dia de um dos setores da empresa em que trabalho. Este setor tem uma pasta em rede cheia de planilhas em excel, arquivos em .doc e pdf, minha intenção é criar uma aplicação que possa substituir o uso desse monte de documentos, ou a maior parte deles ao menos. Comecei a aplicação mas me deparei com uma coisa que ainda não sei como resolver, os documentos que já existem, precisarei migrá-los para dentro da aplicação, só não tenho ideia de como fazer. Encontrei algumas dicas na internet mas nada que eu tenha compreendido direito. Eu estou usando o Delphi Tokyo, MySQL com HeidSQL, em um Win10Pro64. A princípio, preciso descobrir como migrar ao menos uma planilha em .xlsx para o delphi e posteriormente salvar no banco de dados ou migrar direto para o banco de dados se for o caso. A criação da aplicação em si, até o momento não tem sido um problema. Qualquer ajuda é sempre bem-vinda. Agradeço imenso.
  10. Amigos, estou desenvolvendo um programa em delphi seatle, e me deparei com um erro onde crie um proecesso para gera parcelas automaticamente, mais quando execulto o comando clicando no botão gerar parcelas, os registros não são gerados. segue o procedimento que estou usando. procedure Tform_teste.DBEdit3Exit(Sender: TObject); begin Dm.Tb_Parcelatotal_parc.Value := Dm.Tb_parcelavalor_parc.Value / Dm.Tb_parcelaquant_parc.Value; end; procedure Tform_teste.btn_gerarClick(Sender: TObject); var parc:integer; begin DBEdit3Exit (sender); if dm.Tb_Parcela.State in [dsinsert] then begin dm.Tb_Parcela.Insert; parc := 1; while parc <= dm.Tb_ParcelaID.Value do begin dm.Tb_Parcela.Insert; dm.Sql_parcelaID.Value:= parc; dm.Tb_parcelavalor_parc.Value := Dm.Tb_Parcelaquant_parc.Value; dm.Tb_Parcelavenc_parc.Value := date; dm.Sql_parcela.Post; inc (parc); dm.Tb_parcela.ApplyUpdates(1); end; end; tenho um dbgrid que mostra as parcelas geradas, o que ta acontecendo é que nao registra as parcelas no banco de dados, so registra 1uma, uso o banco de dados Mysql. Me ajudem ai por favor!!
  11. tudo certo galera?? estou em um impasse aqui.. vou explicar a lógica e depois o problema. preciso fazer um mini-sistema para uma rodada de negócio de empresas que funciona da seguinte maneira: tenho um numero variavel de participantes e esses estarão sentados de frente a frente em mesas que são variaveis de acordo com o numero de participantes, os participantes vão rodar as mesas apresentando sua empresa em um tempo determinado(que não precisa estar no sistema)porém no momento que são trocados de mesa, não podem sentar novamente com algum outro que já tenha sentado na roda. Por Ex: tenho 50 participantes esses 50 serão divididos em mesas de 5 pessoas e essas pessoas não podem sentar novamente juntas. o problema que não lembro muito como usar o delphi e estou tentando fazer com campos a serem preenchidos, um campo pro numero de participantes e acredito que a mesa deva ser automatica e quantidade de pessoas em cada mesa também, se alguém puder ajudar serei eternamente grato!! abraço
  12. Boa noite pessoal, meu programa em Object Pascal do Delphi está dando erro de "Ponto de Entrada do Procedimento não localizado na Biblioteca de Vínculo Dinâmico". Vocês poderiam me dizer que tipo de erro é esse e como o resolvo? Fico no aguarde de vocês. Edisson Sávio.
  13. Oi pessoal, estou com problema na definição de array dinâmico. Veja esta parte do meu código: UNIT Geral; Interface TYPE TYPE1 = ARRAY OF ARRAY OF ARRAY OF DOUBLE; VAR imax,jmax : INTEGER; xyn : TYPE1; Implementation ____________________________________________________________________________________________ PROCEDURE READ(VAR imax,jmax:INTEGER;VAR xyn:TYPE1); f1 : TEXTFILE; i,j : INTEGER; BEGIN ASSIGNFILE(f1,''DATAS2.DAT''); RESET(f1); READ(f1,imax); READ(f1,jmax); FOR i := 1 TO imax DO FOR j := 1 TO jmax DO READLN(f1,xyn[i,j,1],xyn[i,j,2]) CLOSEFILE(f1); _____________________________________________________________________________________ BEGIN SETLENGTH(xyn,imax,jmax,2); END. Quando compilo está tudo ok. O problema é na execução, aonde aparece o erro 201 quando tento executar a procedure acima. Vi que o erro 201 é problema na verificação de faixa, mas não enxergo aonde está o erro. Por favor, me deem uma ajuda. Obrigado, Edisson Sávio.
  14. Bom dia, amigos. Estou tentando desenvolver um programinha em delphi 7 e access para registro de contribuições. Tenho uma tabela com os dados das pessoas contribuintes, e outra tabela para registar as contribuições. Essa tabela de contribuições recebe a ID do contribuinte, a data e o valor. Pois bem, coloquei um dbgrid no formulário para ir listando as contribuições lançadas. Um lookupcombobox seleciona o nome do contribuinte e grava a ID do mesmo na tabela de contribuições. Mas aí está o meu problema. No DBgrid aparece a id do contribuinte, pois esse é o dado que foi salvo na tabela de contribuições. Mas quero que apareça o nome. É possivel fazer isso? Ou seja, o mesmo DBGrid estar lincado à tabela de contribuições e buscar o nome do contribuinte em outra tabela? Abraços e obrigado.
  15. Estou montando um utilitario, inicialmente foi feito em codigo .bat, porém decidi fazer uma interface visual, tenho em mente como transformar a logica do programa de bat para delphi, o problema que estou tendo, é com abrir aplicativos externos/executar comandos do DOS Utilizando WinExec e até mesmo ShellExecute, ambos abrem a aplicação e depois de alguns segundos ela se fecha, sequer aparece na tela apenas consigo ver pelo gerenciador de tarefas EX: ShellExecute(Application.Handle, nil, PChar('C:\Level Up\Perfect World\element\ELEMENTCLIENT.EXE' + 'startbypatcher' + 'user:Usuario' + 'pwd:Senha' + 'role:Personagem'), nil, nil, SW_SHOWNORMAL); EX: WinExec('C:\Level Up\Perfect World\element\ELEMENTCLIENT.EXE' + 'startbypatcher' + 'user:Usuario' + 'pwd:Senha' + 'role:Personagem', SW_SHOWNORMAL); e eu não consigo imaginar o motivo dele em teoria funcionar, porém fechar o aplicativo, (não é erro com o aplicativo) testei com outros Informação Adicional: Uso windows 8.1 64Bits, tentei compilar com as 2 SDK 32 e 64 bits, ambas não funcionam, e executar como adm tambem não
  16. Ola sou iniciante em Delphi estou criando um sistema de cadastro usando um Data Module com AdoConection + Adoquery + Data Source, consegui fazer o relatório e filtrar com o campo que desejo digitar. Porém, gostaria de criar dois campos para filtrar entre as datas digitadas neles. Como posso fazer usando o código abaixo. procedure TFrmClientes.Button4Click(Sender: TObject); begin Dm.Tab_Clientes .Filtered := false; Dm.Tab_Clientes .Filter := 'Vendedor = ' + QuotedStr(RelVendedor.Text); Dm.Tab_Clientes .Filtered := true; FrmClientes := TFrmClientes.Create(Application); FrmRel.QuickRep1.Preview; Dm.Tab_Clientes .Filtered := false; end; Lembrando que o código filtra o campo 'Vendedor' digitando no campo RelVendedor, quero apensas implementar os campos pra digitar as datas. Alguém pode me ajudar?
  17. Caríssimos Preciso que, em um memo com várias linhas, uma esteja em destaque. De preferência, colorida. Alguém pode me auxiliar?
  18. desculpe o código muito grande, penso q se mostrar todo será melhor para seu entendimento Ola estou com uma duvida em meu programa que tem por objetivo pôr de 2 á 4 valores para tirar sua média, porém não sei como fazer para que o programa divida os valores colocados em cada Edit pela quantidade de valores ( se 2, 3 ou 4), por exemplo: edit1=15 , edit2=16, edit3=20 , edit4=' ' são três Edit's sendo usados, dessa forma somo apenas os três e divido pelo número 3, variando de acordo com os edit's usados. Agradeço qualquer ajuda. aqui uma das minhas tentativas: if (edit1.text='') and (edit2.text='') then begin end else begin Edit5.text:= FloatToStr((somac2)/4); end end;
  19. Bom dia! Estou querendo fazer uma calculadora para deficientes visuais, com isso deverá ser desenvolvido em delphi. O usuário deverá falar o operador aritmético e os dois números e o programa devera calcular e falar o resultado. Deve conter adição, subtração, multiplicação e divisão. O meu único problema é saber qual componente devo usar para fazer o reconhecimento de voz.
  20. Recentemente na empresa, alguns Windows 10 foram atualizados para a nova build 1803. Desde então nosso ERP, desenvolvido em Delphi 2010 com DBExpress para acesso ao banco de dados PostgreSQL parou de funcionar. As máquinas que estão com a build 1709 ou mais antigas não apresentaram problemas. Anexei uma mensagem do erro que está ocorrendo. Alguém está passando pelo mesmo problema? Já conseguiu resolver?
  21. unit Unit1; {$mode delphi} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; { TForm1 } type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton; RadioButton4: TRadioButton; procedure Button1Click(Sender: TObject); procedure Edit5Change(Sender: TObject); procedure RadioButton1Change(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.RadioButton1Change(Sender: TObject); begin end; procedure TForm1.Button1Click(Sender: TObject); var soma:real; vezes:real; begin //Média Aritmética Simples------------------------------------------------------ soma:=(strtofloat(edit1.text) + strtofloat(edit2.text) + strtofloat(edit3.text) + strtofloat(edit4.text)); If (radiobutton1.checked=true) then begin Edit5.text:=(soma)/4; end; //Média Geométrica ------------------------------------------------------------- vezes:=(strtofloat(edit1.text) * strtofloat(edit2.text) * strtofloat(edit3.text) * strtofloat(edit4.text)); If (radiobutton3.checked=true) then begin Edit5.text:='sqrt(vezes)'; end; end; procedure TForm1.Edit5Change(Sender: TObject); begin end; end. Não consigo por as contas da média dentro de variaveis para adicionar outras divisões/ raizes ou multiplicações. Estou com um erro pra pegar o resultado dessas médias simples e geométrica, esta dando um erro de (Error:Incompatible type for arg no. 1:Got "Real", expected "TTranslateString") e não sei com consertar o erro esta nessas linhas: procedure TForm1.Button1Click(Sender: TObject); var soma:real; vezes:real; begin //Média Aritmética Simples------------------------------------------------------ soma:=(strtofloat(edit1.text) + strtofloat(edit2.text) + strtofloat(edit3.text) + strtofloat(edit4.text)); If (radiobutton1.checked=true) then begin Edit5.text:=(soma)/4; end; //Média Geométrica ------------------------------------------------------------- vezes:=(strtofloat(edit1.text) * strtofloat(edit2.text) * strtofloat(edit3.text) * strtofloat(edit4.text)); If (radiobutton3.checked=true) then begin Edit5.text:='sqrt(vezes)'; end; end;
  22. Pessoal, estou com o problema de access violation em meu aplicativo. Eu estou escrevendo um código em Pascal do Delphi e quando compilo o programa ele está ok, mas quando o executo ele dá um erro de access violation. Ele não indica uma linha de erro, mas apenas executa o erro de access violation. Eu queria saber que tipo de erro é esse e como eu faço para elimina-lo?
  23. boa noite gostaria de exemplos\opinião de como tratar erros\exceção no Delphi de forma genérica tipo eu não posso adivinhar todos os erros que vão dar em um determinado comando de salvar por exemplo ou de incluir, etc faz um tempo que estou usando o seguinte código: try //corpo do comando except on E: Exception do MessageDlg('Ocorreu o seguinte erro: ' + E.Message, mtError, mbOKCancel, 0, mbCancel); end; mas não sei se seria a forma mais correta, também não quero ficar colocando uma bíblia de tratamento de erros que de repente não vai servir pra nada e aquele erro que eu não tratei exploda na cara do usuário da pior forma possivel não sei se deu para entender mas resumindo minha duvida é se existe um tratamento de erro genérico pra pelo menos quando der algum erro não deixar o cliente em panico kkkk desde já agradeço a atenção
  24. Olha meus problemas: Não consigo encontrar nenhum site em que eu possa programar sem baixar nada. Não consigo instalar o Lazarus com o compilador Delphi no Fedora Workstation 26. No RAD da Embarcadero, só dá para usar grátis se for para testar temporariamente.
  25. Estou com um problemas nessa aplicação. Fiz um Form aonde o usuário coloca um arquivo (*.txt) que vai direto pro Tmemo, lá aparece o que contem no arquivo e quantas vogais existem no arquivo.txt. Mas não estou conseguindo por quantas consoantes tem Alguém sabe? procedure TF_lerArquivo.contaVogal(arq :String); var i, ret, contavogais: Integer; begin ret := 0; arq := AnsiUpperCase(arq); contavogais :=0; for i := 0 to Length(arq) do begin if arq[i] in ['a','e','i','o','u','A','E','I','O','U']then Inc(ret); contavogais := ret; end; MemoTxt.Lines.Add('Total de vogais: ' + IntToStr(contavogais)); end; procedure TF_lerArquivo.contaConsoante(arq : String); var i, cont, contaConsoantes: Integer; begin cont := 0; arq := AnsiUpperCase(arq); contaConsoantes := 0; for i := 0 to length(arq) do begin if arq[i] in ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'] then Inc(cont); contaConsoantes := cont; end; MemoTxt.Lines.Add('Total de consuantes: ' + IntToStr(contaConsoantes)); end; adicionado 55 minutos depois [Resolvido] Achei o erro... era o AnsiUpperCase, quando removi funcionou. Cod: procedure TF_lerArquivo.contaVogal(arq :String); var i, ret, contavogais: Integer; begin ret := 0; contavogais :=0; for i := 0 to Length(arq) do begin if arq[i] in ['a','e','i','o','u','A','E','I','O','U']then Inc(ret); contavogais := ret; end; MemoTxt.Lines.Add('Total de vogais: ' + IntToStr(contavogais)); end; procedure TF_lerArquivo.contaConsoante(arq : String); var i, cont, contaConsoantes: Integer; begin cont := 0; contaConsoantes := 0; for i := 0 to length(arq) do begin if arq[i] in ['b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z'] then Inc(cont); contaConsoantes := cont; end; MemoTxt.Lines.Add('Total de consuantes: ' + IntToStr(contaConsoantes)); end;

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×