Jhonas

tem um exemplo nesse link http://forum.lazarus.freepascal.org/index.php?topic=26899.0 https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://compbio.clemson.edu/downloadDir/delphi/delphi_compilation_manual.pdf&prev=search abraço

Reinstale o Driver da Realtek abraço

AVISO: Poste suas dúvidas no forum Delphi .... o Forum Tutorias & Dicas deve ser usado apenas para postar códigos prontos... ok ? Veja esse exemplo e tente aplicar ao seu código procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if (gdSelected in state) then DBGrid1.Canvas.Font.Color:= clred else DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); /// CAMPO QUE VOCE QUER ALTERAR A COR if Column.Field = CDS_Cadmov1.FieldByName('VALTOT') then begin //// CONDIÇÃO PARA ALTERAR A COR DO CAMPO if CDS_Cadmov1DTSINAL.Text = '' then begin DBGrid1.Canvas.Brush.Color:= clRed; DBGrid1.Canvas.Font.Color:= clYellow; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end; end; abraço

Veja nesse link http://ww1.microchip.com/downloads/en/DeviceDoc/50002466B.pdf ou https://www.google.com.br/search?source=hp&ei=FnqlW4HxDMrBwATf-6CQAw&q=Bluetooth+low+energy+RN4871+java&o que=Bluetooth+low+energy+RN4871+java&gs_l=psy-ab.3..33i160k1.1918.9573.0.9874.8.8.0.0.0.0.238.969.1j1j3.5.0....0...1.1.64.psy-ab..3.1.238....0.Rz1njjaueZ4 abraço

Não teria como tornar onde está o memo1 em variável para ser usado apenas no procedure dos Buttons das paginas que precisar dessas faixas de valores ? Voce pode trocar o Memo por um TstringList ( lista de strings ) https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://www.delphibasics.co.uk/RTL.asp%3FName%3Dtstringlist&prev=search queria usar apenas uma procedure NumX para servir para todas outras páginas do Tpanel e cada um terá um memo e um button diferente que vai precisar pegar apenas aquela faixa de valores que estão no procedure NumX Voce vai usar a procedure NumX para todas ... como voce quer usar um Memo e um Button para cada um, então voce terá que fazer essa modificação: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Label33: TLabel; Label2: TLabel; Label3: TLabel; Button2: TButton; Memo2: TMemo; procedure NumX(NumZ : integer); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; testando1, testando2, testando3: integer ; Lista : TStringlist; implementation {$R *.dfm} procedure TForm1.NumX(NumZ : Integer); var Numeros : set of 1..33; begin Numeros := [1,2,3,4,5,6,7,8,9,11,22,33]; if NumZ In Numeros then Lista.Append(inttostr(NumZ)); end; procedure TForm1.Button1Click(Sender: TObject); begin testando1 := strtoint(label33.Caption); testando2 := strtoint(label2.Caption); testando3 := strtoint(label3.Caption); Lista := TStringList.Create; NumX(testando1); NumX(testando2); NumX(testando3); Memo1.Lines.Add(Lista.Text); Lista.Free; end; procedure TForm1.Button2Click(Sender: TObject); begin testando1 := strtoint(label33.Caption); testando2 := strtoint(label2.Caption); testando3 := strtoint(label3.Caption); Lista := TStringList.Create; NumX(testando1); NumX(testando2); NumX(testando3); Memo2.Lines.Add(Lista.Text); Lista.Free; end; end. OBS: Não sei se voce terá outros Labels diferentes nas outras paginas, por isso estou repetindo os labels no Button2.. se for diferente voce faz a modificação Como não sei como é seu projeto, o código poderia ser ainda mais simplificado e compactado. abraço

Meu amigo, voce precisa ler mais sobre os comandos do delphi ... por falta de conhecimento voce acaba fazendo um código extenso sem necessidade veja os links sobre o comando Set Of do delphi https://drgarcia1986.wordpress.com/2011/12/09/definindo-conjuntos-de-dados-em-delphi/ http://www.delphibasics.co.uk/RTL.asp?Name=set outra forma http://www.delphibasics.co.uk/Article.asp?Name=Sets aplicando esse comando ao seu código ficaria assim: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Label33: TLabel; Label2: TLabel; Label3: TLabel; procedure NumX(NumZ : integer); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; testando1, testando2, testando3: integer ; implementation {$R *.dfm} procedure TForm1.NumX(NumZ : Integer); var Numeros : set of 1..33; begin Numeros := [1,2,3,4,5,6,7,8,9,11,22,33]; if NumZ In Numeros then Memo1.Lines.Add(inttostr(NumZ)); end; procedure TForm1.Button1Click(Sender: TObject); begin testando1 := strtoint(label33.Caption); testando2 := strtoint(label2.Caption); testando3 := strtoint(label3.Caption); NumX(testando1); NumX(testando2); NumX(testando3); end; end. abraço

amigo, só pela data fica mais complicado, entretanto se voce tiver um campo PAGO ( S ou N ) para indicar que contas já foram pagas, ai fica mais facil imagine que as contas pagas são marcadas como S ou N, então para pesquisar as contas vencidas é só especificar a data e o campo Pago como N exemplo conta - DataVenc - Pago conta 1 - 02/09/2018 - S conta 2 - 02/09/2018 - S conta 3 - 02/09/2018 - N conta 4 - 02/09/2018 - S conta 5 - 02/09/2018 - N conta 6 - 02/09/2018 - N conta 7 - 02/09/2018 - S então o seu select ficaria : select * from tabela where datavenc < '03/09/2018' and pago = 'N' abraço

Como ele é um .EXE , voce pode procurá-lo através da pesquisa do windows e deletá-lo. ou veja esses links, de como proceder https://www.google.com.br/search?source=hp&amp;ei=DbOKW-79G4GgwQS8mZzQCQ&amp;q=igfxtray+como+remover&amp;o que=igfxtray&amp;gs_l=psy-ab.1.5.0l10.1965.6297.0.12063.8.5.0.3.3.0.117.514.3j2.5.0....0...1c.1.64.psy-ab..0.8.551...0i131k1.0.3tjnpZnXJ-g abraço

Não tem nada de errado ... porque, Igfxtray não será encontrado nos registros do windows. O Igfxtray.exe é um tipo de arquivo EXE associado ao FUJITSU Lifebook P Series, desenvolvido pela Fujitsu para o Sistema operacional do Windows. A versão mais recente conhecida do Igfxtray.exe é a 1.0.0.0, que foi produzida para o Windows XP Home Edition XP HOME EDITION. Este arquivo EXE carrega uma avaliação popular de 2 estrelas e uma avaliação de segurança "Desconhecido". abraço

Realmente é a versão do TeeChart que não é compativel com o delphi tokyo Procure na Net qual é a versão para o seu delphi https://download.csdn.net/download/caosdun/10042905 abraço

eu não gosto de usar ... mas isso vai de cada um eu prefiro fazer um select para trazer o registro que eu quero, e depois trato individualmente cada campo do registro atribuindo os valores e depois salvando nunca tive problemas .... tenho tabelas com mais de 200 mil registros abraço

voce sabe usar o breakpoint do delphi ? begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; no começo do seu código que esta no botão, clique com o mouse ... vai aparecer uma bolinha vermelha ( esse é o breakpoint ) quando voce executar o seu código, o programa vai parar onde esta esse ponto, e a partir dai voce vai apertar a tecla ( F8 ) então o código irá sendo executado a cada vez que voce teclar o F8 ( linha por linha). se voce posicionar o mouse nas variaveis, ele ira mostrar o conteudo delas. dessa maneira voce vai seguindo o processamento e verificando se estão sendo passados os valores que estão sendo esperados pelos parametros. se houver algum erro, o programa para exatamente na linha onde esta o erro... fica mais facil resolver o problema. tente ai e veja se consegue resolver abraço

outra coisa que percebi,,, não use o nome de um campo da sua tabela como parametro em um select ( update ) ...isso sempre provoca erros.

Para atualizar a Tabela use o comando Refresh. exemplo: Tabela.Refresh /// onde Tabela e o nome da sua tabela ou do componente de acesso. Se mesmo assim, não atualizar o valor do campo, então use o comando para salvar os registros da tabela Exemplo: CDS_Tabela.Post; CDS_Tabela.ApplyUpdates(-1); abraço

qend.SQL.Clear; qend.SQL.Add(' SELECT ID, CENTRODECUSTO, VALORTOTAL '+#10+ ' FROM CONTAS_A_PAGAR WHERE ID = '''+ dm.qContasaPagar.FieldByName('id').asstring +''' '); qend.Open; qend1.SQL.Clear; qend1.SQL.Add('SELECT IDCONTA FROM CONTAS_A_PAGAR_DETALHE '+ 'WHERE IDCONTA = '''+ qend.FieldByName('ID').AsString +''' '); qend1.Open; OBS: Verifique se o erro ocorre quando voce abre a tabela... verifique tambem se o FieldByName('ID') esta correto para as 2 tabelas O erro de Kernel32 ocorre quando não foi possivel a conexão com o banco de dados Use o BreakPoint do Delphi para poder acompanhar o processamento das linhas do programa e verificar exatamente onde o erro ocorre. abraço

A Segunda Parte que é para atualizar meu campo "DatavUltParcela" na minha tabela conforme a "contas_a_pagar" é que mora o problema. Voce não esclareceu o que ocorre ... grava, não grava, dá erro ...o que acontece ?

voce quer usar as formulas do Excel no delphi ? Outra forma de calculo https://marcosalles.wordpress.com/2010/04/09/calculo-de-juros-em-sistema-price/ Outro exemplo: USES Math; procedure TForm1.Button1Click(Sender: TObject); function ValorPrestacao(C : Real; J : Real; N : Real) : Real; begin Result := C*((J/100)/(1-( Power(1/(1+(J/100)),N) ))); end; var C, J, P, TxDia : real; N : integer; begin /// CALCULO PARA JUROS COMPOSTO C:= 1000; // CAPITAL J:= 1; // JUROS AO MES N:= 5; // Nº DE PARCELAS P:= ValorPrestacao(C,J,N); Edit1.Text := floattostr(p); // VALOR DA PARCELA TxDia := (power((1 + J/100),(J/30)) - 1)*100; // TAXA DE JUROS AO DIA Edit2.Text := floattostr(TxDia); end; abraço

Veja esta modificação no seu código procedure TForm1.Button1Click(Sender: TObject); var Linhas, Colunas:TStringList; i:integer; begin Linhas := TStringList.Create; Colunas := TStringList.Create; try Linhas.LoadFromFile('C:\animais.csv'); //Carregando arquivo for i := 1 to 10 do begin Colunas.text := StringReplace(Linhas.Strings[i],';',#13,[rfReplaceAll]); edit1.Text:= Utf8toAnsi(Colunas.Strings[1]); end; finally Linhas.Free; Colunas.Free; end; end; Leitura do Texto: Tapete Refrigerante para Animais de Estimação InnovaGoods (90 x 50 cm) Texto convertido: Tapete Refrigerante para Animais de Estimação InnovaGoods (90 x 50 cm) Leitura de 10 Linhas do arquivo Raspador para Gatos e Arco Massageador InnovaGoods Escova de Remover Pelos para Aspirador InnovaGoods Trela para Cães Mãos Livres InnovaGoods Bebedouro para Animais My Pet Frosty Bowl Escova com mangueira para animais My Pet Brush Aspirador de Pêlo de Animais Pet Vacuum Frisbee com Luz LED Colorida InnovaGoods Tapete para Animais de Estimação InnovaGoods 85 x 65 cm Piscina para Animais de Estimação InnovaGoods Tapete Refrigerante para Animais de Estimação InnovaGoods (90 x 50 cm) abraço

ok... o arquivo CSV foi importado de qual banco de dados ?

só que meu problema é o seguinte se a pessoa fizer um empréstimo dia 22/08 para pagar em 5x e começar a pagar no dia 01/09 vai dá uma diferença de 10 dias, então tenho que dar desconto desses 10 dias. não entendi muito bem isso:] para dar uma diferença de 10 dias para a data do pagamento ( 22/09 ) então o pagamento teria que ser efetuado no dia 13/09. Nesse caso pagando em 01/09 seriam mais de 20 dias de adiantamento. ok, mas isso não é relevante para o seu caso.... se voce sabe qual é o valor percentual dos juros ao mês, basta voce dividir esse valor por 30 e voce terá o valor dos juros ao dia ( juros simples ) exemplo : Valor = R$ 1000 parcelas = 5 que dá R$ 200 cada parcela juros = 1% ao mês que dá R$ 2 200 + 2 = R$ 202 valor da parcela + juros desse modo R$ 1010 seria o valor total do emprestimo + juros então 1% / 30 dias = 0,0333333% ao dia 10 dias = 0,333333% 202 X 0,333333% = R$ 0,6733332 efetuando o desconto 202 - 0,6733332 = R$ 201,32 tente seguir esse raciocinio para fazer a programaçao OBS: Calculadora Online de Juros Simples e Composto http://calculoexato.com.br/parprima.aspx?codMenu=FinanJurosSobreValor abraço

coloque uma parte do texto em que aparecem ou deveriam aparecer os caracteres acentuados

Voce pode trocar os Edits pelo componente MaskEdit da paleta Additional e colocar a mascara na propriedade EditMask Se tiver os componentes RX Instalados pode usar o componente CurrencyEdit ( mais facil ) ou pode fazer isso procedure TForm1.Button1Click(Sender: TObject); begin // Edit1.Text = R$ 1.000,00 // Edit2.Text = 07,00 % Edit3.Text := StringReplace(Edit1.Text,'R$',' ',[]); Edit3.Text := StringReplace(Edit3.Text,'.','',[]); Edit4.Text := StringReplace(Edit2.Text,'%',' ',[]); end; abraço

veja o link sobre as versões de instalação https://support.microsoft.com/pt-br/help/321185/how-to-determine-the-version-edition-and-update-level-of-sql-server-an abraço

Amigo, os links posteriores a data de Atualização do Forum foram perdidos, então todos os links foram redirecionados para o mesmo link voce pode marcar o link e colar na pesquisa do Google, se o link ( antigo - quase 10 anos ) ainda existir, voce conseguirá acessá-lo https://www.google.com.br/search?source=hp&amp;ei=Pel6W76-FYHAwATKkIToBQ&amp;q=http%3A%2F%2Fwww.ziggi.com.br%2Fdownloads%2Fdriver-dbexpress+para-sql-server&amp;o que=http%3A%2F%2Fwww.ziggi.com.br%2Fdownloads%2Fdriver-dbexpress+para-sql-server&amp;gs_l=psy-ab.3...1611.10604.0.12108.13.13.0.0.0.0.149.1319.9j4.13.0....0...1.1.64.psy-ab..2.0.0....0.3cFc4O6eq4g https://www.devart.com/dbx/sqlserver/download.html https://www.google.com.br/search?ei=2-l6W4HBLsaCwgSdkaYY&amp;q=http%3A%2F%2Fwww.mcdbabrasil.com.br%2Fmodules&amp;o que=http%3A%2F%2Fwww.mcdbabrasil.com.br%2Fmodules&amp;gs_l=psy-ab.3..33i160k1.36898.36898.0.37628.1.1.0.0.0.0.130.130.0j1.1.0....0...1.1.64.psy-ab..0.1.130....0.crwVWXzobdg abraço

tem como mudar este código pra ficar mais seguro , se for preciso  ? Tem varias maneiras ... estou colocando a mais simples, que é pegar somente o ano da data atual ( seja qual for o formato ) procedure TForm1.Button1Click(Sender: TObject); var a:integer; begin a:= YearOf(now()); //data atual dd/mm/aaaa do sistema a:= a - StrToInt(Edit1.Text); //diferença entre o ano atual do computador e o ano digitado Label1.Caption:= DateToStr(now)+ ' data atual do sistema'; Label2.Caption:= inttostr(a); //diferença end; abraço