Jhonas

O link não funciona porque existe um código que verifica uma condição especifica dentro da propria pagina da UOL, não deixando que acessos externos sejam efetivados. ou seja, só aceita se estiver linkado na propria pagina abraço

Tem muito material na Net http://www.cs.mtu.edu/~shene/COURSES/cs201...ES/fortran.html http://www-teaching.physics.ox.ac.uk/unix+...ve/tutorial_90/ http://www.cisl.ucar.edu/tcg/consweb/Fortr...l/tutorial.html http://grdelin.phy.hr/~ivo/Nastava/Numeric...n90Tutorial.pdf http://www.fortran.com/tutorials.html abraço

Tutorial sobre LISP http://www.dca.ufrn.br/~adelardo/lisp/ abraço

http://www.2w.com.br/contador-de-visitas-acessos-gratis.html abraço

Veja este artigo http://www.enq.ufrgs.br/cursos/pos/MetNumI...tran_Filesl.doc abraço

http://www.nrbook.com/a/bookf90pdf.php http://astronu.jinr.ru/wiki/upload/e/ef/Nu...ecipesinF90.pdf abraço

linha 32: var strDllDirectory = new ActiveXObject("Scripting.FileSystemObject").GetAbsolutepathname(MsgPlus.ScriptFilesPath + "\\..\\..\\Scripts_DLLs"); Esse erro é causado por atualizações ( KBs ) da microsoft que alteram as diretivas de configurações do windows... neste caso especifico ele não encontra mais o caminho do diretório onde se encontram as dlls abraço

média aritmética ponderada program medias; var a, b, c, media: real; begin writeln('Digite 3 valores: '); readln(a,b,c); if (a>=b) and (a>=c) then media := a * 0.5 + b * 0.25 + c * 0.25; if (b>=a) and (b>=c) then media := a * 0.25 + b* 0.5 + c * 0.25; if (c>=a) and (c>=b) then media := a * 0.25 + b * 0.25 + c * 0.5; if (a=b) and (a=c) then media := a; writeln('Media Ponderada: ', media); end. outros exemplos: http://www.uri.br/~preuss/lp1ex1a8.html ----------------------------------------------- Resposta da pergunta 2 program PesqBin; var menor,maior,meio,c : integer; opcao: char; begin menor:=0; maior:= 1000000; c:= 0; repeat c:=c+1; meio:=(maior+menor)div 2; clrscr; begin gotoxy(4,14); writeln('Pense em um número de 1 a 1000000'); gotoxy(4,15); writeln('Vou adivinhar o número...'); gotoxy(1,18); writeln('O número é maior que ',meio,'?(s/n)'); readln(opcao); if (opcao='s') then menor:=meio+1; if (opcao='n') then maior:=meio; if maior<=menor then begin meio:=(maior+menor)div 2; end; until (menor=maior); writeln('O número que você pensou é ',meio,'!'); writeln('Foram feitas ',c,' perguntas.'); end. abraço

Veja este tutorial http://www.krull.com.br/geo/prog/asm/tut02pt.htm abraço

OBS: O erro é de indice e não de memória preco_int = conteudo[2] // o numero 2 do indice não correponde a lista abraço

Componentes Prontos para TEF http://acbr.sourceforge.net/drupal/ abraço

Exemplos: http://www.de9.ime.eb.br/~cgmello/ic/3-Pascal.ppt#29 http://members.fortunecity.com/denpa/pascal.html abraço

Faça uma pesquisa no forum Tópicos relacionados ao assunto http://scriptbrasil.com.br/forum/index.php...mp;highlite=ocx ou faça uma pesquisa no Google http://translate.google.com.br/translate_s...ved=0CDYQ_wEwCg abraço

Veja nestes endereços: http://w3.impa.br/~rbs/pdf/algI.pdf http://pt.wikipedia.org/wiki/Algoritmo_de_Prim http://pt.wikipedia.org/wiki/Algoritmo_de_Dijkstra http://www.vclcomponents.com/s/0__/dijkstr...r_shortest_path http://www.daniweb.com/forums/thread122812.html http://www.efg2.com/Lab/Library/Delphi/Algorithms/index.html http://translate.google.com.br/translate?h...%3Dpt%26tl%3Den abraço

se aumentar o tamanho das imagens na ImageList, que está associado ao ActionList, que por conseguinte é o "patrão" dos ToolButons, o tamanho dos mesmos é alterado tambem mas se quiser apenas destacar o botão tente ToolButton1.Marked := true; abraço

Faça impressão direta de linhas em branco para o tamanho do salto que deseja no papel da bobina abraço

Já expirementou definir o IndexFieldNames antes de dar o comando Open ? abraço

Eu não entendi bem o que voce esta querendo, mas o correto é trabalhar com o conteudo dos indices ( Item e Subitem ) e não com os valores dos proprios indices https://www.scriptbrasil.com.br/forum/lofiv...hp/t107937.html abraço

No help do delphi voce encontraria abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=546223 http://scriptbrasil.com.br/forum/index.php...st&p=525800 abraço

O Items[?] são as linhas. O SubItems[?] são as colunas. Não tenho certeza, mas tente // numero da linha do listview Edit1.Text := inttostr(ListView1.Selected.Index); // numero da coluna do listview Edit2.Text := inttostr(ListView1.Selected.ListView.Column[Listview1.ItemFocused.Index].Index); abraço

Voce fez o download dos códigos fontes ??? http://maxxdelphisite.free.fr/dn.php3?id=25 OBS: voce pode olhar os códigos fontes e pode tentar dar uma melhorada no jogo se quiser abraço

Ou então tente com este componente http://www.vclcomponents.com/Delphi/Common..._Edit-info.html abraço

A atualização dos dados na rede se faz atraves do comando Commit Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=546491 OBS: SQL : select * from REGISTROS quando vai ativar=true da o erro. O unico motivo de não encontrar a tabela é se ela não existe ou não esta encontrando o caminho para o banco de dados abraço

Manoel não é tão dificil fazer a mudança Veja: procedure TForm1.FormActivate(Sender: TObject); var i : Integer; begin // limpar e desabilitar os Edits for i := 0 to ComponentCount -1 do begin if Components[i] is TEdit then begin TEdit(Components[i]).Clear; TEdit(Components[i]).Enabled := false; end; end; end; procedure TForm1.CheckListBox1Click(Sender: TObject); var i : Integer; begin // Verificar os itens não checados do CheckListBox e desabilitar os Edits correspondentes for i := 0 to ComponentCount -1 do begin if Components[i] is TCheckListBox then begin if TCheckListBox(Components[i]).Checked[CheckListBox1.ItemIndex] = false then begin case CheckListBox1.ItemIndex of 0 : Edit1.Enabled := false; 1 : Edit2.Enabled := false; 2 : Edit3.Enabled := false; end; end; end; end; // Verificar qual item do CheckListBox foi clicado e habilitar o Edit correspondente if CheckListBox1.Checked[CheckListBox1.ItemIndex] then begin case CheckListBox1.ItemIndex of 0 : begin Edit1.Enabled := true; Edit1.SetFocus; end; 1 : begin Edit2.Enabled := true; Edit2.SetFocus; end; 2 : begin Edit3.Enabled := true; Edit3.SetFocus; end; end; end; end; abraço