Pesquisar na Comunidade

Olá Galera. Vocês me recomendam alguma hospedagem online que seja gratuita para que eu possa testar em meus sistemas? Acho que terei mais respostas relacionadas a C++ do que a Lazarus pois a Comunidade de C++ é maior, mas enfim, estou aberto a sugestões🙂🙂

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);

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

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

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;

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

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.

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+"!"); } }

Boa noite tem como fazer operações com medidas de ângulos expressos em angulos, minutos e segundos? Obrigado

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;

Estou desenvolvendo um tocador de MP3 para Linux: unit uMusica; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons; type { TForm1 } TForm1 = class(TForm) BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; OpenDialog1: TOpenDialog; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; Player:OleVariant; implementation {$R *.lfm} { TForm1 } procedure TForm1.BitBtn1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Player:=OleVariant('vlc'); Player.url:=Olevariant(UTF8Decode(OpenDialog1.FileName)); end; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin Player.Controls.Play; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin Player.Controls.Pause; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin Player.Controls.Stop; end; end. Erro no programa: Project ProjetoMusica raised exception class 'External: SIGSEGV'.

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.

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

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;

Saudações a todos, Está acontecendo algo estranho com o programa que estou fazendo. Recentemente estou tendo problemas com a acentuação que em vez do acento aparece "?". O texto digitado no caption fica normal. Mas as mensagens no showmessage e MessageDlg e até a caption de um groupbox escrita em execução, os acentos são trocados por "?". O interessante que não é todos os formulários. Só alguns! O que pode ser isso?

Bom noite, pessoal, eu estou gravando algumas vídeo aulas e estou disponibilizando no youtube, no momento são duas listas de reprodução, uma que auxilia na instalação e configuração do ambiente de desenvolvimento em varias distribuições linux e no windows também e outra ensinando a desenvolver o projeto, as videos do Desenvolvendo um site completo ainda não estão todas prontas, mas já são 19 vídeo aulas que auxiliam na inicialização do projeto, não é um projeto complexo, mas que da uma boa noção de como desenvolver web com FPC, vou postar a cada semana mais 5 ou 6 novas aulas, em torno de uma por dia. Segue abaixo o link das duas listas de reprodução. Ultima aula: Montando o ambiente de desenvolvimento Desenvolvendo um site completo com Lazarus/Freepascal/Brookframework Acompanhe e inscreva-se no canal. Att Anderson Junior http://www.youtube.com/watch?v=qzSLeiqUDUU&list=PLeVT2ZKyNYQ7p_k7FlUsflcKlRKlpj7Zk