Jhonas

Monitores
  • Content Count

    9504
  • Joined

Community Reputation

0 Neutro

About Jhonas

Perfil

  • Gender
    Male
  • Location
    São Paulo

Recent Profile Visitors

24056 profile views
  1. Tipo de arquivo Minecraft Data File Desenvolvedor Mojang Specifications Categoria Arquivos do Jogo Formato Binary .DAT Um arquivo DAT é um arquivo de dados usado pelo Minecraft, um jogo de exploração e construção em 3D. Ele é salvo em um formato Gzip compactado e pode salvar vários tipos de dados, incluindo inventário do jogador, posição do jogador e informações do mundo. Os arquivos DAT são usados para salvar informações de estado mundial, bem como para acompanhar o progresso do jogador. Mais informação: Os arquivos DAT também foram usados para armazenar "pedaços" de nível, que são pequenos pedaços de mapas carregados sob demanda enquanto um jogador navega pelo mundo. Este formato foi introduzido a partir da versão do Minecraft Infdev, e os blocos usaram uma dimensão de mapa de 16 x 16 x 128. Começando com a versão beta do Minecraft versão 1.3, um novo formato chamado "Region" foi introduzido, que armazena pedaços com a extensão .MCR . Posteriormente, o formato .MCA , chamado "Anvil", foi introduzido com o patch 1.2.1. Os arquivos Minecraft DAT usaram formatos diferentes em versões incrementais do jogo. Portanto, um arquivo DAT de uma versão do jogo pode não ser compatível com outra versão. NOTA: O Minecraft é um jogo em perspectiva na qual os jogadores constroem e destroem blocos e evitam monstros em um ambiente 3D. O Minecraft Server é um programa Java que é executado como uma interface de linha de comando. Common DAT Filenames level.dat - O arquivo de dados do Minecraft armazenando informações do mundo, como o player, o gerador de nível usado e a hora do dia. Programas que abrem arquivos DAT Windows: Mojang Minecraft NBTExplorer INVedit Linux: Mojang Minecraft NBTExplorer Macintosh: Mojang Minecraft NBTExplorer MCPlayerEdit abraço
  2. Ok ... mas observe os dias dos meses seguintes ( o dia que está selecionado ... exemplo: 31 de janeiro para o dia 28 de Fevereiro 28 de Fevereiro para o dia 31 de Março 31 de Março para o dia 30 de Abril o código a seguir, soluciona esse problema ... se quiser usá-lo var Form1: TForm1; dd : integer = 0; dia : integer = 0; implementation {$R *.dfm} procedure TForm1.ScrollBar1Change(Sender: TObject); begin if ScrollBar1.Position=1 Then Panel1.Caption:='Janeiro' Else if ScrollBar1.Position=2 Then Panel1.Caption:='Fevereiro' Else if ScrollBar1.Position=3 Then Panel1.Caption:='Março' Else if ScrollBar1.Position=4 Then Panel1.Caption:='Abril' Else if ScrollBar1.Position= 5 Then Panel1.Caption:='Maio' Else if ScrollBar1.Position=6 Then Panel1.Caption:='Junho' Else if ScrollBar1.Position=7 Then Panel1.Caption:='Julho' Else if ScrollBar1.Position=8 Then Panel1.Caption:='Agosto' Else if ScrollBar1.Position=9 Then Panel1.Caption:='Setembro' Else if ScrollBar1.Position=10 Then Panel1.Caption:='Outubro' Else if ScrollBar1.Position=11 Then Panel1.Caption:='Novembro' Else if ScrollBar1.Position=12 Then Panel1.Caption:='Dezembro'; if ScrollBar1.Position=13 Then begin ScrollBar1.Position:=1; Calendar1.Year := Calendar1.Year+1; end; if ScrollBar1.Position=0 Then begin ScrollBar1.Position:=12; Calendar1.Year := Calendar1.Year-1; end; case ScrollBar1.Position of 2 : case Calendar1.Day of 29: Calendar1.Day := Calendar1.Day-1; 30: Calendar1.Day := Calendar1.Day-2; 31: Calendar1.Day := Calendar1.Day-3; end; 4,6,9,11 : case Calendar1.Day of 31: Calendar1.Day := Calendar1.Day-1; end; end; Calendar1.Month:=ScrollBar1.Position; Panel3.Caption:= inttostr(Calendar1.Year); case Calendar1.Month of 4,6,9,11 : Calendar1.Day := dia; 1,3,5,7,8,10,12 : Calendar1.Day := dia; end; end; procedure TForm1.Calendar1Click(Sender: TObject); begin if dd = 0 then begin dia := Calendar1.Day; dd := 1; end; end; procedure TForm1.Calendar1Exit(Sender: TObject); begin if dd = 1 then dia := Calendar1.Day; dd := 0; end; abraço
  3. Acho que é isso que voce está querendo fazer procedure TForm1.ScrollBar1Change(Sender: TObject); begin if ScrollBar1.Position=1 Then Panel1.Caption:='Janeiro' Else if ScrollBar1.Position=2 Then Panel1.Caption:='Fevereiro' Else if ScrollBar1.Position=3 Then Panel1.Caption:='Março' Else if ScrollBar1.Position=4 Then Panel1.Caption:='Abril' Else if ScrollBar1.Position= 5 Then Panel1.Caption:='Maio' Else if ScrollBar1.Position=6 Then Panel1.Caption:='Junho' Else if ScrollBar1.Position=7 Then Panel1.Caption:='Julho' Else if ScrollBar1.Position=8 Then Panel1.Caption:='Agosto' Else if ScrollBar1.Position=9 Then Panel1.Caption:='Setembro' Else if ScrollBar1.Position=10 Then Panel1.Caption:='Outubro' Else if ScrollBar1.Position=11 Then Panel1.Caption:='Novembro' Else if ScrollBar1.Position=12 Then Panel1.Caption:='Dezembro'; if ScrollBar1.Position=13 Then begin ScrollBar1.Position:=1; Calendar1.Year := Calendar1.Year+1; end; if ScrollBar1.Position=0 Then begin ScrollBar1.Position:=12; Calendar1.Year := Calendar1.Year-1; end; Calendar1.Month:=ScrollBar1.Position; Panel3.Caption:= inttostr(Calendar1.Year); end; abraço
  4. Voce não respondeu a minha pergunta.... O erro ocorre nessas linhas ? Calendar1.Month:=ScrollBar1.Position; Calendar1.Year:=StrToInt(Panel3.Caption); "Argumento inválido para codificação de data". significa que voce esta tentanto atribuir um valor invalido para a data
  5. Erro: "Argumento inválido para codificação de data". O erro ocorre nessas linhas ? Calendar1.Month:=ScrollBar1.Position; Calendar1.Year:=StrToInt(Panel3.Caption);
  6. voce pode abrir um documento no word, procurar pelo texto que voce quer, modificar e depois salvar as alterações http://www.planetadelphi.com.br/dica/4808/abrir-word-trocar-strings-no-documento pode tambem o ( OpenDialog1 ) para procurar no disco o aqruivo, abri-lo e fazer as modificações nele e depois salva-lo http://maikelscheid.blogspot.com/2009/03/abrindo-documentos-word-no-delphi.html depois voce deve procurar o texto ( palavra ou outra coisa ) no documento, usando o comano ( Find ) exemplo no link que te passei para alterar atributos de texto ( cor, letra, fonte ... etc ) voce tera que usar comandos do word dentro do delphi. https://www.google.com.br/search?ei=gQlTXbvmN_S_5OUP7OmUsA0&q=alterar+cor+do+texto+word+delphi&o que=alterar+cor+do+texto+word+delphi&gs_l=psy-ab.3...1358.93924..94260...0.0..1.458.5414.0j29j2j0j1......0....1..gws-wiz.......0i71j0i67j0i131j0j0i22i30j0i22i10i30j33i22i29i30.u7ZFpGa9vUM&ved=0ahUKEwj7qsrexIDkAhX0H7kGHew0BdYQ4dUDCAo&uact=5 OBS: como te falei, tem muitos exemplos na net ( inclusive video-aulas mostrando como fazer ) http://www.theclub.com.br/restrito/revistas/201309/mani1309.aspx abraço
  7. Só que voce ainda não explicou se o relatório no word já existe ou é criado em tempo de execução ... outra dúvida: porque o resultado tem que ser em um documento do word ? Não poderia ser em um relatório do Delphi ( QuickReport ) ?
  8. esse link que te passei tem isso https://www.devmedia.com.br/forum/delphi-word-escrever-texto-colorido/198608 ou voce esta querendo abrir um documento no word e pelo delphi procurar uma parte do texto ?
  9. tem varios exemplos na Internet https://www.google.com.br/search?ei=9PdRXZ3pNP655OUP_6S_sAI&q=manipular+cor+de+texto+word+com+delphi&o que=manipular+cor+de+texto+word+com+delphi&gs_l=psy-ab.3...24694.29142..30088...0.0..0.190.2106.0j13......0....1..gws-wiz.......0i71j0i13.9OOil16kMKg&ved=0ahUKEwids5Duv_7jAhX-HLkGHX_SDyYQ4dUDCAo&uact=5 abraço
  10. File not found: 'wwdbdatetimepicker.dcu' Voce está usando o componente twwdbdatetimepicker que não foi encontrado na library ( biblioteca ) do Delphi Se voce tiver o componente deve instalar no delphi ou veja na net https://pt.freedownloadmanager.org/Windows-PC/InfoPower-Studio-2011-for-Delphi-XE-and-Delphi-2010.html abraço
  11. Sua tabela deve estar ordenada por mes, ano e item para que funcione veja a modificação no código 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; if(frmPrincipal.IBTableDebito.Locate ('MES; ANO; ITEM', varArrayof([vmes, vano, vitem]),[]))then // Aqui ele encontra a linha que tem o item Valor (string) begin while not (frmPrincipal.IBTableDebito.Eof)do begin vvalor:=srttofloat(frmPrincipal.IBTableDebito.FieldByName('VALOR').asString); vtotDespesa:=vtotDespesa+vvalor; EditSoma.Text:=floattostr(vtotDespesa); if frmPrincipal.IBTableDebito.FieldByName('ITEM').asString <> vItem then exit; frmPrincipal.IBTableDebito.Next; end; end; end; abraço
  12. exemplo: select SUM( ENTRADA ) as Entradas from SUA_TABELA select SUM( SAIDA ) as Saidas from SUA_TABELA select SUM( ENTRADA + SAIDA ) as Total from SUA_TABELA abraço
  13. To usando a função "SUM", mais não dá certo a soma.. [SUM(<frxDBDataset1."VALOR">,MasterData1)] Estes valores estão no Banco de Dados Como "String" VarChar!!! O seu erro é justamente por definir valores como string basta voce alterar o tipo desse dado para numerico que a função SUM funciona abraço
  14. Exemplo: http://www.bosontreinamentos.com.br/mysql/mysql-between-selecao-de-intervalos-em-consultas-21/ SELECT * FROM TABELA WHERE Data BETWEEN DateTimePicker1.Date AND DateTimePicker2.Date abraço
  15. Jhonas

    Calcular Idade

    Tente esse link do forum https://forum.scriptbrasil.com.br/topic/53165-diferença-entre-datas-anos-meses-e-dias/ e esse do google https://www.google.com.br/search?ei=ReY4XeDSBZD85gLEpZb4Aw&q=delphi+calcular+tempo+decorrido+ano+mes+dia&o que=delphi+calcular+tempo+decorrido+ano+mes+dia&gs_l=psy-ab.3..33i160.16462.21520..22248...0.0..0.366.3292.2-9j3......0....1..gws-wiz.......0i22i30.Yh48m0brclE&ved=0ahUKEwigiY-9187jAhUQvlkKHcSSBT8Q4dUDCAo&uact=5 abraço