Jhonas

Criando um programa de animação Não é tão simples montar um programa de animação como o Pivot .. é mais facil montar uma animação no delphi Para entender um pouco a dinamica da coisa leia este doc http://www.acemprol.com/download/file.php?id=9212 Veja outras fontes de informações: http://www.google.com.br/search?hl=pt-BR&a...mp;aq=f&o que= abraço

Se voce observou voce deve digitar o CEP e o Estado exemplo: No Edit1 voce coloca 45888-555 No Edit2 voce coloca BA Quando clicar no botão ele fará uma verificação se este CEP é realmente da Bahia procedure TForm1.Button1Click(Sender: TObject); begin if ChecaCEP(Edit1.Text, Edit2.text)=true then showmessage ('cep válido!') else showmessage ('cep inválido!'); end; Veja estes tópicos http://www.forumweb.com.br/foruns/index.php?showtopic=49021 http://scriptbrasil.com.br/forum/index.php...st&p=455417 Outra dica Formatar CEP { Esta função forma CEP como: 99.999-999 } function tbFormataCEP(const CEP: string): string; var I: integer; begin Result := ''; for I := 1 to Length(CEP) do if CEP[I] in ['0'..'9'] then Result := Result + CEP[I]; if Length(Result) <> 8 then raise Exception.Create('CEP inválido.') else Result := Copy(Result, 1, 2) + '.' + Copy(Result, 3, 3) + '-' + Copy(Result, 6, 3); end; === Para testar === - Coloque um Edit e um Button no form; - No evento OnClick do Button coloque a instrução abaixo: Edit1.Text := tbFormataCEP(Edit1.Text); Observações Para formatar outros códigos como CPF, CGC, etc., pode-se usar a mesma idéia. Autor: Daniel P. Guimarães Quanto ao CPF veio um arquivo ponto .PAS como procedo neste caso? Este arquivo voce deve copiar e colar no seu form ou adicioná-lo ao seu projeto abraço

Jhonas, fiz o que você orientou de ativar a query, mas da a mensagem abaixo. Messagem Q_ImportaMorador: Cannot modify a read only dataset Como posso resolver esta problema. Desculpe por insistir em erros que pra você talvez sejam basicos. procedure TF_ImportaMorador.DBGrid1CellClick(Column: TColumn); begin DMConsultas.Q_ImportaMorador.Close; DMConsultas.Q_ImportaMorador.Open; DMConsultas.Q_ImportaMorador.Active:=false; DMConsultas.Q_ImportaMorador.Active:=true; if Column.ID = 0 then begin if DMConsultas.Q_ImportaMoradorarquivo.asstring = 'X' then begin DMConsultas.Q_ImportaMorador.Edit; DMConsultas.Q_ImportaMoradorarquivo.asstring := ''; DMConsultas.Q_ImportaMorador.post; end else begin DMConsultas.Q_ImportaMorador.Edit; DMConsultas.Q_ImportaMoradorarquivo.asstring := 'X'; DMConsultas.Q_ImportaMorador.post; end; end; end; Seu codigo está estranho ... voce esta usando Query ou ClientDataSet ??? procedure TF_ImportaMorador.DBGrid1CellClick(Column: TColumn); begin if Column.ID = 0 then begin if DMConsultas.Q_ImportaMoradorarquivo.asstring = 'X' then begin DMConsultas.CDs_ImportaMorador.Edit; DMConsultas.CDs_ImportaMoradorarquivo.asstring := ''; DMConsultas.CDs_ImportaMorador.post; DMConsultas.CDs_ImportaMorador.ApplyUpdates(-1); end else begin DMConsultas.CDs_ImportaMorador.Edit; DMConsultas.CDs_ImportaMoradorarquivo.asstring := 'X'; DMConsultas.CDs_ImportaMorador.post; DMConsultas.CDs_ImportaMorador.ApplyUpdates(-1); end; end; end; Veja a diferença dos 2 ... se estiver usando somente a Query a propriedade RequestLive deverá estar como true para não ocorrer esse erro: Messagem Q_ImportaMorador: Cannot modify a read only dataset Não pode modificar um dataset somente como leitura abraço

Para criar o efeito zebrado nos relatórios do Rave , insira um retângulo no DataBand. Faça com que ele ocupe toda a banda, clique no botão direito, selecione Order, Send to Back. Agora insira o código abaixo no Event Editor, do Retângulo. if self.FillColor = clWhite then self.FillColor := clSilver; else self.FillColor := clwhite; end if; abraço

Validar CPF e CNPJ http://www.delphimais.com/modules/wfdownlo...cid=1&lid=2 validar CEP http://www.devmedia.com.br/articles/viewcomp.asp?comp=833 abraço

"exception class EConvertError whit message "31/07/2009" is not a valid floating point value. Process Stop......" EConvertError mensagem " 31/07/2009 " não é um valor de ponto flutuante válido. Parada de processo......" Verifique a sua SQL pois voce está tentanto executar uma operação matematica em uma data ( cdate ). abraço

TblDuplicatas.Close; TblDuplicatas.sql.Clear; TblDuplicatas.sql.Add('Update TblDuplicatas Set DtPgto =:DtVcto where RegDet=:Codigo'); TblDuplicatas.Parameters.ParamByName('Codigo').Value := StrToInt(edit9.text); TblDuplicatas.ExecSQL; voce só passou o parametro Codigo .. onde esta o parametro DtVcto ??? TblDuplicatas.Parameters.ParamByName('DtVcto').Value := strtodate(maskedit1.Text); Veja se é isso... abraço

vou te passar a lógica do negocio 1 - criar um array de string 2 - retirar a parte numeria da string ( backup01082009.zip => 01082009 ) 3 - inserir as barras nesta string para virarem datas validas ( 01/08/2009 ) 4 - ordenar o array de datas ( tipo strings ) 5 - montar novamente o ListBox com a nova sequencia ordenada dos arrays tirando as barras e vontando a string original exemplo: leitura dos itens jogados no array : backup28072009.zip backup27072009.zip backup01082009.zip dentro do array : 28/07/2009 27/07/2009 01/08/2009 ordenado e inserido a parte faltante da string: backup01082009.zip backup28072009.zip backup27072009.zip Veja se consegue fazer abraço

string ou dados binarios estão truncados while not Query.Eof= True do begin CMD_SQL.Execute; CMD_SQL.Parameters.ParamByName('pturma').Value:= Query.Fields[0].AsInteger; CMD_SQL.Parameters.ParamByName('pprof').Value:= 'Valor do Professor'; aula:= aula +1; if aula= 6 //ideal colocar a qtde de aulas cadastradas then begin dia:= dia +1; Query.Next; end else BtGerar.Click; end; observe que o comando Query.Next só será executado quando a aula for = 6 .. enquanto isso voce estará executando CMD_SQL.Execute mesmo antes de estar passando os parametros voce deve executar a SQL depois que passar os parametros ( essa rotina esta errada ... verifique ) abraço

Pode ser um bug da versão ... tente baixar outra versão demo http://www.ntk.com.br/ abraço

Tem... aprenda a usar ClientDataSet.Delta exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=556572 abraço

Da mesma forma que o windows xp enxerga outro hd na sua maquina ... o mesmo acontece com o Linux a unica diferença é que voce não poderá instalar o linux se carregar o XP a jogada é instalar o Linux neste hd colocando ele como master ( Mestre ) ... depois de instalado voce o coloca como Slave ( escravo ) depois voce deve criar um menu no DOS para selecionar um ou outro. abraço

if frmCadPro.btnGravarClick(Sender) = True then Este comando esta errado .. tire ele outro erro: procedure Tdm.dtsCadProDataChange(Sender: TObject; Field: TField); se voce está no evento OnChange de um campo , como voce quer testar se o botão Gravar foi clicado ? OBS: Este código deveria estar somente no botão Gravar abraço

Pocure neste exemplo como definir as magens no Rave Reports https://www.scriptbrasil.com.br/forum/lofiv...php/t77280.html abraço

Exemplos http://downloads.atozedsoftware.com/indy/ThreadComponent.zip http://downloads.atozedsoftware.com/indy/ThreadedClient.zip abraço

Procure no Google pela frase: importar classes do javascript para o delphi http://www.caiooliveira.com.br/?tag=delphi abraço

Verifique as margens ( TOP ) deve estar com 1 cm de distancia ... deixe 0 abraço

Not Null significa Não Nulo ( ou seja o campo sempre deverá ter um valor ) o erro que ocorreu é uma tentativa de converter um valor nulo em uma string ... entendeu ? por isso verifique a definição de sua tabela e o código que está usando para trabalhar com essa tabela abraço

Veja aqui ... problema igual ao seu resolvido ( leia todos os posts até o final ) http://www.linhadefensiva.org/forum/index....showtopic=79240 abraço

Gerador de Senhas function GeraSenha (aQuant: integer): string; var i: integer; const str = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz'; begin for i:= 1 to aQuant do begin Randomize; sleep(100); Result := Result + str[Random(Length(str))+1]; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := GeraSenha(5); // o nº 5 é o total de caracteres que a senha deverá ter end; abraço

Campo autoincremento não pode ser nulo ( not null ) Se a sua tabela estiver definida assim esta correto... se não estiver corrija .... depois voce deve verificar o seu código .... quando voce vai editar o registro, o campo código sendo autoincremento voce não deve usá-lo, pois quando for salvar o seu registro, o numero será automaticamente incrementado e salvo. abraço

Exemplo: uses Math; procedure TForm1.Button1Click(Sender: TObject); begin // PARA EXTRAIR RAIZ QUADRADA DE 5 label1.Caption := floattostr(sqrt(5)); // PARA EXTRAIR RAIZ QUADRADA DE 5 ( OUTRA MANEIRA ) label2.Caption := floattostr(power(5, 1/2)); // PARA EXTRAIR RAIZ CUBICA DE 5 label3.Caption := floattostr(power(5, 1/3)); end; abraço

Erro: Não pode converter variant tipo nulo em tipo string Esse erro é de definição de campo... verifique abraço

Pode ficar tranquilo que vai rodar numa boa ... OBS: O Win Vista Starter Edition tem muitos bugs que foram solucionados na versão Ultimate do Vista abraço

Voce está querendo fazer um download via ftp usando um gauge para monitorar... é isso ???