Jhonas

exemplo: procedure TForm1.Button1Click(Sender: TObject); var valor : real; venc, qtde_parc, i : integer; s : string; begin valor := 180; Venc := 21; Qtde_parc := 10; memo1.Clear; for i := 1 to Qtde_parc do begin s := 'Parcela: '+ inttostr(i) +'/'+inttostr(Qtde_parc)+ ' - Valor: R$ '+ formatfloat('0.00',valor) + ' - Vencimento: ' + inttostr(venc) + copy(datetostr(now+(30*i)),3,8); memo1.Lines.Append(s); end; end; modifique o código para o seu uso abraço

amigo, não tenho MSN ... quanto a usar o vcl-skin veja se acha alguma coisa nos posts do forum http://scriptbrasil.com.br/forum/index.php...p;highlite=skin abraço

use o locate, é mais rapido do que usar while abraço

amigo, usando o dbgrid para isso, fica meio complicado ... a minha sugestão é que voce use o stringgrid ou pode fazer algo parecido com esse exemplo http://www.planetadelphi.com.br/delphi/exe...es/00004466.zip abraço

então use o evento OnDrawColumnCell do DBgrid inherited; if DbgCambio.Fields[01].AsString = 'GUARANI' then begin TblCamValor.DisplayFormat := '###,###,##0'; end else if DbgCambio.Fields[01].AsString = 'REAL' then begin TblCamValor.DisplayFormat := '###,###,##0.0000'; end; abraço

então restrinja ainda mais o filtro exemplo: sql.Add(' F.PrfFormulario =:For and E.EmpCodigo =:Emp and PROCODIGO1 = PESCAD001'); abraço

se o visual é esse é só fazer algo parecido, usando os componentes do delphi: Tmediaplayer, Tedit, TLabel, TCheckBox ou TRadioGroup, TImage o resto vai da sua imaginação abraço

pelo que percebi, o seu filtro não esta trazendo nenhum valor duplicado na linha, então o filtro esta correto.

a maneira como colocou, só é possivel se usar stringgrid ( valores na horizontal ) para usar um dbgid, voce deve colocar os valores na vertical ( coluna ) exemplo: Real........Dolar........Guarani........Peso.........Euro dessa maneira, voce pode usar uma mascara para cada coluna. abraço

O select deve conter apenas os campos que voce deseja visualizar de uma ou outra tabela abraço

tente esses links http://www.planetadelphi.com.br/download/5...-de-rave-report http://www.devmedia.com.br/forum/delphi/39...ve-Reports.html abraço

veja o link http://www.google.com.br/search?hl=pt-BR&a...ampo+calculado+ abraço

Nesse caso não posso ajudá-lo .. tente localizar na net abraço

Leitura de arquivo texto procedure TForm1.Button1Click(Sender: TObject); var Arquivo: TextFile; Line : string; begin AssignFile(Arquivo, 'C:\MinhaPasta\Arq.Txt'); Reset(Arquivo); while not EOF(Arquivo) do begin ReadLn(Arquivo, Line); Memo1.Lines.Append(Line); end; CloseFile(Arquivo); end; com mais esses outros exemplos voce consegue montar o código http://www.mpsoftwares.com/site1/index.php...tid=4&id=19 http://www.fea.unicamp.br/docentes/ortega/...la06/aula06.htm http://www.parteli.pro.br/lproII/trabalho/Trab4.htm http://www.t2ti.com/curso/video/delphi/ini...os/Modulo01.pdf abraço

tire essa procedure, não é necessária procedure TFormLogin.FormClose(Sender: TObject; var Action: TCloseAction); abraço

Tabela ABC Farma em DBF http://suportegas.com.br/portal/download/20060818ARQ0006.zip abraço

utilize as propriedades DisplayFormat e InputFormat do ClientDataSet para mostrar a mascara no DBGrid abraço

baixe esse programa http://www.baixaki.com.br/site/dwnld45342.htm Obs.: já vai com 18.000 itens Cadastrado para teste abraço

tente assim procedure TForm1.FormDblClick(Sender: TObject); begin if PRI_Privilegio = 'PADRÃO' then begin ConsultaFormLibUsuario('INNCAD003'); if Dtm.QryUsuarios.RecordCount = 0 then begin ShowMessage('Usuário '+PRI_UsuCodigo+' - '+PRI_UsuNome+' sem Nivel de acesso ao Formulário INNCAD003 - Pesquisa de Procedimentos !'); exit; end; end; try if TFInnCad003 = Nil then TFInnCad003 := TTFInnCad003.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; with TFInnCad003 do begin ProCodigo := TblProProCodigo.AsString; PrfFormulario := Formulario; LeRegistro; SpbEdi.Enabled := true; spbpes.Visible := false; SpbCan.Visible := false; SpbEdiClick(Self); ShowModal; Atualiza; end; end; abraço

No Interbase ou no Firebird, o campo autoincremento não pode receber valores externos, ou seja, quando voce for salvar os registros da tabela temporária na tabela origem, voce não deve passar o valor do campo autoincremento, o valor será automaticamente incrementado quando voce salvar. abraço

como não tenho uma visão geral do código, tire esse comando FormPrincipal.StatusBar1.Panels[2].Text := 'Usuário: ' + sysNomeUsuario; fechar:= true; winresult := mrOk; //Close; Screen.Cursor := crDefault; se isso não resolver, veja onde esta o comando para fechar o formulario e deixe-o como comentário FormLogin.Close; abraço

O erro de vialoção de endereço de memória, refere-se a isso with TFInnCad003.Create(Application) do muito provavelmente, quando voce tenta criar novamente o formulário, ele ainda não foi limpo da memória FreeAndNil(FInnCad003); abraço

tente o link novamente ... estava errado. abraço

agora que percebi .... onde esta o FormLogin.ShowModal ?

exemplos: http://www.planetadelphi.com.br/dica/7016/cronometro-simples http://www.planetadelphi.com.br/download/2...metro-em-delphi http://www.youtube.com/watch?v=QBP-Ec2XDgs http://www.youtube.com/watch?v=mso2wPwuisQ http://www.delphidicas.com.br/dicas/963/Cr...e-segundos.html abraço