Progr'amador

Olá Arlon!, É tipo assim: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } function RemoveAcentos(Str: String): String; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function TForm1.RemoveAcentos(Str: String): String; Const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ'; SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU'; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)<>0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := RemoveAcentos(Edit1.text); end; end. fwl!!!

var valor : real; begin valor := 1,2335644871268; Edit1.text := FormatFloat('0.00',valor); Isso para o tipo Float. Integer como o nome já diz é inteiro, não há casas decimais. falou!!!

Olá romario! ver se essa dica serve pro seu caso. procedure TForm1.Button1Click(Sender: TObject); var valor1 : real; valor2 : integer; begin valor1 := 53.56; valor2 := 5; Edit1.Text := FormatFloat('0.0000',valor1); Edit2.Text := FormatFloat('000',valor2); end; Qualquer dúvida, posta ae!

Ai vai: Edit1.Text := DateToStr(DateTimePicker1.Date);

Resolvido...

var ano: string; begin ano := Copy(Edit1.text,7,4); falou!!!

beleza! agora eu entendi! Pra isso você tem que usar o componente Query. Ficar +ou- assim: Num button(por exemplo) você coloca: Query1.Close; Query1.Sql.Clear; Query1.Sql.Add('Select * from tabela'); Query1.Sql.Add('Where campo_data between :dt_inicio and :dt_fim'); Query1.ParamByName('dt_inicio').AsString := Edit1.text; Query1.ParamByName('dt_fim').AsString := Edit2.text; Query1.Open; Estou usando dois Edit's para informar o perído. qualquer coisa posta ae, falou!!!

descupa! mas num deu pra enteder não!!! se você puder explicar melhor, quem sabe eu possa de ajudar, amigo. qual o banco de dados que você ta usando? você já tem o projeto e o form onde deseja fazer a consulta?

problema resolvido, tópico fechado...

Na propriedade CharCase do Edit, escolha a opção 'ecUpperCase'.

Isso mesmo colega, sempre que usar os comandos: Insert, Delete e Update. abs... Fechando...

Tenho um exemplo que fecha pelo título do aplicativo, nesse caso do internet explorer eu acho não vai funcionar , esse exemplo fecha a calculadora do windows. procedure TForm1.Button1Click(Sender: TObject); var MinhaHandle: THandle; begin MinhaHandle:=FindWindow(nil, 'Calculadora'); SendMessage(MinhaHandle, WM_CLOSE, 0, 0); end;

Ola bérne, Dê uma olhada nesse código: procedure TForm1.Button1Click(Sender: TObject); var Hora : String; I : Integer; F : Real; begin Hora := '03:50'; I := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2)); F := I / 30 * 40; Edit1.Text := FormatFloat('0.00',F); end; Qualquer coisa, posta ae, falou!!!

Olá Arlon, Tenta usar isso: DM.QrDeleteItens.Sql.Clear; DM.QrDeleteItens.Sql.Add('Delete From Itens'); DM.QrDeleteItens.Sql.Add('Where Cod_Leilao =:Cod_LeilaoBusca and Cod_Cliente =:Cod_ClienteBusca'); DM.QrDeleteItens.ParamByName('Cod_LeilaoBusca').AsString := Edit1.Text; DM.QrDeleteItens.ParamByName('Cod_ClienteBusca').AsString := Edit2.Text; DM.QrDeleteItens.ExecSQL; falou!!!

Como usar o Install Shield Supondo que você fez um sistema, que está no diretório C:\Contas, deixe apenas o Arquivo executável .exe e as suas tabela .db (para Arquivoc Paradox) e os arquivos de índice que são de extensão *.PX e *.XG0. Se você possui imagens coloque as também. Supondo ainda que você queira instalar o seu programa no diretório C:\ContasNew. 1) Na primeira tela, escolha a opção Create a new Setup Project 2) Na segunta tela (New Project), na caixa Project Name escreva o nome que quer dar em seu Projeto (Ex. ContasNew) 3) Clique em Create 4)Na lista que irá aparecer clique no 1º botão (Application Informatio) 5)Clique no botão Browse, e escolha o executável, no meu caso será o Contas.exe que está dentro do diretório C:\Contas 6)Na opção Defalt Destination Directory deixe apenas C:\ContasNew, se quizer que seja instalado dentro do diretório Arquivos de Programa deixe como ao lado \ContasNew 7)Clique em OK 8)Clique na opção General Options, clique no DBE (Borland DataBase Engine) 9)Irá aparecer uma segunda tela, clique em avançar. 10) Se no seu programa você utiliza um alias para se referenciar as suas tabelas, clique em New você terá que digitar o nome do seu Alias e depois clique em OK 11) Clique em Avançar, escolha (marque a opção) Save .CFG file for....... 12) Clique em Avançar. No campo Path digite o caminho de suas tabelas (C:\ContasNew) 13) No campo Type, escolha o tipo de Tabela que você usou (Paradox) 14) Clique em avançar, depois em Concluir e depois em OK. 15) Clique no botão Groups and Files. 16) Clique sobre a pasta Program Files. 17) Clique em Launch Explorer, irá aparecer o Explorer do windows. Entre no diretório que estão os seus arquivos *.exe, *.db, *.PX e etc) 18) Selecione todos os Arquivos (Tecla Shift pressionada) 19) Após selecionados os arquivos, arraste-os para a barra de tarefas, em cima do Icone do InstallShield, ele será maximizado e você colocará os arquivos no espaço em branco do File Groups . 20) Clique em OK (neste monento, o DBE e todos os seus arquivos já estão configurados). 21) Clique no botão Dialog Boxes. Iremos montar as telas que irão fazer a interface com o usuário na hora da instalação. 22) Selecione apenas a opção Welcome Message (2º), Select Program Folder e a opção Setup Complete (Última opção) 23) Clique em OK. 24) No final da página clique em Click Here for page 2 25) Clique no botão de Disk Builder 26) Escolha o tamanho dos disquetes Disk Syze (1.44), depois clique em Build 27) Depois de pronto o disco, clique em Close. (Criamos no mínimo 3 discos, pois o DBE ocupa 3 discos e mais o nosso programa). 28) Se você quiser testar se a instalação está correta, clique em Test Run. 29) Para copiar os discos de instalação, clique em Copy to Floppy. 30) Selecione o disco que você quer copiar ou selecione todos os discos em Copy All Disk ..... E selecione para que drive será copiado os discos de instalação. 31) Pronto. Os seus discos de instalação já estão copiados.

Se você gosta de usar esse monte de aspas , faça assim: qlogin.Close; qLogin.Sql.Clear; qLogin.Sql.Add('select * from Login '); qLogin.Sql.Add('where Usuario ='+''''+txtUsuario.text+''''+''); qLogin.SQL.Add('and Senha = '+''''+txtSenha.text+''''+''); qLogin.Open; ou então use parametros: qlogin.Close; qLogin.Sql.Clear; qLogin.Sql.Add('select * from Login '); qLogin.Sql.Add('where Usuario = :usuario '); qLogin.SQL.Add('and Senha = :senha '); qLogin.ParamByName('usuario').AsString := txtUsuario.text; qLogin.ParamByName('senha').AsString := txtSenha.text; qLogin.Open; falou!!!

Olá, Com relação a chave key, o melhor é você criar um campo autonumerico. Tipo assim: Mas já que você tá praticamente començando tudo dinovo porque você não usa o Firebird??? no site do capablanca tem tutoriais bem detalhados sobre o assunto.

Que tipo de problema você teve na criação das tabelas? E como assim? o Delphi não aceita campos money, date, alpha...

Olá Arlon, Porque você não dá um insert na tabela de ITENS_EXCLUIDOS inserindo os mesmo valores do registro selecionado da tabela ITENS e depois um delete no item dessa tabela.

Dê dois cliques no Table, será exibido uma "caixa", clique com o botão direito e clique na opção Add fields..., será exibido a lista dos campos ta tabela, defina a pripriedade currency desse campo como TRUE. se não der certo, nas propriedes DisplayFormat e EditFormat coloque: R$ 0,00. falou!!!

a opção Active do Table tá True???

Se você estiver usando Query verifique o opção RequestLive, tem que está 'True'. para escrever no dbedit.

Que componentes você está usando pra abrir a tabela?

Uffa! enfim Resolvido...

Olá Ewerton, feliz aniversário! Tire o "C:\" assim: $(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib