halakaluf

Man, Pra você não ter que traduzir tudo tem um livro chamado Turbo pascal 7(so não sei o nome do autor), que tem todos os erro do pascal em portugues, e ainda divididos por tipo como erro de compilação erros de execução. Tudo lá e so procurar o livro!!! Espero ter ajudado!!!

Man vo tentar te ajudar Não vou dar nenhuma aula como o Willian fez mas... vo te passa uma declaração de uma class: Type tprodutos = Class empresa1:ARRAY[1..3] of produto; {variavel da classe} cont:integer; {variavel da classe} empresa,ramo:string; {variavel da classe} Constructor create(emp,ra:string); {metodo da classe o que cria a classe} function addproduto(prod:produto; var obj:tprodutos):integer; {metodo} function darpreco(no:string):real; {metodo} end; OBS: os metodos quem escolhe e o programador, e as variaves tb os unicos metodos que toda classe tem são o create e free o create serve para criar o objeto e o free destroi o objeto. Espero ter ajudado!!!

man não sei se e isso que você quer saber mas vo tentar!! O Crt é uma unidade (unit) uma coleção de declarações de constantes, tipos, variáveis, funções e procedimentos, compilada separadamente. E o clrscr é uma função que esta localizada na unit crt que limpa a tela ou seja apaga tudo que tem na tela. Espero ter ajudado.

Ae brigado era isso mesmo!!

Oi gente, eu sou novo no delphi por isso a minha duvida pode ser meio boba para a maioria de vocês. Olha so eu tenho essa procedure: procedure TForm1.Button2Click(Sender: TObject); var produ:produto; begin produ.nome:=edit3.text; produ.pvenda:=strtoreal(edit4.text);<---onde o erro esta aqui!!! produ.dia:= strtoint(edit5.text); produ.mes:= strtoint(edit6.text); obj.addproduto(produ,obj); end; da esse erro---->[Error] Unit1.pas(59): Undeclared identifier: 'strtoreal' Pergunta: Como eu faço pra transformar uma variavel de texto para um numero real com strtoreal ta errado?Se não porque ta dando erro? PS:Declaração do meu Record produto so pra informação: produto = Record Nome:String; pvenda:real; dia,mes:integer; end; Obrigado Gente valeu...

Valeu gente!!!

Valeu Bicicleta... Ta respondida a minha pergunta!!! Tipo eu queria saber se da pra iplementar uma pilha em ASP...

Desculpe se não me expressei direito na pergunta... Existe alguma estrutura no ASP que subistitua um record??? Valeu Urso pelo ARRAY... Isso e um RECORD ====>(ISSO É EM PASCAL)<==== São conjunto de dados logicamente relacionados, mas de tipos diferentes (numérico, literal, lógico). Declaração do Record (Registro) Nome do tipo: Record Componentes: Tipo de dados; End; Exemplo: var Dados: Record Nome: String; Idade:Integer; Sexo: Char; End; Para fazer referência com a variável nome, posso escrever: Dados.Nome; Exemplo de um programa que utiliza Record: program Utilizando_Records; var Dados: Record Nome: String; Idade:Integer; Sexo: Char; End; begin write('Nome: '); readln(Dados.Nome); write('Idade: '); readln(Dados.Idade); write('Sexo: '); readln(Dados.Sexo); writeln('Dados do Registro: '); writeln('Nome: ',Dados.Nome); writeln('Idade: ',Dados.Idade); writeln('Sexo: ',Dados.Sexo); readln; end. * Nada impede que eu possa fazer uma combinação dessas estruturas. Exemplo: var VetorDados: Array [1..2] of Record Nome: String; Idade:Integer; Sexo: Char; End; Para acessar algum elemento desse vetor de registros, posso escrever: VetorDados[indice].Componente; Exemplo: VetorDados[1].Nome;

Salve, grande Ursolouco, você e o cara!!!! Ai alguém sabe como se faz no asp uma variavel do tipo Record no pascal ela e declarada assim: TYPE Variavel : RECORD nome:string Tel:integer Sex:Char end Var cara:variavel; Pergunta tem isso no asp????? Ou algo parecido?? Eu queria saber tb a estrutura de um ARRAY, como é? Valeu... Urso abração man...

Ae gente to querendo fazer um gerenciador de imagens (Tipo aquele que fica a foto pequena e quando você clica nele ela aparece em uma tela maior) mas não tenho a menor ideia de como começo, algum tutorial uma apostila qualquer coisa!!!!

Man tenta esse relogio aqui : <script language=JavaScript> dCol='000000';//date colour. fCol='000000';//face colour. sCol='000000';//seconds colour. mCol='000000';//minutes colour. hCol='000000';//hours colour. ClockHeight=40; ClockWidth=40; ClockFromMouseY=0; ClockFromMouseX=100; //Alter nothing below! Alignments will be lost! d=new Array("DOMINGO","SEGUNDA","TERÇA","QUARTA","QUINTA","SEXTA","SÁBADO"); m=new Array("JANEIRO","FEVEREIRO","MARÇO","ABRIL","MAIO","JUNHO","JULHO","AGOSTO","SETEMBRO","OUTUBRO","NOVEMBRO","DEZEMBRO"); date=new Date(); day=date.getDate(); year=date.getYear(); if (year < 2000) year=year+1900; TodaysDate=" "+d[date.getDay()]+" "+day+" "+m[date.getMonth()]+" "+year; D=TodaysDate.split(''); H='...'; H=H.split(''); M='....'; M=M.split(''); S='.....'; S=S.split(''); Face='1 2 3 4 5 6 7 8 9 10 11 12'; font='Arial'; size=1; speed=0.6; ns=(document.layers); ie=(document.all); Face=Face.split(' '); n=Face.length; a=size*10; ymouse=0; xmouse=0; scrll=0; props="<font face="+font+" size="+size+" color="+fCol+"><B>"; props2="<font face="+font+" size="+size+" color="+dCol+"><B>"; Split=360/n; Dsplit=360/D.length; HandHeight=ClockHeight/4.5 HandWidth=ClockWidth/4.5 HandY=-7; HandX=-2.5; scrll=0; step=0.06; currStep=0; y=new Array();x=new Array();Y=new Array();X=new Array(); for (i=0; i < n; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0} Dy=new Array();Dx=new Array();DY=new Array();DX=new Array(); for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0} if (ns){ for (i=0; i < D.length; i++) document.write('<layer name="nsDate'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props2+D[i]+'</font></center></layer>'); for (i=0; i < n; i++) document.write('<layer name="nsFace'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props+Face[i]+'</font></center></layer>'); for (i=0; i < S.length; i++) document.write('<layer name=nsSeconds'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+sCol+'><center><b>'+S[i]+'</b></center></font></layer>'); for (i=0; i < M.length; i++) document.write('<layer name=nsMinutes'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+mCol+'><center><b>'+M[i]+'</b></center></font></layer>'); for (i=0; i < H.length; i++) document.write('<layer name=nsHours'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+hCol+'><center><b>'+H[i]+'</b></center></font></layer>'); } if (ie){ document.write('<div id="Od" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < D.length; i++) document.write('<div id="ieDate" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props2+D[i]+'</B></font></div>'); document.write('</div></div>'); document.write('<div id="Of" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < n; i++) document.write('<div id="ieFace" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props+Face[i]+'</B></font></div>'); document.write('</div></div>'); document.write('<div id="Oh" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < H.length; i++) document.write('<div id="ieHours" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+hCol+';text-align:center;font-weight:bold">'+H[i]+'</div>'); document.write('</div></div>'); document.write('<div id="Om" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < M.length; i++) document.write('<div id="ieMinutes" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+mCol+';text-align:center;font-weight:bold">'+M[i]+'</div>'); document.write('</div></div>') document.write('<div id="Os" style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < S.length; i++) document.write('<div id="ieSeconds" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+sCol+';text-align:center;font-weight:bold">'+S[i]+'</div>'); document.write('</div></div>') } (ns)?window.captureEvents(Event.MOUSEMOVE):0; function Mouse(evnt){ ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y+ClockFromMouseY; xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX; } (ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse; function ClockAndAssign(){ time = new Date (); secs = time.getSeconds(); sec = -1.57 + Math.PI * secs/30; mins = time.getMinutes(); min = -1.57 + Math.PI * mins/30; hr = time.getHours(); hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360; if (ie){ Od.style.top=window.document.body.scrollTop; Of.style.top=window.document.body.scrollTop; Oh.style.top=window.document.body.scrollTop; Om.style.top=window.document.body.scrollTop; Os.style.top=window.document.body.scrollTop; } for (i=0; i < n; i++){ var F=(ns)?document.layers['nsFace'+i]:ieFace[i].style; F.top=y[i] + ClockHeight*Math.sin(-1.0471 + i*Split*Math.PI/180)+scrll; F.left=x[i] + ClockWidth*Math.cos(-1.0471 + i*Split*Math.PI/180); } for (i=0; i < H.length; i++){ var HL=(ns)?document.layers['nsHours'+i]:ieHours[i].style; HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll; HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs); } for (i=0; i < M.length; i++){ var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style; ML.top=y[i]+HandY+(i*HandHeight)*Math.sin(min)+scrll; ML.left=x[i]+HandX+(i*HandWidth)*Math.cos(min); } for (i=0; i < S.length; i++){ var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds[i].style; SL.top=y[i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll; SL.left=x[i]+HandX+(i*HandWidth)*Math.cos(sec); } for (i=0; i < D.length; i++){ var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style; DL.top=Dy[i] + ClockHeight*1.5*Math.sin(currStep+i*Dsplit*Math.PI/180)+scrll; DL.left=Dx[i] + ClockWidth*1.5*Math.cos(currStep+i*Dsplit*Math.PI/180); } currStep-=step; } function Delay(){ scrll=(ns)?window.pageYOffset:0; Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed); Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed); for (i=1; i < D.length; i++){ Dy[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed); Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*speed); } y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed); x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed); for (i=1; i < n; i++){ y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed); x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed); } ClockAndAssign(); setTimeout('Delay()',20); } if (ns||ie)window.onload=Delay; </SCRIPT> esse e em java não precisa de IIS

ai alguém sabe como eu ligo um form flash a uma page asp????? ou a um banco de dados?

não mudei nada, ta igualzinho a page tanto que aqui em casa funciona legal!!! aqui não aparece esse erro! porque?

Ae alguém pode me ajudar... Tipo eu terminei o site!!! E ospedo ele em 2 hots so que nos dois ta ocorrendo o mesmo erro nos 2 host quando eu vou acessar uma page que contenha arquivo asp, menos a do login... Tipo aqui em casa eu uso o IIS 5.1 do XP Pro e o site funciona sem prob nenhum so que quando eu passo pra net da esse mesmo erro nos 2 hosts... Tipo os hosts que uso são : www.compos.com.br (pago) e www.7host.com (free) Mas os links estao certo!! quem quiser da uma olhada a page e http://www.ner.com.br Login fabio senha 1234 Vai em buscar por são paulo Erro:------------------------------------------------------------ A página não pode ser exibida Há um problema com a página que você está tentando acessar e ela não pode ser exibida. -------------------------------------------------------------------------------- Tente o seguinte: Abra a home page <> Homepage(); www01.7host.com e procure links para a informação desejada. Clique no botão Atualizar ou tente novamente mais tarde. Clique em Pesquisar para procurar informações na Internet. Você também pode ver uma lista de sites relacionados. HTTP 500 - erro interno do servidor Internet Explorer alguém sabe como resolvo isso?

Tipo: Eu quero fazer uma busca onde o usuario não precise colocar o nome completo do item que ele quer buscar ou seja o cara quer buscar canetas ele so coloca "can" e o meu banco retorna todos os ites que comecem com can!! entenderam Ate ai tudo bem. a minha string fico assim: ComandoSQL = "SELECT * FROM Emissora where Rádio LIKE '"& apanha_radio& "%'" Onde apanha_radio e uma Request.querystring. ele ate acha o item que começa com as letras digitadas no form so que ele so mostra o primeiro item encontrado nessa condição, caso eu tenha mais de um item que comece com as letras digitadas ele so mostra um o resto do resultado vem errado.. Um exemplo pra ficar bem claro : O cara busca palavras com (can) resultado e 10 itens sendo que so o item 1 começa com (can) o resto e tipo (lapis, borracha) sendo que ainda tem mais itens no bd que comecem com as letras (can) Como eu resolvo isso?

Tipo Gente eu tenho 2 perguntas Olha so eu queria saber se alguém sabe como eu faço pra fazer uma validação de campo? ou sempre que o usuario for enviar um form vazio da um alert.. Tipo a pergunta 2 e como eu arrumo esse erro ai? Tipo de erro: Erro de compilação do Microsoft vb script:history.go(-1)" ><b>Clique aqui</b></a> para voltar</font></center> )" Caso eu apague a parte em vermelho funciona legal!!!! Tipo e eu já coloquei assim tb: " <Center>Não existem registros para exibição...</Center><br><BR><BR><Center><a href= "java script:history.go(-1)" ><b>Clique aqui</b></a> para voltar</font>"( da o mesmo erro...)

tipo tenho 2 perguntas esse if ta certo??? ta dando esse erro: Tipo de erro: Erro de compilação do Microsoft VBScript (0x800A0400) Instrução esperada /testes/alteracao1.asp, line 20 <% if IsEmpty (bd("Rádio")) then : response.write "Nenhuma rádio foi encontrada!!" <% if IsEmpty (bd("Rádio")) then : response.write "Nenhuma rádio foi encontrada!!" <center> <a href="radio_a_alterar.html">Voltar</a> </center> end if %> tipo eu quero que o usuario ao fazer uma busca ele não precise digitar o nome todo do item a ser procurado no bd, eu andei vendso por ai que tem um comando SQL LIKE '%" so que quando eu boto ele seleciona tudo que ta no bd olha so o comando ai: ComandoSQL = "SELECT * FROM Emissora where Rádio like'%" & apanha_radio &"'"

Achei que vocês gostariam de ver o codigo: <% Set Conexao = Server.CreateObject("ADODB.Connection") Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Rádios.mdb") & ";Persist Security Info=False" Conexao.Open Constr ComandoSQL = "select * from emissora where estado = 'GO' or 'DF' " Set bd = Conexao.Execute(ComandoSQL) If Not bd.EOF Then bd.Move Request.QueryString("n") %> <% if bd.EOF then response.Write("Não foi encontrado nenhum registro") end if %> <a href= "excluir.asp?id= <%=bd("código") %>">Excluir</a> <tr> <td align=right valign=top> <font face="Arial" size="2">Rádio:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Rádio")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Cidade:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Cidade")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Endereço:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Endereço")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Estado")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Cep:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Cep")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Telefone:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Telefone")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Fax:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Fax")%></b></font></td></tr> <% Else %> <font face="Arial" size="2"><b> Nenhum valor encontrado</b></font> <% End If %> </table><br><center> <% If Request.QueryString("n") > 0 then Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & ">&lt;&lt; Anterior</a>&nbsp;&nbsp;" End If bd.MoveNext If Not bd.EOF then Response.Write "&nbsp;&nbsp;<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo &gt;&gt;</a>" End If Conexao.Close Set bd = Nothing Set Conexao = Nothing %> </table> </body>

Tipo não entendi essa parte objrs e o meu banco de dados ? ou a variavel que eu quero procurar ? no meu caso eu coloquei assim: Onde bd e meu rs if bd.EOF then response.Write("Não foi encontrado nenhum registro") end if %> Obrigado.

Tipo quando eu faço uma consulta no bd e não acho o item pesquisado ele me da essa page de erro: Tipo de erro: ADODB.Recordset (0x800A0BCD) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /pagener/consultaAL.asp, line 176 Tem como eu colocar pra aparecer uma mesagem informando que não avia nenhum registro no bd? Por favor detalhem, bem a resposta pois sou novo no asp!!!

Despculpa Urso.louco se eu estiver te encomodando mas, porque eu tenho que colocar os & &??? A sua dica funcio no muito bem... Obrigado.

Cara desculpa mas você pode especificar como eu faço isso porque eu sou novo no flash ainda!!!

Olha so quando o usuario clicar em um botao esse botao ativa essa rotina dentro da uma page asp de consulta. esse botaop e pra excluir o item consultado. <% dim cid cid = application("cod")%> <form method="POST" action=" <% Set Conexao = Server.CreateObject("ADODB.Connection") Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Rádios.mdb") & ";Persist Security Info=False" Conexao.Open Constr ComandoSQL = " delete * from emissora where código='cid' " Set bd = Conexao.Execute(ComandoSQL) <--------essa e a linha 108 Conexao.Close Set bd = Nothing Set Conexao = Nothing %>"> mas uma coisa application("cod") recebe uma variavel direto do banco de dados. e depois eu passo essa variavel para a cid. mas da esse erro alguém sabe porque??? Tipo de erro: Microsoft JET Database Engine (0x80040E07) Tipo de dados imcompatível na expressão de critério. /consultaSP.asp, line 108

Aff alguém sabe???

Olha so eu tenho um menu do brasil em flash, eu queria colocar pra quando clicar no estado desejado abra uma page de procura asp, mas eu não quero colocar o link da page no botao porque se não eu vou ter que fazer uma page pra cada estado. Eu queria saber se tem como quando eu clicar no botao eu criar automaticamente a page asp? Olha o codigo da minha page de busca e esse: Na verdade de Cada page so iria mudar esse comando ComandoSQL = "select * from emissora where estado ='SP' ", mas eu queria saber se tem como fazer isso automatico pelo flash. <html> <head> <title>Consulta São Paulo</title> </head> <body> <center><font face="Arial" size="4"><b>Formulário de Consulta</b></h2></center> <table border=0 width="80%" align=center> <% Set Conexao = Server.CreateObject("ADODB.Connection") Constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Rádios.mdb") & ";Persist Security Info=False" Conexao.Open Constr ComandoSQL = "select * from emissora where estado ='SP' " Set bd = Conexao.Execute(ComandoSQL) If Not bd.EOF Then bd.Move Request.QueryString("n") %> <tr> <td align=right valign=top> <font face="Arial" size="2">Rádio:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Rádio")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Cidade:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Cidade")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Endereço:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Endereço")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Estado:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Estado")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Cep:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Cep")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Telefone:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Telefone")%></b></font></td></tr> <tr> <td align=right valign=top> <font face="Arial" size="2">Fax:</font></td> <td align=left valign=top> <font face="Arial" size="2"> <b><%=bd("Fax")%></b></font></td></tr> <% Else %> <font face="Arial" size="2"><b> Nenhum valor encontrado</b></font> <% End If %> </table><br><center> <% If Request.QueryString("n") > 0 then Response.Write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") - 1 & ">&lt;&lt; Anterior</a>&nbsp;&nbsp;" End If bd.MoveNext If Not bd.EOF then Response.Write "&nbsp;&nbsp;<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?n=" & Request.QueryString("n") + 1 & ">Próximo &gt;&gt;</a>" End If Conexao.Close Set bd = Nothing Set Conexao = Nothing %> </table> </body> </html> Valeu gente.. Obrigado por terem tanta paciência assim comigo. Desculpe qualquer coisa.