Churc

a consulta é local ou remota?

opa isso vai depender de muita coisa... que tipo de programa é esse, você vai usar qual tipo de socket de comunicação? seja mais específica, abraço

opa tenta, Double

opa tem como sim amigo, mais qual bd você usa? firebird, interbase, mysql...etcc abs

opa pra habilitar o backspace você precisa colocar o código ASCII da tecla, no caso #8 então com base no outro exemplo seria if not (key in['0'..'9', #8] ) then key := #0; quanto ao edit pular de linha, então troque o edit por um memo, ai você pula de linha normal. abraço

opa evento OnKeyPress do edit você coloca if not (key in['0'..'9'] ) then key := #0; abraço

opa qual o erro que dá? o que acontece, você tem certeza de que o erro não é outro? porque uma URL tem limite máximo de 2.083 caracteres, uma string não se limita a 255 caracteres, ShortString se limita a 255 caracteres. teste assim var s: shortstring; begin if length(s) > 300 then da um Check Syntax e você vai ver nas mensagens de erro no compilador "Comparison always result to false" "Comparação sempre retorna falso" porque uma shortstring tem limite de 255 caracteres então ela nunca poderia ter o tamanho maior que 300... o webbrowser.navigate é definido como WideString e não como String primeiro teste se a URL estoura 2.083 caracteres, por padrão o Internet Explorer suporta somente isso... depois, verifique de algum modo, fazendo um log por exemplo, de como o servidor está recebendo a URL, derrepente ele está recebendo certinho, e o erro é outro... se eu fosse você eu faria o log tipo assim, exemplo <?php $Nome = $_GET["Nome"]; $Telefone = $_GET["Telefone"]; ... aqui você vai colocando os dados ai você da um echo echo "<b>Nome:</b> $Nome <br />\n"; echo "<b>Telefone:</b> $Telefone <br />\n"; ... e por ai vai, ai você visualiza como o servidor está recebendo e se está recebendo os dados corretamente... ?> abraço

opa verifique se não tem a propriedade HWND, pro Internet Explorer tem... então você faria uses Variants; if ((not varisempty(Outlook)) and (iswindowvisible(outlook.hwnd))) then a janela esta aberta else a janela esta fechada... se a variavel outlook não possuir a propriedade HWND, procure por Handle, e também tente o mesmo na variavel MailItem abraço

opa veja se é isso que quer if ed_nome.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_nome.SetFocus; end else if ed_telefone.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_telefone.SetFocus; end else if ed_equipamento.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_equipamento.SetFocus; end else if ed_problema.text = '' then begin application.MessageBox('O nome do Cliente não foi informado!!!',pchar(caption),mb_iconinformation + mb_ok); ed_problema.SetFocus; end; ---------------- foi mal postei quase junto com você ehuauhe de qlq forma você pode usar if else ao invés do exit. abraço

Grande Micheus ;)

ah está entendi :rolleyes:

oi explica melhor o que você quer fazer euhahue abs

opa uses MMSystem PlaySound('ArquivodeSom', SND_ASYNC); seria isso? abraço

opa você está fazendo de um jeito complicado ehehe pelo que vi em outro tópico você quer fazer um jogo de pergunta e respostas? diga mais ou menos como é esse jogo que eu faço um exemplo pra você abraços

opa Micheus também não entendi eheh, eu acho que ele quer saber, como ele faz pra checar se o arquivo do banco dele (Firebird) existe, então como é paradox é .db, firebird .fdb ? If (fileexists('c:\derma98\dados\'+nometabela+'.fdb')) then Question .fdb é a extensao do arquivo da base de dados do Firebird abraços

opa instale o componente RxLib que aparece denovo, você devia ter ela instalada por isso... http://sourceforge.net/projects/rxlib/ abraços

opa não tem menor problema amigo, só faça ler na tabela esses valores a cada login... ou seja, o valor de cCidade, cUsuario ser setado a cada login... assim não vai pesar nada, imperceptível... abraços

opa você não deu detalhes do que usa e tal mas ai vai um exemplo com uma query, e a soma em um label with Query1 do begin Close; SQL.Clear; SQL.Add('select sum(Valor_total) as somatotal from vendas.db where data_venda='18/08/2006''); Open; end; if Query1.fieldbyname('somatotal').Value <> null then Label1.caption:= floattostr(Query1.fieldbyname('somatotal').Value) else Label1.caption:='0,00'; acho que vai te ajudar abraços

opa de um debug na sua app pra achar "aonde" está o erro... da uma olhada neste link: http://scriptbrasil.com.br/forum/index.php...st&p=378288 abraços

opa seguinte, você tem algo no seu projeto de origem TStrings tipo uma TStringList, TListBox, etc que alguma procedure/function chama a mesma passando um valor de Index que não existe. exemplo var sl: tstringlist; begin sl := tstringlist.create; sl.add('Index 0'); sl.add('Index 1'); sl.add('Index 2'); showmessage(sl[3]); sl.free; em showmessage vai dar esse erro ai, justamente porque a Index 3 não existe na lista... o que você tem a fazer é achar em qual lugar está usando algum objeto da classe TStrings e antes de qualquer coisa checar se não vai estourar a Index... qlq coisa posta ai abraços

opa isso talvez ajuda http://scriptbrasil.com.br/forum/index.php...st&p=379914 abraços

opa pra você não ficar usando infinitos IF se usa o case vou dar um exemplo case radiogroup1.ItemIndex of 0: Edit1.text := 'Primeiro item selecionado'; 1: Edit1.text := 'Segundo item selecionado'; end; agora vamos supor que você queira fazer 2 ações caso o primeiro item esteja selecionado... case radiogroup1.ItemIndex of 0: begin Edit1.text := 'Primeiro item selecionado'; Edit2.Text := 'Aeee'; end; 1: Edit1.text := 'Segundo item selecionado'; end; qlq coisa posta ai abraços

opa eu testei em delphi6, mas pra ser sincero, eu senti falta de listbox1.items.selected ao invés de listbox1.selected sei lá se é meu delphi que está zuado auhahuau abraços

e ai amizade fera essa dll é usada em programação em C++, tipo o ms visual c, assim como o visual basic necessita da runtime library dele... deve ser algo MSVCR71 MicroSoft Visual C++ Runtime porém é algo de terceiro em seu projeto que está usando isso, já que ele foi feito em delphi e essa dll tem funções em C++... ai sobre o erro, você vai ter que descobrir o que está usando essa DLL, e se a versão que o mesmo necessita a dll é compatível, e também possíveis erros de uso. abraços

opa você tem que fazer um loop nos itens, e checar os que estão selecionados somente, vamos supor que voce queira dar uma mensagem em cada item selecionado, troque esta ação da mensagem pela ação que deseja fazer... var i: Integer; begin for i := 0 to ListBox1.Items.Count - 1 do if (ListBox1.Selected) then ShowMessage('[item selecionado]'+#13+ 'Index: ' + IntToStr(i)+#13+ 'Caption: ' + ListBox1.Items.Strings); end; já na mensagem está o Index e o Caption do Item, acho que é o que você vai precisar... qlq coisa posta ai abraços