Jump to content

eduardofaneli

Members
  • Content count

    4
  • Joined

  • Last visited

Community Reputation

0 Comum

About eduardofaneli

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    Cuiaba-MT

Contato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. eduardofaneli

    Gravando dados do formulario

    ADOQuery1.Close; ADOQuery1.SQL.Add('INSERT INTO tbclientes (cliempresa) VALUES (:empresas)'); ADOQuery1.SQL.ParamByName('empresas').AsString := edtempresacli.text; ADOQuery1.ExecSQL; ShowMessage('Registros gravados !!!'); tenta assim!
  2. eduardofaneli

    Calculo Datas

    Olá Alex boa tarde, Para pegar o intervalo em dias entre as datas você pode estar utilizando o seguinte código. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.DateUtils, Vcl.StdCtrls, Vcl.ComCtrls; type TForm1 = class(TForm) DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text := IntToStr(DaysBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime)); end; end. Espero ter ajudado att.
  3. eduardofaneli

    Duvida atualizar varias tabelas verificando data do sistema com data cadastrada..

    Olá Murilo boa tarde, Poderia explicar melhor o seu cenário e oque você deseja fazer, pois sua explicação ficou um pouco fragmentada
  4. eduardofaneli

    Ler arquivo XML no delphi

    Olá marcosesser boa tarde, Bom existem várias formas de obter o valor das tag's de um XML, mas ai vai uma: Bom não sei se é exatamente oque você precisa, mas fiz o seguinte código onde você informa o XML em um memo e a tag que deseja buscar em um edit ou variável e a clica no botão que irá extrair em outro memo os valores da tag procurada. unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; edtTag: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin for I := 0 to Memo1.Lines.Count -1 do if pos(Trim(edtTag.Text), memo1.Lines[I]) > 0 then memo2.Lines.Add(StringReplace(copy(memo1.Lines[I], pos(Trim(edtTag.Text), memo1.Lines[I]), pos('</', memo1.Lines[I]) -1), Trim(edtTag.Text), EmptyStr, [rfReplaceAll])) end; end. Espero ter ajudado, abraços.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.