Jhonas

então veja o link do post que te passei .... qual é a versão do seu Lazarus ?

se ocorreu erro no proprio bloco de notas, o problema não é do Lazarus e sim do Windows qual é a versão do seu windows ?

Agora, para tirar a dúvida ... crie um arquivo texto com o bloco de notas, e digite nele palavras acentuadas. Salve o arquivo e feche o arquivo. depois abra novamente e veja se não houve modificações na acentuação. depois, pelo programa, voce vai importar esse texto para um memo e vai me dizer se ocorreu alterações. voce tambem pode ver esse post ( Resolvido ) sobre esse assunto no Forum

agora, faça um teste simples ... coloque um Memo num Form e digte nele palavras acentuadas ( não importe de outro lugar ) veja se os acentos mudam na digitação ou somente quando voce executa o programa e informe

mostre como está sendo gravado o texto

use o Editor de PHP com Visualizador ... dessa maneira voce pode modificar o código e ver o resultado na sua tela, antes de trocar o código na página. https://www.google.com.br/search?source=hp&ei=TQJNWubAJMGzwASW6Ky4AQ&q=editor+de+php+com+visualizador&o que=editor+de+php&gs_l=psy-ab.1.3.0l9.1369.5573.0.11084.13.10.0.3.3.0.201.1178.0j8j1.9.0....0...1c.1.64.psy-ab..1.12.1218...0i131k1.0.0sQEFSUcnv0 abraço

Veja sobre o erro https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/cm_comp_types_xml.html&prev=search P2 := Val(Int(F)); F2 := Val(Frac(F)); OBS: o Val no código é variavel ou Procedure do delphi ? se for variavel não está definida na Function, e é de tipo incompatível se for procedure, está com a definição incorreta Delphi syntax: procedure Val(S; var V; var Code: Integer); ///Exemplo: uses Dialogs; var I, Code: Integer; begin { Get text from TEdit control } Val(Edit1.Text, I, Code); { Error during conversion to integer? } if Code <> 0 then MessageDlg('Error at position: ' + IntToStr(Code), mtWarning, [mbOk], 0, mbOk); else Canvas.TextOut(10, 10, 'Value = ' + IntToStr(I)); end; abraço

veja o arquivo DirectDraw.pas .... voce pode tentar substitui-lo pelo seu https://sourceforge.net/p/dxbx/svn/1625/tree/Source/Delphi/Libraries/DirectX9/DirectDraw.pas outra opção: trocar a versão do Directx9 https://sourceforge.net/projects/delphi-dx9sdk/files/OldFiles/FPC_DirectX92_05_08.zip/download abraço

Olá Danilo, verifique se é essa versão que voce esta instalando Essa versão é para o Delphi 7 https://downloads.sourceforge.net/project/dspack/dspack/DSPAck 2.31/DSPACK231.zip?r=https%3A%2F%2Fsourceforge.net%2Fprojects%2Fdspack%2F&ts=1513985354&use_mirror=ufpr Para o Delphi 2007 tem que ser essa https://code.google.com/archive/p/dspack/downloads OBS: Para a tela não ficar preta, o software da Camera não pode estar rodando, mas tem que estar instalado. ========================================== estou usando o componente dspack, e quando o software da camera está funcionando, no delphi fica uma tela preta. o componente VideoWindow1 necessita dos componentes FilterGraph1, SampleGrabber e o Filter para poder funcionar depois eu procuro um exemplo aqui e te passo abraço

Pessoal, me deparei com esse problema no meu PC, e na internet muitos comentários e sem a devida solução. Com relação ao Som , acontecia de estar normal no começo, mas depois ia picontando e algumas vezes até travava ( assistindo qualquer video do Yotube ) Num exame mais profundo com um software de diagnóstigo da placa mãe, percebi que quando a temperatura do meu HD chegava aos 51º Centígrados, começava a picotar o som... se a temperatura do HD ia subindo mais, ai começava a travar o som ( como um disco riscado que fica tocando a mesma parte do som ) e de lambuja travava tambem o windows. Se não tinha nenhum video ou som sendo executado pelo PC, após uns 3 minutos, aparecia um zumbido no alto-falante. ( para informação: zumbido em alto-falante corresponde a falta de aterramento ao massa ( terra ) devido a capacitores eletrolíticos com problemas ) Pois bem, num exame visual na placa mãe, percebi 4 capacitores eletrolíticos estufados 2 estavam entre os slots da placa de rede ( 1000 mf x 6,3 V ) 1 estava junto a base da placa da memória ( 1000 mf x 6,3 V ) 1 estava perto do slot da placa PCIEx ( 470 mf x 16 V ) OBS: os mesmos estavam com fuga http://www.newtoncbraga.com.br/index.php/instrumentacao/108-artigos-diversos/4994-ins233 Entretando a troca desses componentes não é fácil... Se tentar dessoldá-los da placa, voce corre o risco de seccionar as minusculas trilhas de cobre que ligam o componente e ai voce pode perder a placa mãe por imperícia. Para não correr esse risco, optei por cortar os terminais do capacitor rente ao componente sem dessoldar os terminais. então, pelo lado da solda, soldei os terminais do novo componente (( OBS: verifique a polaridade ( + ) e ( - ) nesse caso os componentes ficaram atras da placa mãe ( só faça isso se houver espaço para fixar a placa mãe ao gabinete ) Terminado o serviço e recolocado a placa mãe e feita as ligações, o som ficou perfeito e sem o zumbido no alto-falante. abraço

Voce não disse o que voce quer.... mostrar o código do exercício, ou quer que alguém verifique se está correto ??? abraço

exemplo: PROGRAM TRIANGULO ! Declaração de tipo variaveis REAL :: LADO_1, LADO_2, LADO_3, S, AREA WRITE(*,*) ’Este programa calcula’ WRITE(*,*) ’a area de um triangulo qualquer’ WRITE(*,*) WRITE(*,*) ’Escreva as longitudes dos lados’ WRITE(*,*) ’separados por virgula e tecle enter’ ! Leitura dos dados READ(*,*) LADO_1, LADO_2, LADO_3 ! Calculo auxiliar. S = 0.5 * (LADO_1 + LADO_2 + LADO_3) ! Calculo da area. AREA = SQRT(S*(S-LADO_1)*(S-LADO_2)*(S-LADO_3)) ! Impressão do resultado na Tela. WRITE(*,*) WRITE(*,"(A24),1X,F7.3") ’A area do triangulo é ’, AREA ! Finalização do Programa. END PROGRAM TRIANGULO ou veja esses links: https://aprovadonovestibular.com/como-calcular-area-e-perimetro-de-triangulo-–-matematica.html http://www.dsc.ufcg.edu.br/~icc/Periodo-2011.1/exemplos/exemplos_a.htm abraço

Se voce esta usando o mesmo código para os 2 Forms o resultado será o mesmo voce não acha que deveria haver alguma diferença entre eles ( Forms ) ? OBS: quando postar o código, coloque tambem em qual evento ele está. qual é a função do Form10 ??? use o break point do delphi nos 2 Forms para poder acompanhar os valores atribuidos abraço

se postar o código fica mais fácil ajudá-lo

exemplo: procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin ComboBox1.Clear; for i := 0 to 5 do ComboBox1.Items.Add('Item'+inttostr(i)); ComboBox1.Items.Add('Todos'); ComboBox1.Items.Move(ComboBox1.Items.IndexOf('Todos'),0); ComboBox1.ItemIndex := 0; end; OBS: nesse código, estou simulando que o Combobox foi populado com os seus dados da SQL. Depois foi adicionado mais um item ao Combobox chamado "Todos" Bastará então mover esse item ( "Todos" ) para a 1ª posição do Combobox abraço

O correto seria assim.... mas acho que o controle é mais complicado. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, Buttons, Grids, DBGrids, StdCtrls; type TForm1 = class(TForm) PageControl1: TPageControl; Button1: TButton; procedure Button1Click(Sender: TObject); function AddDBGrid( Controle : TPageControl; caption : string ) : TTabSheet; private { Private declarations } public { Public declarations } end; var Form1: TForm1; DBGrid : TDBGrid; contador : integer; implementation {$R *.dfm} function TForm1.AddDBGrid( Controle : TPageControl; caption : string ) : TTabSheet; var DBGrid : TDBGrid; begin Result := TTabSheet.Create(self); Result.PageControl := Controle; Result.Caption := caption; DBGrid := TDBGrid.Create(PageControl1); Result.Tag := Integer(DBGrid); DBGrid.Parent := Result; DBGrid.Font.Name := 'Courier New'; DBGrid.Font.Size := 10; DBGrid.Align := alClient; with DBGrid do begin Visible := True; DBGrid.Columns.Insert(0); DBGrid.Columns[0].FieldName:='Referente'; DBGrid.Columns[0].Title.Caption:='Referente'; DBGrid.Columns[0].Title.Alignment := taCenter; DBGrid.Columns[0].Title.Font.Style := [fsBold]; DBGrid.Columns[0].Width:=155; DBGrid.Columns.Insert(1); DBGrid.Columns[1].FieldName:='DescricaoPastor'; DBGrid.Columns[1].Title.Caption:='Igreja/Pastor'; DBGrid.Columns[1].Title.Alignment := taCenter; DBGrid.Columns[1].Title.Font.Style := [fsBold]; DBGrid.Columns[1].Width:=200; DBGrid.Columns.Insert(2); DBGrid.Columns[2].FieldName:='MesReferente'; DBGrid.Columns[2].Title.Caption:='Mês Ref.'; DBGrid.Columns[2].Title.Alignment := taCenter; DBGrid.Columns[2].Title.Font.Style := [fsBold]; DBGrid.Columns[2].Width:=65; DBGrid.Columns.Insert(3); DBGrid.Columns[3].FieldName:='DataDeposito'; DBGrid.Columns[3].Title.caption:='Data Dep.'; DBGrid.Columns[3].Title.Alignment := taCenter; DBGrid.Columns[3].Title.Font.Style := [fsBold]; DBGrid.Columns[3].Alignment := taRightJustify; DBGrid.Columns[3].Width:=65; DBGrid.Columns.Insert(4); DBGrid.Columns[4].FieldName:='ValorD'; DBGrid.Columns[4].Title.caption:='Valor'; DBGrid.Columns[4].Title.Alignment := taCenter; DBGrid.Columns[4].Title.Font.Style := [fsBold]; DBGrid.Columns[4].Alignment := taRightJustify; DBGrid.Columns[4].Width:=70; DBGrid.Columns.Insert(5); DBGrid.Columns[5].FieldName:='Comprovante'; DBGrid.Columns[5].Title.caption:='Nº Envelope'; DBGrid.Columns[5].Title.Alignment := taCenter; DBGrid.Columns[5].Title.Font.Style := [fsBold]; DBGrid.Columns[5].Alignment := taRightJustify; DBGrid.Columns[5].Width:=100; end; end; procedure TForm1.Button1Click(Sender: TObject); var Abas : TTabSheet; begin Inc(Contador); Abas := TTabSheet.Create(PageControl1); Abas.Caption := 'Aba '+IntToStr(Contador); Abas.Name := 'Aba'+IntToStr(Contador); AddDBGrid(PageControl1,Abas.Name); end; end. abraço

ok... então vamos dizer que tenha 10 pastores....seriam 10 DBGrids ? no mesmo Form ? voce poderia usar o PageControl para colocar um DBGrid em cada pagina ou poderia selecionar um Pastor em um DBCombobox e mostrar os dados dele no DBGrid existe realmente a necessidade de mostrar os dados em Grids separados ? monte no Form uma tela, idealizando como voce pensa que seria ... e depois poste no forum a imagem ... talvez eu possa te dar outras idéias.

Seja Bem Vindo ao Forum Se puder, contamos com a sua ajuda no Forum abraço

Veja se encontra esse tipo de fonte nas imagens, e entre no site para fazer o download da fonte https://www.google.com.br/search?q=fontes+de+letras&também=isch&tbo=u&source=univ&sa=X&ved=0ahUKEwidlrCam4zYAhVGQZAKHefED3UQsAQIOA&biw=1024&bih=610 abraço

Se voce quer criar DBGrids para mostrar tabelas diferentes, não é preciso fazer isso, basta colocar somente um DBGrid no Form e ir trocando as tabelas pelo link do DBGrid Entretanto, se voce definir corretamente a sua tabela, voce pode colocar na mesma tabela, igrejas com nomes diferentes, com nomes de pastores diferentes, e com as demais informações pertinentes a cada um deles.... esses dados poderão ser controlados por um código ou por algum outro identificador. Ai na pesquisa, voce traz para o DBGrid somente as informações de uma determinada Igreja ou Pastor. exempos de sistemas prontos https://www.google.com.br/search?ei=iNkzWvH5BsWiwgT9xpuQBA&q=sistema+integrado+de+igrejas+delphi&o que=sistema+integrado+de+igrejas+delphi&gs_l=psy-ab.3..33i22i29i30k1l6.5334.7238.0.10928.7.7.0.0.0.0.188.832.0j6.6.0....0...1c.1.64.psy-ab..1.6.826...0i22i30k1.0.mHZj_4IZ6p0 abraço

Mande uma MP para o Administrador https://www.scriptbrasil.com.br/forum/profile/1-script-brasil/ abraço

material para estudo http://www.1maginari0.art.br/wp-content/uploads/2015/03/Actionscript-3-Tutorial.pdf https://www.tutorialspoint.com/listtutorials/flash/actionscript/1 ou https://www.google.com.br/search?source=hp&ei=hHkyWrb4HMq_wATe-7iAAg&q=actionscript+tutorial&o que=action+script&gs_l=psy-ab.1.4.0i10k1l4j0i22i10i30k1l6.1788.11127.0.14302.13.12.0.1.1.0.130.1328.0j11.11.0....0...1c.1.64.psy-ab..1.12.1338...0j0i131k1j0i3k1.0.EQBg8JZIdqE abraço

ok.. nesse caso pode usá-los sem problemas abraço

Fiz um comentário sobre o Baidu, para que outros usuários não caiam nessa armadilha. Descobriram, recentemente, que os arquivos armazenados podem ser adulterados para encobrir o malware. Não só o novo arquivo armazenado e adulterado contém códigos maliciosos, como pode ficar invisível aos olhos de muitos antivírus. Os mais populares arquivos, que passaram a ser examinados minuciosamente, devido às recentes adulterações, são os .ZIP e .RAR. Outros formatos afetados podem também incluir os arquivos .GZ e .CAB. No entanto, eles detectam o arquivo comprimido ( .ZIP ) como virus, porque na base de dados dos antivirus eles constam como sendo virus, mas na verdade não são. Mas o vírus pode estar nos arquivos que estão dentro dele. Para evitar problemas, descompacte o arquivo zip no Drive D: e depois passe o antivirus nesse Drive. Com relação ao site de onde o arquivo foi baixado, verifique se voce não foi redirecionado para outro site, quando baixou o arquivo. abraço

Tive grandes problemas com o Baidu... a versão trial infecta o pc, se voce não comprar o produto depois de expirado o prazo de avaliação. Outra coisa é voce observar a extensão do arquivo que está indicando como sendo virus ( . ZIP ) Além disso, ele deixa o micro lento. Veja nesses links a quantidade de reclamações contra o Baidu https://www.google.com.br/search?source=hp&ei=-x8xWu3xG8mUwgTfrqD4Bg&q=reclamações+do+baidu&o que=reclamações+do+bai&gs_l=psy-ab.1.0.0i22i30k1l4.1237.4920.0.8116.18.18.0.0.0.0.258.2162.0j13j2.15.0....0...1.1.64.psy-ab..3.15.2156...0j0i131k1.0.4rtIdPN0VXY Prefira usar um Firewall ( Zone Alarm ) que além de ficar monitorando todos os programas em uso, tambem monitora aqueles que foram instalados sem o seu consentimento, e bloqueia todas as tentativas de invasão mostrando o IP do invasor Através dele, voce fica sabendo exatamente o caminho onde ele ( programa malicioso ) esta instalado, ficando mais facil a sua remoção. abraço