Jhonas

Já pesquisou no forum ? tem varios posts relacionados com o envio de email http://scriptbrasil.com.br/forum/index.php...te=enviar+email abraço

A idéia é marcar 2 figuras e arrastar com o mouse e soltar em outro lugar ? que nesse caso seria outro componente Image ? abraço

Para que voce entenda a lógica, coloque esse conteudo em um memo, o codigo abaixo irá selecionar deletar somente os códigos repetidos com diferença acima de 10 minutos procedure TForm1.Button1Click(Sender: TObject); var i,j : integer; hora, nome1, nome2 :string; hor1, hor2 : TTime; begin for i := 0 to Memo1.Lines.Count-1 do begin if pos(':',Memo1.Lines.Strings[i]) > 0 then begin nome1 := (copy(Memo1.Lines.Strings[i],1,20)); hora := (copy(Memo1.Lines.Strings[i],pos(':',Memo1.Lines.Strings[i])-2,8)); hor1 := strtotime(hora); if i = 0 then begin hor2 := hor1; nome2 := nome1; end; if i > 0 then begin if (hor1+strtotime('00:10:00') > hor2) and (nome2 = nome1) then Memo1.Lines.Delete(i); nome2 := nome1; hor2 := hor1; end; end; end; end; OBS: O principio é o mesmo usando um banco de dados abraço

veja no help do delphi o comando TRIM abraço

Veja esse post http://scriptbrasil.com.br/forum/index.php...st&p=480522 abraço

No link abaixo voce podera ter uma idéia de como montar http://www.csimaster.com.br/codigofonte/masterpizza2008/ Um pequeno sistema de pizzaria feito em delphi 5, com access utilizando componentes rxlib http://www.planetadelphi.com.br/downloading/1073 abraço

exemplo: procedure TFAcoes.BitBtn2Click(Sender: TObject); var i : integer; begin if MessageDlg('Deseja Apagar Todos os Registros ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Gauge1.Visible := true; Gauge1.MaxValue := CDS_Cadastro.recordcount -1; CDS_Cadastro.First; for i := 0 to CDS_Cadastro.recordcount -1 do begin CDS_Cadastro.delete; Gauge1.Progress := i + 1; end; CDS_Cadastro.ApplyUpdates(-1); Gauge1.Visible := false; end; end; OBS: voce pode trocar o Gauge pelo ProgressBar abraço

supondo que no Edit2 esteja o caminho para a pasta ... exemplo: 'C:\Dados\' e o Edit8 esteja o nome do arquivo .... exemplo: 'Cabecalho.txt' ficaria assim procedure TForm1.Button1Click(Sender: TObject); begin richedit1.Lines.SavetoFile(Edit2.Text + Edit8.Text); // 'C:\Dados\Cabecalho.txt' end; este comando salvaria o arquivo Cabecalho.txt no drive C: na pasta Dados com o conteudo do RichEdit abraço

exemplo com Memo procedure TForm1.Button1Click(Sender: TObject); var Line : string; Arquivo : TextFile; begin // LER O CONTEUDO DO ARQUIVO DADOS.TXT AssignFile(Arquivo, 'C:\DADOS.txt'); Reset(Arquivo); while not EOF(Arquivo) do begin Readln(Arquivo, Line); Memo1.Lines.Append(Line); end; CloseFile(Arquivo); end; procedure TForm1.Button2Click(Sender: TObject); var Line : string; Arquivo : TextFile; begin // SALVAR O CONTEUDO DO MEMO1 NO ARQUIVO DADOS.TXT Line := Memo1.Lines.Text; AssignFile(Arquivo, 'C:\DADOS.txt'); Rewrite(Arquivo); Writeln(Arquivo, Line); CloseFile(Arquivo); showmessage('Conteudo do Memo1 foi salvo!'); Memo1.Clear; end; abraço

a idéia seria essa.... imagino que voce esteja usando um dbgrid. nesse caso ao clicar no campo CDSItens_VendaCancelado, o valor atribuido ( S ) deveria ficar lá ... isso para cada campo que voce deseja colocar esse valor. para que manter um registro cancelado no sistema ? se voce não vai usa-lo para outra coisa, então delete. outra coisa: CDSItens_Venda.SaveToFile continuou alterando apenas o último registro para 'S' este comando salva a ultima ocorrencia na tabela antes do comando Post exemplo: se voce alterar 5 registros e não der o comando Post, somente o ultimo registro ficara com a alteração abraço

Observe que, se esse código estiver em um botão, e sempre que voce clicar nesse botão, vai acontecer sempre a mesma coisa... ou seja, deixa o clientdataset em modo de edição, passa o valor para CDSItens_VendaCancelado = S e depois salva outra coisa: quando voce diz, pressionar delete é para deletar ou simplesmente marcar com um S nesse registro ? se for para marcar com um S, deveria estar esse código no evento OnKeyPress ... entretanto voce só deve salvar depois que não for marcar mais nenhum outro registro. abraço

exemplo: procedure TForm1.Button1Click(Sender: TObject); var Line : string; num : integer; Arquivo : TextFile; begin // LER O CONTEUDO DO ARQUIVO DADOS.TXT num := 0; AssignFile(Arquivo, 'C:\DADOS.txt'); Reset(Arquivo); while not EOF(Arquivo) do begin num := num + 1; Readln(Arquivo, Line); if num = 1 then edit1.Text := Line; end; CloseFile(Arquivo); end; procedure TForm1.Button2Click(Sender: TObject); var Line : string; Arquivo : TextFile; begin // SALVAR O CONTEUDO DO EDIT1 NO ARQUIVO DADOS.TXT Line := Edit1.Text; AssignFile(Arquivo, 'C:\DADOS.txt'); Rewrite(Arquivo); Writeln(Arquivo, Line); CloseFile(Arquivo); showmessage('Conteudo do Edit1 foi salvo!'); Edit1.Clear; end; abraço

porque voce não coloca o código todo do evento, não dá pra adivinhar o motivo do erro abraço

Para esse erro não acontecer use: ENDERECO VARCHAR (60) character set WIN1252 collate WIN1252, abraço

ainda preciso saber como faço para esse cod. procurar e substituir palavras no meio do texto e não apenas no começo das frases. veja esse http://scriptbrasil.com.br/forum/index.php...st&p=530922 abraço

limpe os contatos da placa de memoria com uma borracha macia e depois faça teste abraço

veja alguns desses posts http://scriptbrasil.com.br/forum/index.php...ite=findreplace abraço

Aff Jhonas, nunca + vo te desobedecer Douglas, eu não me lembro de ter dado nenhuma ordem ... (risos) mas se conseguiu resolver, legal ! abraço

Funciona sim... veja o que voce pode estar fazendo de errado ... olhe o código com mais cuidado abraço

Porém quando ele envia o 1º arquivo e vai começar enviar o segundo ele dá erro de ReadTimeOut não houve tempo suficiente para finalizar o envio do 1° antes de enviar o proximo ... por isso o erro voce tem que controlar o tempo de envio ... somente depois disso será possivel o envio do proximo da lista abraço

Eu estou querendo desenvolver um programa agora, mas, so tem um probleminha... To seim ideia do q fazer O tipo de programa depende muito do seu nivel de conhecimento na linguagem pode ser de um simples relogio despertador, um jogo, um sistema de backup, um sistema que lê e fala em portugues ou ingles um texto digitado, etc.. etc... abraço

Favor Pesquisar no forum antes de postar a sua dúvida http://scriptbrasil.com.br/forum/index.php...st&p=528172 ou pesquise pela palavra resolução abraço

Douglas ... o evento OnDrawColumnCell por si só já é um loop infinito, então não é uma boa pratica usar um ( For ) dentro dele tente usar como coloquei naquele exemplo abraço

nesse link tem um exemplo http://www.expertaccess.com.br/forumnew/fo...D=7596&PN=2 abraço

Já leu esse post ? http://scriptbrasil.com.br/forum/index.php...st&p=615207 abraço