Progr'amador

Olá, Verifique esses linhas: 1º - Substitua a select por essa: Query1.SQL.Add('SELECT * FROM produtos WHERE Codigo = '+''''+VCodigo+''''+''); ou essa: Query1.SQL.Add('SELECT * FROM produtos WHERE Codigo = '+#39+VCodigo+#39); 2º - Os três últimos If's estão incompletos, tipo assim: if Table_produto.Fieldbyname('Categoria').value = 'ALGUMA COISA' then RadioButton_Ele.Checked := true; Abs. Progr'amador.

Olá Bruno, De uma olhada nesse código: function Valida_CMC7(Entrada:String) : Boolean; var campo1, campo2, campo3 : String; begin Entrada := SoNumero(Entrada); campo1 := Copy(entrada,1,7); campo2 := Copy(entrada,9,10); campo3 := Copy(entrada,20,10); Result := True; if Modulo10(campo1) <> Copy(Entrada,19,1) then Result := False Else if Modulo10(campo2) <> Copy(Entrada,8,1) then Result := False Else if Modulo10(campo3) <> Copy(Entrada,30,1) then Result := False; end; Abs. Progr'amador.

Olá, esse programa é Shareware, de uma olhada nesse: http://superdownloads.ubbi.com.br/download/i10499.html é por 30 dias. Abs. Progr'amador.

Olá, Qual a versão do seu delphi? Procure na net um componente chamado TrayIcon, no Google é bem fácil encontrar. Abs. Progr'amador.

Olá, você pode usar o BDE. Abs. Progr'amador.

Olá, acho que sua resposta está nesse tópico. Primeiros Passos Manipulação De Tabelas Abs. Progr'amador.

Qua versão do seu delphi? Abs. Progr'amador.

Olá Lenerton_sc, Respondendo sua primeira pergunta >>Use esse exemplo o fonte do seu projeto: program Project1; uses Forms, Windows, Dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} Var HprevHist : HWND; begin Application.Initialize; HprevHist := FindWindow(Nil, PChar('Titulo do Aplicativo')); if HprevHist = 0 then begin Application.Title := 'Titulo do Aplicativo'; Application.CreateForm(TForm1, Form1); Application.Run; end else MessageDlg('Você não pode executar outra cópia do aplicativo', mtInformation, [mbOK], 0); end. e respondendo a segunda, >>No link abaixo tem sua resposta: http://scriptbrasil.com.br/forum/index.php?showtopic=36903 Abs. Progr'amador.

Olá galera, estou abrindo essa pequena enquete, só pra saber qual a gelera mais usa. E dê sua Opnião. OK!!!! Abs. Progr'amador.

Olá Nosdaj, como eu havia falado, eu nunca usei esse tipo de arquivo, na verdade eu nem sei a sua finalidade. Abs. Progr'amador.

Olá, você poderia usar variável em vez do edit. Posta o código que você ta usando ae, fica mais fácil pra ajudar, ae eu digo como usar a variável. Abs. Progr'amador.

Não sei se entendi direito sua duvida, mas tenta usar assim: Order by valor1, valor2, valor3, valor4, valor5, valor6 Abs. Progr'amador.

Olá Gladiador, eu acho que a pergunta refere-se a alterar registro da tabela, que seria o UPDATE NOME_TABELA SET CAMPO = 'VALOR' Abs. Progr'amador.

Retorna o Ultimo Registro: select max(campo_id) from tabela Abs. Progr'amador.

Olá Nosdaj, NA verdade eu nunca usei esse tipo da arquivo (CSV), no entanto, o pouco que já ouvi, posso te dizer que é mais fácil e viável trabalhar com arquivo texto (TXT), se houver possibidade, te aconselho a usar TXT. Outra coisa: Qual é a diferença entre elhes? o que esse CSV faz? na verdade eu nunca vi um arquivo desse, só ouvi falar. Abs. Progr'amador.

Olá, ai vai com código que converte icone p/ bimap, só que o inverso(bitmap p/ icone) eu num sei não. Adinione dois TImage e um TButton do Form, na mesma pasta do projeto coloque um arquivo *.ico, no exemplo to usando um icone com o nome: 'Aviso.ico'. No onCreate do Form coloque: Image1.Picture.Icon.LoadFromFile('Aviso.ico'); no button: procedure TForm1.Button1Click(Sender: TObject); var winDC, srcdc, destdc : HDC; oldBitmap : HBitmap; iinfo : TICONINFO; begin GetIconInfo(Image1.Picture.Icon.Handle, iinfo); WinDC := getDC(handle); srcDC := CreateCompatibleDC(WinDC); destDC := CreateCompatibleDC(WinDC); oldBitmap := SelectObject(destDC, iinfo.hbmColor); oldBitmap := SelectObject(srcDC, iinfo.hbmMask); BitBlt(destdc, 0, 0, Image1.Picture.Icon.Width, Image1.Picture.Icon.Height, srcdc, 0, 0, SRCPAINT); Image2.Picture.Bitmap.Handle := SelectObject(destDC, oldBitmap); DeleteDC(destDC); DeleteDC(srcDC); DeleteDC(WinDC); Image2.Picture.Bitmap.SaveToFile(ExtractFilePath(Application.ExeName)+'myfile.bmp'); end; Esse exemplo irá criar o 'myfile.bmp'. Abs. Progr'amador.

Ps.: Estou usando o D7... hencker, eu tambem to usando o D7, e funciona legal. Abs. Progr'amador.

Paulo, Retornou uma data sim, só que eu fiz o teste em duas máquimas e o resultado foi o mesmo: Data da Bios: 01/03/02 Por isso, não posso garantir que esse código ta correto. Ok! ____________________________________________________________ hencker, Que erro deu ae??? Abs. Progr'amador.

HeHeHe é mesmo!!! caramba, estou muito desatento , desculpa, vou procurar ficar mais atento agora. foi mal........ Abs. Progr'amador.

Ae Galera, então teste esse código ai, testei em dois computadores e o resultado foi o mesmo: 01/03/02. procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := 'Data da Bios: '+String(PChar(Ptr($FFFF5))); end; Abs. Progr'amador.

Olá Nosdaj, Eu sou meio cabeça dura pra entender as coisas mesmo . Ai vai um codigo que grava valores de três Edits em um arquivo texto, lembrando que ele grava como se fosse uma tabela mesmo, vamos supor que você tenho inserido tres registros, quando você for inserir outros registro, será inserido abaixo das linhas já existentes. procedure TForm1.Button1Click(Sender: TObject); var ArquivoLinha : array[1..100] of String; ArqTxt : TextFile; Linha, FormaLinha : string; i, iX, nX : Integer; begin AssignFile(ArqTxt,'C:\Meus documentos\arquivo_texto.txt'); Reset(ArqTxt); i := 0; while not eof(ArqTxt) do begin i := i + 1; Readln(ArqTxt, Linha); ArquivoLinha[i] := Linha; end; Linha := ''; Closefile(ArqTxt); iX := i; AssignFile(ArqTxt, 'C:\Meus documentos\arquivo_texto.txt'); Rewrite(ArqTxt); nX := 0; for i := 0 to iX do begin nX := nX + 1; FormaLinha := ArquivoLinha[nX]; if FormaLinha <> '' Then Writeln(ArqTxt, FormaLinha); end; FormaLinha := Edit1.text; Linha := Linha + FormaLinha; FormaLinha := Edit2.text; Linha := Linha + FormaLinha; FormaLinha := Edit3.text; Linha := Linha + FormaLinha; Writeln(ArqTxt, Linha); CloseFile(ArqTxt); end; Detalhe: Para esse caso o arquivo terá que ser criado antes de executar esse código. Qualquer dúvida posta ae, falou!!! Abs. Progr'amador.

Certo! faça o teste ae, depois posta aki, falou!!! Abs. Progr'amador.

Ops!!!, Perae!!! Agora que percebi, a mesma query que ta execultando o Insert e Update, você ta execultando um Locate??? Voce teria que usar uma outra query pro Locate, uma que use o Select. Abs.

Tira essa linha: if not (DM.QueryControle.Active = true) then begin DM.QueryControle.Active := true; end; Abs. Progr'amador.

Olá, Esse valiavel Float ira receber valores fracionados (tipo assim: 1.211), ou mesmo sendo float ira receber somente valores inteiros? Abs. Progr'amador.