Pesquisar na Comunidade

Alguém teria uma solução melhor ou poderia me ajudar a acabar esse código que estou tendo problema em modificar algumas das possibilidades sem que interfira nas outras possibilidades: Preciso que valores do edit1 sejam corrigidos para o edit2, serão valores numéricos. caso o valor seja: 45,12 ou 45.12 o sistema mantem o ponto ou a virgula dependendo como foi digitado. se os valores forem maiores exemplo: 1,125,12 ou 1.125.12 o sistema limpe as milhares '.' ou ',' e mantenha somente os centavos. 1125,12 ou 1125.12 dependendo de como foi digitado. as possibilidades do usuário digitar são: x , xxx, xx x . xxx . xx x, xxx . xx x . xxx , xx xx , xx xx . xx ou valores maiores na casa de milhões, mas se conseguir na casa dos 100.000,00 já esta bom. meu Código: var Form1: TForm1; count,count2,r:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var VLR:string; i:integer; begin vlr:=Edit1.Text; for i:=1 to Length(vlr) do if vlr[i]=',' then Count:=Count+1; Label1.Caption:=IntToStr(Count); if count >= 2 then begin for i:=1 to Length(vlr) do if vlr[i]=',' then break; ///Delete(vlr,i,1); Delete(vlr,i,1); Edit2.Text := vlr; //Count:=0; end; for i:=1 to Length(vlr) do if vlr[i]='.' then Count2:=Count2+1; Label1.Caption:=IntToStr(Count2); if (count = 1) and (count2 = 1) then begin for i:=1 to Length(vlr) do if vlr[i]='.' then break; ///Delete(vlr,i,1); Delete(vlr,i,1); Edit2.Text := vlr; end; count:=0; Count2:=0; for i:=1 to Length(vlr) do if vlr[i]=',' then Count:=Count+1; Label1.Caption:=IntToStr(Count); for i:=1 to Length(vlr) do if vlr[i]='.' then Count2:=Count2+1; Label1.Caption:=IntToStr(Count2); if (count = 1) or (count2 = 1) then begin Edit2.Text := vlr; count:=0; Count2:=0; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Count:=0; count2:=0; r:=0; end; Não esta completo, quando eu tento para corrigir x,xxx.xx acaba interferindo em alguma outra correção.

Saudações Alguém pode me ajudar de como faço para concatenar numa contagem sequencial de todos os dias do ano uqe é apresentado num memo, e somente a cada virada de ano concatenar data completa + o ano inicial de cada virada? MEMO 1° ano 01/01/2020 + 2020 02/01/2020 03/01/2020 04/01/2020 .......... até 31/12/2020 2° ano 01/01/2021 + 2021 02/01/2021 03/01/2021 04/01/2021 .......... até 31/12/2021 3º ano 01/01/2022 + 2022 02/01/2022 03/01/2022 04/01/2022 .......... até 31/12/2022 ......................

Bom Dia, saudações Tenho que repetir muitas vezes essas instruções só mudo o nome das variáveis fica meio repetitivo ficar digitando copy(MaskEditY.Text,0,2)... E o dia mês e ano, não é o atual ou do sistema é de qualquer data dia := copy(MaskEdit1.Text, 0, 2); mes := copy(MaskEdit1.Text, 4, 2); ano := copy(MaskEdit1.Text, 0, 4); Então criei essas 3 funções pra se resolve um pouco //............................................... Pega dia mes e ano de uma string no formato dd/mm/aaaa e transforma em variáveis function PegarDia(dia:String):String; var a:String; begin dia:= copy(dia,0, 2); Result:=dia; end; function PegarMes(mes:String):String; var a:String; begin mes:= copy(mes,4, 2); Result:=mes; end; function PegarAno(ano:String):String; var a:String; begin Ano:= copy(ano,7, 4); Result:=ano; end; { Exemplo: no MaskEdit1 = 27/10/2020 ShowMessage(Pegardia(MaskEdit1.Text)); resultado = 27 ShowMessage(PegarMes(MaskEdit1.Text)); resultado = 10 ShowMessage(PegarAno(MaskEdit1.Text)); resultado = 2020 } Gostaria de saber se tem jeito de juntar essas 3 funções e pegar e liberar as 3 variáveis pra poder ser usado , chamando apenas uma função? Obrigado

Olá pessoal, saudações tenho 10 memos (aqui coloquei só 5 memos pra exemplificar) todos os memos possui 100 linhas cada um e todas as palavras já estão quebradas como no exemplo abaixo , preciso juntar e concatenar todas as linhas da mesma ordem de linha crescente de cada memo até chegar na ultima linha 100, exibir no último memo no caso o memo6, agradecido. memo1 (esse memo pega o ano do edit incrementa até 100) 1970 1971 1972 1973 memo2 palavraA1 palavraA2 palavraA3 palavraA4 memo3 palavraB1 palavraB2 palavraB3 palavraB4 memo4 palavraC1 palavraC2 palavraC3 palavraC4 memo5 palavraD1 palavraD2 palavraD3 palavraD4 memo6 Resultado no memo 6 seria juntar os textos dos 5 memos nele ------------------------------------- 1970 palavraA1 palavraB1 palavraC1 palavraD1 1971 palavraA2 palavraB2 palavraC2 palavraD2 1972 palavraA3 palavraB3 palavraC3 palavraD3 1973 palavraA4 palavraB4 palavraC4 palavraD4 ....................................... ....................................... .......................................

Saudações Alguém poderia me informar se é possivel, dois TMemo um ao lado da outra, ambas com a mesmas dimensões e mesma quantidade de linhas , Atuar em conjunto os dois ScrollBars (ScrollBars:= ssVertical) de ambas ao mesmo tempo, enquanto o mouse manualmente movimenta para cima ou para baixo na barra vertical deslizante de qualquer um dos TMemo?

Quebra de strings Saudações a todos Usando a procedure abaixo, gostaria de pegar N variaveis ,s1,s2,s3..... que vai vir do edit, pra poder usar ela em outros lugares , mas não sei quantas variaveis terá pela dependência do que estiver escrito no edit pra mais ou prá menso para dar a quebras. Mas se o edit estiver vazio, ou não tiver quebras suficientes pra preenceher qualquer uma das variaveis S1,S2 .... ou nenhumas delas, conto com a juda de vocês para uma orientação do que poderia ser feito pra não dar erro de execução ou mensagem de erro no programa, Agradeçido Procedure Quebra( Input: String; Separador: String; Var ListString: AStrings ); Var Resultado: TStringList; idLst: Integer; Begin // Previne que exista elementos maiores que Resultado.Count // uma vez que se trata de variável externa. SetLength( ListString, 0 ); Resultado := TStringList.Create; Try // Possibilita que seja utilizada uma sequencia de caracteres como delimitador Resultado.Text := StringReplace( Input, Separador, #13#10, [ rfReplaceAll ] ); // Define novo tamanho para a matriz SetLength( ListString, Resultado.Count ); For idLst := 0 To Pred( Resultado.Count ) Do ListString[ idLst ] := Resultado[ idLst ]; Finally Resultado.Free; End; End; procedure TForm1.Button1Click(Sender: TObject); Var aTexto: aStrings; s1,s2,s3,s4,s5...... :string; Begin Quebra( Edit1.Text , ' ', aTexto ); s1:= aTexto[ 0 ]; s2:= aTexto[ 1 ]; s3:= aTexto[ 2 ]; .......... End;

Ola amigos.Ainda levando uma surra com SQL. Então fui por outro caminho. procedureTfrmPrincipal.BotaoCalcularClick(Sender: Tobject); begin vvalor:=0; vtotDespesa:=0; vmes:=frmPiricipal.ComboMes.Text; // aqui seleciono o mes vano:=frmPrincipal.ComboAno.Text; // aqui seleciono o ano vItem:=frmPrincipal.ComboItem.Text; frmPrincipal.IBTableDebito.First; while not (frmPrincipal.IBTableDebito.Eof)do begin if(frmPrincipal.IBTableDebito.Locate ('MES; ANO; ITEM', varArrayof([vmes, vano, vitem]),[]))then // Aqui ele encontra a linha que tem o item Valor (string) begin vvalor:=srttofloat(frmPrincipal.IBTableDebito.FieldByName('VALOR').asString); vtotDespesa:=vtotDespesa+vvalor; EditSoma.Text:=floattostr(vtotDespesa); frmPrincipal.IBTableDebito.Next; end; end; end; A idéia é ir para o começo do banco de dados e usar um while para varrer a soma (campo Valor) definida pelo MES, ANO e ITEM, ate o final da tabelaPor exemplo, seleciono o mes (janeiro), o Ano (2019) o Item (farmacia, por exemplo). Ele vai ate o final e mostra o mvalor durante o mes, quanto foi gasto de farmacia. So que não está funcionando bem... So le a primeira linha e fica pulando do while para o If locate, incessantemente (só haviam 3 registros para ler)Alguma santa alma pode ajudar... Acho que isso fnciona, mas deve ter algum erro aí nessas linhas e não encontro onde

Olá pessoal, preciso de uma ajuda implementar essa funcionalidade mas não sei qual melhor solução e nem de como fazer isso Por exemplo eu tenho e tenho valor conhecido (constante), e um numero varíavel com n quantidades de algarismos preciso somar esse valor conhecido, com cada algarismo dessa variavel e pegar o resultado de cada soma, de forma automático e mostar no memo Por exemplo se o valor conhecido = 3 e a variável = 1297 operação a ser realizada 3+ 1 = 4 3 + 2 = 5 3 + 9 =12 3+ 7 = 10 resultado no memo 4 5 12 10 ------------ Agradecido

Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com

Soluções em biometria para leitor Nitgen e Catracas Biométricas para desenvolvedores vb.net implementamos biometria em seu projeto de controle de ponto.. saiba mais sobre nossas soluções em http://geovanny-oliveira16.wix.com/khronostecnologia Acesse nosso canal no youtube e saiba mais sobre nosso módulo para desenvolvedor em biometria https://www.youtube.com/watch?v=YH318BNCV6E Giovanny Oliveira Skype:Giovanny 0113 Correio Eletrônico:geovanny_oliveira16@hotmail.com