Search the Community

Showing results for tags 'delphi'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 175 results

  1. Olá pessoal, saudações é possivel transformar uma palavra string de tamanho desconhecido , separada pelo separador ; em celulas separadas ,no stringrid em uma única linha? variável := t;e;x;t;o nas células do StringGrid ficaria asssim [ t ] [ e ] [ x ] [ t ] [ o ]
  2. olá a todos Tem como jogar todos os itens tabulados do ListBox para o StrinGrid em sequência, cada item numa célula separada na mesma linha? procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add('PrimeiraColuna'^I'Segunda'^I'Terceira') ; end;
  3. Instalei recentemente o Delphi Tokio 10.2, mais não veio com componentes para relatório. não encontro link para download desses componentes! alguém me ajuda ai?
  4. Bom dia, por acaso alguém já desenvolveu ou conhece alguém que tenha desenvolvido multipag bradesco 240 ? estou montado ta indo bem mas o manual deles não esclarece procedimento para pagamento de IPTU/IPVA/LICENCIAMENTO E DPVAT estou procurando alguém que já tenha desenvolvido pra ver se conseguiu esses procedimentos
  5. Olá amigos Preciso de uma ajuda e quem poder dar uma força agradeço, como que posso fazer através do código uma variável A que cubra uma faixa de valores que vai 1 até 29,59 , que a variável B cubra uma faixa de valores que vai 30 até 59,59 assim por diante 1..29,59 := (A); 30..59,59 := (B); 60.. 89,59 := (C); 90..119,59 := (D); 120..149,59 := (E); 150..179,59 := (F);
  6. é possivel girar uma Timagem por grau sem ser apenas em 45° ou 90 ° , mas conforme o valor de uma variável agradeçido quem poder dar ajuda
  7. tem alguma função ou dica que pode ser usada para separar silabas de qualquer palavra ou frase no idioma português em um texto qualquer ca-sa ca-sa-men-to car-tó-rio A-les-san-dra
  8. Olá a todos amigos, no Mask Edit coloco uma data dd/mm/aaaa e consigo jogar essa data, mais um texto correspondente dependendo do seu valor que vem de uma variável, para um Memo ficando assim no Memo, se a data for essa do Maskedit for 01/01/2019. 01/01/2019 texto1 tem jeito de incrementar o numero de meses através de uma variável, pegando aquela data do Mask Edit, e jogar para o mesmo Memo por exemplo ,se a variavel for 3 ele incrementa tres meses, se for 12 joga doze meses, tipo essas previsões mensais? 01/01/2019 texto1 01/02/2019 texto2 01/03/2019 texto3 01/04/2019 texto4 .............. fiz um um rascunho Obrigado a todos amigos aqui do fórum e a quem poder me dar auxilio
  9. Código Fontes Delphi Berlin Firebird - Retaguarda+Frente de Caixa - NFe 4.00+NFCe 4.00+TEF De R$ 1.300 por apenas R$ 550! Somente neste fim de semana!!! Com garantia de compilação e funcionamento no Delphi Berlin ou seu dinheiro de volta!!! Frente de Caixa (NFC-e 4.00) TEF Integrado com Retaguarda (NF-e 4.00) (mesmo banco de dados) em Firebird 2.5 + TEF Dedicado ou Discado no Delphi Berlin. (Não possui SAT). Pra comprovar, entre no ambiente de homologação do Rio Grande do Sul e consulte as chaves abaixo: NFC-e: 43180409369680000190650010000004651000004650 NF-e: 43180409369680000190550050000205011000205017 Ambiente de Homologação do Rio Grande do Sul NF-e = https://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx NFC-e = https://www.sefaz.rs.gov.br/NFE/NFE-NFC.aspx Baixe o Demo com todas as funcionalidades em Modo Homologação https://drive.google.com/open?id=10Wy6oFS3D5Jhwq3V--l03BCc7IajeWnh Pagamento seguro pelo Mercado Pago!!! https://www.mercadopago.com/mlb/checkout/start?pref_id=317168099-0a18c403-823b-448a-a6d3-8543eb42d742 Obs.: Fornecemos o arquivo zipado em até 24 horas com tudo que é necessário para configurar o ambiente no Delphi Berlin. A configuração do ambiente é por sua conta, caso queira suporte cobramos R$ 300,00 para realizar a configuração do ambiente (Delphi Berlin já deve estar instalado). Caiman ERP PDV NF-e / NFC-e 4.00 [email protected] WhatsApp: +1 (850) 604-0528 https://www.facebook.com/caiman.retaguarda/ Não é pra curioso, apenas pra quem desenvolve em Delphi Berlin!!! Promoção válida até 10/12/2018 06:00.
  10. Como fazer que um programa detecte alterações por exemplo em um arquivo TXT qualquer? Exemplo: Fiz um trabalho, e salvai na data de hoje 27/11/2018. Vamos supor que fiz alteração no Dia 28/11/2018. Quero que o programa tipo Bloqueie o acesso, a algo importante no sistema, porque ele salvou dia 27, mais o arquivo foi alterado de algum modo, e não pode ser alterado esse arquivo impotetico .
  11. Quero saber como posso desenvolver um sistema, que seja tipo compativel para windows xp. Sabemos que a Microsoft encerrou as atualizações para esse sistema, mais existe muita gente que tem no computador ainda.
  12. Olá pessoal. Gostaria da saber se há possibilidade do usuário navegar entre os botões de uma Toolbar utilizando as setas direita/esquerda do teclado? Se for possível fazer isto, pode colocar aqui no fórum como fazer? Desde já agradeço.
  13. Bom dia.Estou com um probleminha que não estou conseguindo resolver.Tenho dois DBGrids onde no 'Dbgrid1' coloco as contas e no 'Dbgrid2' as parcelas das mesmas e desta forma atualizo as cores conforme baixa nas contas e parcelas.Digamos que para o 'Dbgrid1' uso o DM.qcontasareceber e no 'Dbgrid2' uso o DM.qparcelasR.Preciso que as contas vencendo no dia atual fiquem conforme abaixo. //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém preciso puxar mais um campo para validação do DM.qparcelasR mais ou menos assim //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) and (dm.qparcelas_RContaFinalizada.Value = 'Não') then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end porém quando coloco desta forma acima não muda a cor do grid como se não reconhecesse o comando.Alguém pode me ajudar?Segue abaixo todo o código de pintura para quem interessar!!!Todos os demais códigos estão todos funcionando!!! procedure Tfrm_ContasAReceber.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin // Selecionado if (gdSelected in State) or (gdFocused in State) then Begin DBGrid1.Canvas.Brush.Color := clBlue; DBGrid1.Canvas.Font.Color := clWhite; End // Sem gerar Parcela Else if (dm.qcontasreceberESTATUS.Value = 'QUITADO') and (dm.qContasreceberULTIMAPARCELA.Value = 0) then begin DBGrid1.Canvas.Brush.Color := clBlack; DBGrid1.Canvas.Font.Color := clWhite; end // Pago Else if (dm.qContasreceberESTATUS.Value = 'QUITADO') then begin DBGrid1.Canvas.Brush.Color := clYellow; DBGrid1.Canvas.Font.Color := clBlack; end //A Pagar Hoje else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value = date) then begin DBGrid1.Canvas.Brush.Color := clGray; DBGrid1.Canvas.Font.Color := clBlack; end // Vencida else if (dm.qcontasreceberPROXIMOPAGAMENTO.Value < date) and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clRed; DBGrid1.Canvas.Font.Color := clWhite; end // A Pagar else if (dm.qContasreceberPROXIMOPAGAMENTO.Value > date)and (dm.qcontasreceberESTATUS.Value = 'PENDENTE') then begin DBGrid1.Canvas.Brush.Color := clGreen; DBGrid1.Canvas.Font.Color := clWhite; end; DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end;
  14. Olá a todos tem como transformar o código abaixo em função ou procedure, o programa que estou desenvolvendo tera várias paginas e quase todos itens variaveis de cada página vai precisar de fazer código semelhante a esse abaixo que estou testando, mudando apenas os componentes, os valores continuram sendo os mesmos, precisaria da ajuda de vocês pra ficar mais organizado e menor o programa sem ter que ficar repentindo as mesmas instruções para cada item se não vai fica muito grande e ruim de dar uma manutenção se precisar futuramente, uma função ou procedure ou outra alternativa já resolveria, agradeço a quem puder me dá ajuda procedure TForm1.Button22Click(Sender: TObject); var testando1,testando2,testando3:integer ; Begin begin testando1:= strtoint(label33.Caption); testando2:= strtoint(label2.Caption); testando3:= strtoint(label3.Caption); if (testando1=33) or (testando2 =33) or (testando3 =33)then memo3.lines.add ('33'); if (testando1=22) or (testando2 =22) or (testando3 =22)then memo3.lines.add ('22'); if (testando1=11) or (testando2 =11) or (testando3 =11)then memo3.lines.add ('11'); if (testando1=9) or (testando2 =9) or (testando3 =9) then memo3.lines.add ('9'); if (testando1=8) or (testando2 =8) or (testando3 =8) then memo3.lines.add ('8'); if (testando1=7) or (testando2 =7) or (testando3 =7) then memo3.lines.add ('7'); if (testando1=6) or (testando2 =6) or (testando3 =6) then memo3.lines.add ('6'); if (testando1=5) or (testando2 =5) or (testando3 =5) then memo3.lines.add ('5'); if (testando1=4) or (testando2 =4) or (testando3 =4) then memo3.lines.add ('4'); if (testando1=3) or (testando2 =3) or (testando3 =3) then memo3.lines.add ('3'); if (testando1=2) or (testando2 =2) or (testando3 =2) then memo3.lines.add ('2'); if (testando1=1) or (testando2 =1) or (testando3 =1) then memo3.lines.add ('1') else memo3.lines.add (''); end; end;
  15. Boa noite pessoal, estou quebrando a cabeça em uma questão aqui faz dois dias, já pesquisei em vários Fóruns e vídeo aulas mais sem sucesso.O Problema é o Seguinte.Tenho duas tabelas (contas_a_pagar) e (conta_a_pagar detalhes), em uma delas tenho um atualizo via "FORM" as contas com valores total da mesma, na outra atualizo "Botão Gerar Parcelas" e utilizo para gerar as parcelas.A Parte 1 que uso para gerar parcelas e inserir na minha tabela "contas_a_pagar_detalhe" esta funcionando normalmente e usei o comando abaixo: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; 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; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if LongintVar = 1 then begin Messagedlg('Este Pagamento não tem Parcelas a Ser Geradas!',mtinformation,[mbok],0); exit; end else if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; qend1.ParamByName('P6').asDate := incMonth(DataConta, i); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; end; except On E: Exception do raise Exception.Create(E.Message); end; ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); end; A Segunda Parte que é para atualizar meu campo "DatavUltParcela" na minha tabela conforme a "contas_a_pagar" é que mora o problema.Segue o comando que estou usando para ela. 1 2 3 4 5 6 7 8 9 begin qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR SET (DATAVULTPARCELA) '+#10+ ' WHERE ID = '''+ qend1.FieldByName('IDCONTA').AsString +''' '); qend.SQL.Add(' VALUES '); qend.SQL.Add(' (:CP1) '); qend.ParamByName('CP1').asDate := incMonth(DataConta, i); qend.ExecSQL; end; Será que estou fazendo algo de errado?Segue o código Completo do codigo: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 procedure Tfrm_ContasAPagar.BitBtn_GerarParcaela_MovClick(Sender: TObject); var qend, qend1 : TZQuery; LongintVar, i : Integer; DataConta : TDate; DataUltParcela : TDate; begin qend := TZQuery.Create(nil); qend.Connection := dm.Conect; qend1 := TZQuery.Create(nil); qend1.Connection := dm.Conect; 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; LongintVar := StrToInt(edt_QtdParcelas_CP.Text); DataConta := StrToDate(edt_Data_CP.text); try if LongintVar = 1 then begin Messagedlg('Este Pagamento não tem Parcelas a Ser Geradas!',mtinformation,[mbok],0); exit; end else if qend1.RecordCount > 0 then begin Messagedlg('As Parcelas Já Foram Geradas Anteriormente!',mtinformation,[mbok],0); exit; end else begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend1.SQL.Clear; qend1.SQL.Add(' INSERT INTO CONTAS_A_PAGAR_DETALHE '+#10+ ' (CENTRODECUSTO, IDCONTA, VALOR, JUROS, '+#10+ ' DESCONTOS, DATAVENCIMENTO, PARCELA, VALORDEVEDOR) '); qend1.SQL.Add(' VALUES '); qend1.SQL.Add(' (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8) '); qend1.ParamByName('P1').asString := qend.FieldByName('CENTRODECUSTO').asString; qend1.ParamByName('P2').asString := qend.FieldByName('ID').asString; qend1.ParamByName('P3').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ParamByName('P4').asString := '0'; qend1.ParamByName('P5').asString := '0'; qend1.ParamByName('P6').asDate := incMonth(DataConta, i); qend1.ParamByName('P7').AsString := IntToStr(i)+'/'+ IntToStr(LongintVar); qend1.ParamByName('P8').AsCurrency := qend.FieldByName('VALORTOTAL').Value / LongintVar; qend1.ExecSQL; end; begin LongintVar := StrToInt(edt_QtdParcelas_CP.Text); for I := 1 to LongintVar do begin qend.SQL.Clear; qend.SQL.Add(' UPDATE CONTAS_A_PAGAR SET (DATAVULTPARCELA) '+#10+ ' WHERE ID = '''+ qend1.FieldByName('IDCONTA').AsString +''' '); qend.SQL.Add(' VALUES '); qend.SQL.Add(' (:CP1) '); qend.ParamByName('CP1').asDate := incMonth(DataConta, i); qend.ExecSQL; end; end; end; except On E: Exception do raise Exception.Create(E.Message); end; ShowMessage('Foram Geradas ' + IntToStr(LongintVar) + ' Parcela(s) com Sucesso'); end; Estou trabalhando com banco de dados Mysql.Será que estou colocando a segunda parte no lugar errado? Falta algo? ou o Procedimento é errado?Alguém pode me ajudar por favor?Estou iniciando meus trabalhos com Delphi Tokio 10.2 e ainda sou um pouco leigo no assunto!!!Desde já agradeço a todos que ajudarem ou pelo menos tentarem.
  16. Olá amigos, precisando de uma ajuda, um código para fazer uma subtração entre dois anos (somente o ano), o atual do sistema (sem ter de ser digitado)e outra variável digitado pela pessoa no Edit1, e mostrar a diferença no Label1 Supondo que seja 2018 o ano atual (do computador) e no Edit1 [ 1958 ] label1 = 60 Obrigado
  17. olá a todos precisando de uma ajuda dos amigos, de uma função para o Lazarus que faça a contagem e pegue a letra do meio de uma palavra qualquer escrita pela pessoa no Edit, somente se a palavra tiver numero ímpar de letras. Caso a palavra escrito pela pessoa no Edit tenha número par de letras retornar 0 (zero) no label. Exemplo 'cinza' (no label mostrar a letra 'n' ) casa (no label mostrar '0') Obrigado.
  18. Boa noite, Pessoal preciso de uma opnião de algum especialista. Seguinte: Desenvolvo sistemas em Delphi e sempre utilizei conexões ODBC para me conectar com Banco seja ele qual for e sempre fiz assim porque numca tive problemas e todas as grandes desenvolvedores de software que eu conheco (Senior, Totus, Mega e algumas outras utilizam assim). Ocorre que agora estou iniciando um projeto e estou sendo muito questionado por utilizar ODBC, me dizem que estou colocando um complicador a mais no sistema sendo que eu poderia acessar diretamente sem ele ( estou utilizando mysql). Só que eu não gosto da ideia mudar uma estrutura apenas porque alguns analistas querem que eu mude, precisa ter alguma justificativa técnica pra isto. Por tanto eu preciso de algum argumento técnico, uma matéria ou algo que justifique a utilização ou não do uso de ODBC. alguém pode me ajudar nisto, alguém tem algum argumento técnico falando dos prós e contras da utilização de conexões ODBC.
  19. Olá. No VCL o listBox tem a propriedade TopIndex, e no FMX qual seria ? Desde já agradeço.
  20. Bom dia Preciso converter um código que está em Java para usar no delphi. este código criptografa uma senha.Alguém consegue converter este código para pascal pois eu conhecimento em java é bem próximo de zero:******************************************************************************************import java.util.Base64;import javax.crypto.Cipher;import javax.crypto.spec.IvParameterSpec;import javax.crypto.spec.SecretKeySpec;public class Cryptography{private static String key = "[email protected]#1$1%M4SC4D";private static String iv = "C#&UjO){QwzFcsPs";public static String encrypt(String plainText) throws Exception{byte[] plainTextbytes = plainText.getBytes("UTF-8");byte[] keyBytes = key.getBytes("UTF-8");byte[] ivBytes = iv.getBytes("UTF-8");Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5Padding");SecretKeySpec secKey = new SecretKeySpec(keyBytes, "AES");cipher.init(Cipher.ENCRYPT_MODE, secKey, new IvParameterSpec(ivBytes));return Base64.getEncoder().encodeToString(cipher.doFinal(plainTextbytes));}}obrigado;
  21. Olá estou tendo dificuldade em converter esse código java em código delphi, agradeço pela ajuda dos amigos na ajuda para poder converter esse código em delphi import java.util.Scanner; public class javaPessorneCalc { /** * @param args */ public static void main(String[] args) { // TODO Auto-generated method stub Scanner scan = new Scanner(System.in); int i, size, counter = 0, numer = 0, numLen, numFin = 0; int[] nums; char a; String input = "", numero = ""; System.out.println("Enter the for analysis: "); input = scan.nextLine(); scan.close(); size = input.length(); while(counter < size) { a = input.charAt(counter); if(a == 'a' || a == 'j' || a == 's' || a == 'A' || a == 'J' || a == 'S') { numer += 1; } else if(a == 'b' || a == 'k' || a == 't' || a == 'B' || a == 'K' || a == 'T') { numer += 2; } counter++; } numero += numer; numLen = numero.length(); nums = new int[numLen]; for(i = 0; i < numLen; i++) { if(numero.charAt(i)== '0') nums = 0; else if(numero.charAt(i)== '1') nums = 1; else if(numero.charAt(i)== '2') nums = 2; } for(i = 0; i < nums.length; i++) { if (numer == 11 || numer == 22 || numer == 33 || numer == 44) { numFin = numer; i = nums.length; } else numFin += nums; } System.out.println("The name, '"+input+"', adds to "+numer+" and totals to "+ numFin+"!"); } }
  22. Bom estou em duvida vi aqui no fórum algo a respeito sobre isso Conteúdo achado no fórum e estou a procura de mais explicações e exemplos Estou a desenvolver um Auto-Backup de Banco de dados gerando seu arquivo .SQL e compactando em um arquivo .zip ou .rar, minha duvida é o seguinte queria criar um executável no qual ele ira encapsular o arquivo .zip ou .rar para dentro dele, exemplos de encapsulamento de arquivos em um executável encontrados aqui aqui , eu sei também que tem como fazer esse encapsulamento via código no Delphi construindo o código e passando o local do arquivo e também sei que o Delphi permite compilar manualmente. Exemplo do que eu quero e tipo o Winrar que gera um Arquivo.rar de sua extensão que é aberto em seu software e com possível proteção de senha. Explicações: Quero fazer um executável a partir do meu para encapsular um arquivo pois assim o arquivo só poderá ser aberto por esse executável gerado criando assim algumas personalizações do tipo colocar senha no executável assim protegendo o arquivo.
  23. Boa noite tem como fazer operações com medidas de ângulos expressos em angulos, minutos e segundos? Obrigado
  24. Boa noite preciso usar este programa no sorteio aleatório usando três palavras só que o problema é que palavra "amarelo" é exibida no Label1 em primeiro lugar toda vez inicia o programa pela primeira vez e preciso que seja aleatório também. Não sei este código é mais indicado para este caso sou iniciante, e conto com ajuda de vocês. Agradeçido procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin i := RandomRange(1,5); Case i of 2: Label1.caption := ('verde'); 3: Label1.caption := ('amarelo'); 4: Label1.caption := ('vermelho'); end;
  25. Estou tentando fazer um Form de Pesquisa, utilizando arrays. Fiz da seguinte forma, mas não consigo definir os dados do array. Sempre dá erro na declaração do array. procedure TF_Pesquisa.FormShow(Sender: TObject); // Para definir os dados do DBGrid. var aCampos : array [ 1..2, 1..3 ] of String ; // Campo 1 = Nome do campo da Tabela a ser pesquisado // Campo 2 = Título no DBGrid // Campo 3 = Largura do campo do DBGrid i : Integer ; begin if DONDE.Caption = 'Cad_Clientes' then aCampos := [ [ 'COD_CLIENTE', 'Cód.', '70' ], [ 'NOME', 'Cliente', '420' ] ] ; if DONDE.Caption = 'Cad_Fornecedores' then aCampos := [ [ 'COD_FORNECEDOR', 'Cód.', '70' ], [ 'RAZAO', 'Fornecedor', '420' ] ] ; for i := 1 to 2 do begin DBGrid1.Columns.Add ; DBGrid1.Columns[i-1].FieldName := aCampos [ i, 1 ] ; // Coluna 0 DBGrid1.Columns[i-1].Title.Caption := aCampos [ i, 2 ] ; DBGrid1.Columns[i-1].Width := StrToInt ( aCampos [ i, 3 ] ) ; end; end ; procedure TF_Pesquisa.Ed_PesqExit(Sender: TObject); // Ed_Pesq = tEdit - palavra a ser localizada begin Query1.Close ; Query1.SQL.Clear ; if DONDE.Caption = 'Cad_Clientes' then begin Query1.SQL.Add ( 'Select * from Cad_Clientes' ) ; Query1.SQL.Add ( 'Where NOME like "%' + Ed_Pesq.Text + '%" ' ) ; Query1.SQL.Add ( 'Order by NOME' ); end; if DONDE.Caption = 'Cad_Fornecedores' then begin Query1.SQL.Add ( 'Select * from Cad_Fornecedores' ) ; Query1.SQL.Add ( 'Where RAZAO like "%' + Ed_Pesq.Text + '%" ) ' ) ; Query1.SQL.Add ( 'Order by RAZAO' ); end; Query1.Open ; end ; A pesquisa está funcionando perfeitamente. O problema está na definição do array. Obrigado, Bettega.