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


Fóruns

  • 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

Encontrar resultados em...

Encontrar resultados que...


Data de Criação

  • Início

    FIM


Data de Atualização

  • Início

    FIM


Filtrar pelo número de...

Data de Registro

  • Início

    FIM


Grupo


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Encontrado 162 registros

  1. 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;
  2. 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.
  3. 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
  4. 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.
  5. amauridebarros

    Porque Usar ODBC

    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.
  6. junior103

    Como usar TopIndex no FMX?

    Olá. No VCL o listBox tem a propriedade TopIndex, e no FMX qual seria ? Desde já agradeço.
  7. amauridebarros

    (Resolvido) Converter Codigo em java para delphi

    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;
  8. 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+"!"); } }
  9. zoatv

    Gerar .exe a partir do meu Programa

    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.
  10. Boa noite tem como fazer operações com medidas de ângulos expressos em angulos, minutos e segundos? Obrigado
  11. 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;
  12. Bettega

    Dúvida com Array

    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.
  13. Guilherme Costa

    (Resolvido) Tabela do banco de dados

    eu tenho uma tabela no banco de dados. Até vou procurar mais na web pra ver se tem resposta. Mas eu preciso pegar todos os campos da tabela e jogar no formulário do delphi pra poder pegar os dados. Além disso tem que dizer qual o nome do campo da tabela. eu já vi isso mas não lembro como faz. obrigado, até logo.
  14. shiva4

    (Resolvido) Delphi Tokyo / Dbexpress

    Boa tarde. Instalei o Delphi Tokyo 64 bits Trial no Windows 10 Home, instalei tambem o Oracle 11G Express 64 bits. Quando tento usar o componente TsqlConnection do DbExpress ocorre o erro seguinte: - "dbx error: driver could not be properly initialized. client library may be missing, not installed properly, of the wrong version, or the driver may be missing from the system path".
  15. Boa Noite quando se clica no buton1 o programa carrega de forma aleatória uma imagem entre muitas de uma pasta, nesta pasta terá vários documentos de textos (bloco de notas) um para cada imagem fazendo a sua descrição. É possivel carregar a imagem de forma aleatória junto com o seu texto correspondente no MEMO ao mesmo tempo. Obrigado Estou usando o este código no programa Lazarus unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls, math; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Image1: TImage; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); //Não esqueçer de insirir Math no Uses se não dará erro e não funcionará var i : Integer; begin i := RandomRange(1,5); Case i of 2: Image1.Picture.LoadFromFile('flores\02.jpg'); 3: Image1.Picture.LoadFromFile('flores\03.jpg') ; 4: Image1.Picture.LoadFromFile('flores\04.jpg') ; end; end; end.
  16. Olá a todos. Estou com a seguinte duvida: Tenho este condigo para localizar um string especifica em um arquivo binário. procedure TForm3.Button1Click(Sender: TObject); var StStream: TStringStream; FStream: TFileStream; S, SDS : UnicodeString; begin FStream := TFileStream.Create('c:/file.bin', fmOpenRead); StStream := TStringStream.Create(''); StStream.CopyFrom(FStream, FStream.Size); SDS := StStream.DataString; try S := 'blablabla'; if Pos(S, SDS) > 0 then ListBox1.Items.Add(S); finally StStream.Free; FStream.Free; end; end; Mas o o problema é que: só localiza se eu souber o que procurar. Como faço para localizar strings em vários pontos do arquivo bin. Usando o seek() sei como localiza os pontos que quero ler, como ler as strings a partir destes pontos. Desde já agradeço.
  17. João victor dos santos

    (Resolvido) erro na hora da execução

    eai glr, beleza?eu to tendo um probleminha da execução de um programa. eu tenho um form com 18 botões e cada botão abre outro form diferente, so q quando ta chegando entre o 10 e o 11 da erro. os outros botões funcionam normalmente.ps: o erro q aparece é esse :" Project Project1.exe raised exception class EInvalidOperation with message ''''Cannot make a visible window modal''''. Process stopped. Use step or Run to continue. " " form1.hide;form 2.showModal; " uso esse pra abir outro form"form2.close;form1.showModal; " uso esse no outro form pra retornar ao menuto usando o mesmo comando eu todos os botões do menu, não to entendendo porque ele so ta dando erro no botão 10 e 11
  18. Bom dia estou encontrando dificuldades no Lazarus e agradeço desde de já a qualquer ajuda. Tenho alguns arquivo de textos txt em pastas diferentes, gostaria de saber como faço para juntar todos esses arquivos em um só, usando RadiosGroups com 6 itens cada e cada RadioGroup tem uma opção (nenhum)para desabilita-lo
  19. Olá estou com dificuldades as letras com acentos e alguns caracteres em português, ficam extranhas quando salvo no arquivo de texto. Acho que deva ser erro de codifição de caracteres, ou algum ajuste no programa Lazarus, agradeçido. procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; sl.Add(Memo1.Lines.Text); sl.Add(Memo2.Lines.Text); sl.Add(Memo3.Lines.Text); savedialog1.filename := 'alias.txt'; if savedialog1.execute then sl.SavetoFile(savedialog1.filename); sl.Free; end;
  20. almirrps

    Identificar tela modal no WebBrowser

    Fala galera! estou precisando de uma ajuda... Já pesquisei em vários sites, páginas e buscas e ainda não encontrei uma resposta. Tenho uma aplicação em Delphi que utiliza um webbrowser para fazer uma pesquisa num site. O problema é que durante a pesquisa, depois que disparo o click do botão 'Pesquisar', o site desabilita a página do site e coloca um gif em modal na frente até a pesquisa terminar e eu não estou conseguindo fazer o webbrowser identificar quando essa pesquisa terminou. Já tentei: while WebBrowser1.ReadyState < READYSTATE_COMPLETE do Application.ProcessMessages; Mas o webbrowser não reconhece esse gif modal como carregamento de página. Alguém tem alguma idéia?
  21. valSistemasDelphi

    (Resolvido) Informações No DbGrid

    Olá! é um problema simples mais, que até agora não encontrei solução e nem na internet. Tenho dois caixas em meu sistema, um para compras Rápidas e outro Para compras Maiores, todos os dados inclusive a abertura de caixa, são armazenados em uma Tabela, com a seguinte Descrição. 1º Descricao entrada dinheiro em preto. 2º Descrição Vendas em Azul. 3º Descrição saída em vermelho. E um button que ao ser clicando joga todos os valores correspondentes da tabela para seus determinados Edits. Quando faço uma venda no Determinado Caixa Rápido, ele cai na tabela como programado em azul> Indicando para o Usuário que em azul e as vendas. O problema é quando faço venda no outro caixa, ele cai na tabela em preto!! Assim não é feita a soma dos valores nem nada. Já no outro funciona de boa. O Código dos Dois Forms são os mesmos, não sei o que estou fazendo de errado. Desculpe se não fui muito claro..
  22. guga123

    (Resolvido) Dificuldade com FileExists

    Pessoal, não sei se alguém já teve esse problema que eu fou descrever aqui: procedure TBinaSismaster.cskBinaRead(Sender: TObject; Socket: TCustomWinSocket); Var vEventoBina: AnsiString; vArrayBina: TStringDynArray; vNome : string; vBina:TStringList; i: Integer; begin try vEventoBina := Socket.ReceiveText; if (Length(vEventoBina) >= Length(#13#10)) and (Copy(vEventoBina, Length(vEventoBina) - Length(#13#10) + 1,Length(#13#10)) = String(#13#10)) then vEventoBina := Copy(vEventoBina,1,Length(vEventoBina) - Length(#13#10));//Retira LineEnd vArrayBina := SplitString(String(vEventoBina),','); if vArrayBina[0] = '00' then begin vNome := ''; if LowerCase(dmUtils.getFromConfig('CONEXAO','Caminho dos dados')) = 'localhost' then vNome := '\\'+dmUtils.pubNomeComputador + '\Arquivos\Bina.xml' else vNome := '\\'+dmUtils.getFromConfig('CONEXAO','Caminho dos dados') + '\Arquivos\Bina.xml'; vBina := TStringList.Create; if not FileExists(vNome) then begin vBina.Add('<?xml version="1.0" encoding="ISO-8859-1"?>'); vBina.Add('<TAG>'); end else begin vBina.LoadFromFile(vNome); for I := 0 to vBina.Count-1 do begin if vBina[i] = '</TAG>' then begin vBina.Delete(i); Break; end; end; end; vBina.Add(' <BINA>'); vBina.Add(' <FONE>nº telefone</FONE>'); vBina.Add(' <DATA>data e hora da ligação</DATA>'); vBina.Add(' <ATEND>0</ATEND>'); vBina.Add(' </BINA>'); vBina.Add('</TAG>'); vBina.SaveToFile(vNome); end; except end; end; Essa rotina faz parte de um SERVIÇO que eu criei. Resumindo o que o serviço faz: - ele pode ser instalado em qualquer máquina da rede - ele vai ficar monitorando um socket com ip e porta predefinidos - ele socket recebe informação de um aparelho de bina. - quando ele detectar uma ligação, ele deverá inserir a ligação em um arquivo XML (que obrigatoriamente vai estar no servidor), para que qualquer máquina da rede consiga obter essa informação em qualquer momento e utilizá-la da forma que necessita (por motivo de projeto eu não posso guarda essa informação no banco de dados) quando eu rodo essa rotina criando/manipulando o arquivo na mesma máquina em que o serviço está instalado funciona perfeitamente mas seu eu tentar criar o arquivo em rede, a parte do fileExists nunca encontra arquivo, mesmo ele já existindo na máquina e na hora de salvar a alteração fica dando "File Access Denied". Já tentei literalmente tudo que veio na cabeça: - compratilhamento de pasta - permissões de segurança - mapeamento de rede - trocar o tipo do arquivo mas nada funciona. Alguém consegue me ajudar? Obrigado AVISO: Coloque o seu Tópico sobre dúvidas, no Forum de Delphi o Forum Tutoriais e Dicas deve ser usado somente para códigos prontos ou dicas de Delphi abraço
  23. Carlos Rocha

    Acessar FaxModem

    Boa Tarde! Então, estou em um dilema. Lembram daquelas plaquinhas de FAX Modem de 56kbps que usávamos para acessar a internet via linha discada? Então, tenho ela no meu NoteBook e no PC também. Estou criando uma aplicação que vai precisar acessar essa placa. Existe algum componente que faça isso? Por exemplo: ZeusTable: acessa uma tabela ____???__: acessa a placa! Alguém pode me instruir? Atualmente estou usando o Delphi na RAD Studio 2017!
  24. Helio Rios

    Não respondendo Mysql

    Bom dia. Tenho aplicação delphi xe8 acessando base da dados mysql innodb com dbexpress e tsqlconnection, até dia 22 de novembro estava funcionando tudo certo (a mais de dois anos) com mais de 30 usuários ao mesmo tempo em terminal server windows. Na noite do dia 22, se um usuário entra sozinho no sistema, funciona normalmente, mas se vários acessam ocorre a mensagem "não respondendo" e não conclui a gravação dos dados, travando o sistema. Estou apavorado, pois não localizo nada de errado. Instalado mysql padrão e são 14 lojas paradas desde dia 22. Obrigado
  25. valSistemasDelphi

    (Resolvido) SUBTRAÇÃO NO DBGRID

    Vasculhei a internet mais não achei nada que resolvesse meu problema! Tenho uma tabela que armazena, dados do caixa.. Como: " Saldo, Inicial Troco, Total De Valores De Entrada, Total Saídas no Caixa , Total Valores dinheiro sem Total Inicial, Total Final. Cada campo desse joga o determinado valor para o Determinado EDIT. Por exemplo. Saldo Inicial joga no Edit inicial e por ai adiante!!! Quero que no Total Final saia o valor atualizado do total Valores dinheiro , Entradas Menos Saídas... Não estou conseguindo resolver está Lógica.. Na maioria das vezes da o seguinte erro (is a valid floating point value); Espero que fui claro na minha pergunta....