Jhonas

não é assim ... abra o arquivo rtf com o boco de notas e coloque o conteudo aqui mas coloque até a parte onde aparece o email \red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0; \red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \snext0 Normal;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\*\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{ \s15\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 \sbasedon0 \snext15 \styrsid13449930 Normal (Web);}}{\*\pgptbl {\pgp\ipgp0\itap0\li0\ri0\sb0 \sa0}}{\*\rsidtbl \rsid74781\rsid145996\rsid409880\rsid491302\rsid555530\rsid590022\rsid662976\rsid738278\rsid753531\rsid817812\rsid855788\rsid860712\rsid883345\rsid918343\rsid1064756\rsid1129951\rsid1204038\rsid1207731\rsid1245295\rsid1256126\rsid1256420 \rsid1264792\rsid1314820\rsid1341409\rsid1404870\rsid1443197\rsid1455883\rsid1711590\rsid1713441\rsid1906023\rsid1911888\rsid1918732\rsid1924313\rsid1982237\rsid1995392\rsid2241344\rsid2373130\rsid2446099\rsid2456991\rsid2585705\rsid2586596\rsid2692739 \rsid2715696\rsid2841023\rsid3080899\rsid3161267\rsid3220625\rsid3231771\rsid3234900\rsid3238263\rsid3285654\rsid3479696\rsid3674595\rsid3812015\rsid3828222\rsid3831146\rsid3871329\rsid3886649\rsid4021754\rsid4206531\rsid4271735\rsid4272892\rsid4274347 \rsid4417645\rsid4419539\rsid4469708\rsid4469813\rsid4523505\rsid4527571\rsid4533332\rsid4617205\rsid4662860\rsid4793795\rsid4872977\rsid5249337\rsid5254112\rsid5317179\rsid5381045\rsid5393762\rsid5449565\rsid5506161\rsid5666723\rsid5849897\rsid6096588 \rsid6109479\rsid6167245\rsid6375589\rsid6378074\rsid6383991\rsid6450729\rsid6517769\rsid6556586\rsid6624970\rsid6696882\rsid6754294\rsid6756700\rsid6759719\rsid6832683\rsid6846112\rsid6961554\rsid7038864\rsid7099167\rsid7106380\rsid7164665\rsid7287218 \rsid7295228\rsid7355718\rsid7410346\rsid7682361\rsid7816134\rsid7896207\rsid7949849\rsid8021248\rsid8208731\rsid8259971\rsid8397922\rsid8540924\rsid8612711\rsid8656024\rsid8717022\rsid8855448\rsid8875563\rsid8985162\rsid9069532\rsid9141523\rsid9187354 \rsid9371828\rsid9377986\rsid9533652\rsid9643157\rsid9644950\rsid9656162\rsid9659369\rsid9702790\rsid9731244\rsid9780583\rsid9788753\rsid9858944\rsid9914902\rsid10098285\rsid10449712\rsid10562055\rsid10625848\rsid10639410\rsid10684838\rsid10764753 \rsid10836918\rsid11080514\rsid11209997\rsid11222778\rsid11278423\rsid11356088\rsid11413741\rsid11415623\rsid11429139\rsid11480377\rsid11537774\rsid11548532\rsid11558204\rsid11565499\rsid11671300\rsid11875149\rsid12018766\rsid12197678\rsid12283879 \rsid12413364\rsid12461850\rsid12529468\rsid12539021\rsid12649775\rsid12652768\rsid12744350\rsid12803282\rsid12848762\rsid12992181\rsid13184761\rsid13304151\rsid13443824\rsid13449930\rsid13507440\rsid13508262\rsid13581510\rsid13767223\rsid13773143 \rsid13778673\rsid13847269\rsid13913489\rsid13914331\rsid13965519\rsid13969092\rsid14047255\rsid14102109\rsid14106316\rsid14113283\rsid14178284\rsid14240413\rsid14382611\rsid14450137\rsid14559588\rsid14579916\rsid14625113\rsid14630522\rsid14632532 \rsid14642785\rsid14745858\rsid14767115\rsid14877898\rsid14885380\rsid14966402\rsid15018582\rsid15024226\rsid15025979\rsid15039288\rsid15151763\rsid15165481\rsid15205443\rsid15226619\rsid15283355\rsid15401243\rsid15494507\rsid15549672\rsid15694808 \rsid15695116\rsid15734858\rsid15756239\rsid15892170\rsid15953425\rsid16059256\rsid16278655\rsid16280356\rsid16347792\rsid16348859\rsid16467795\rsid16474749\rsid16524253\rsid16535995\rsid16591938\rsid16592240\rsid16660898\rsid16739689} {\*\generator Microsoft Word 10.0.2627;}{\info{\title eduardo@mail}{\author CYBER}{\operator CYBER}{\creatim\yr2015\mo5\dy22\hr16\min35}{\revtim\yr2015\mo5\dy22\hr16\min36}{\version1}{\edmins1}{\nofpages1}{\nofwords4}{\nofchars23}{\*\company PARTICULAR} {\nofcharsws26}{\vern16437}}\margl1701\margr1701\margt1417\margb1417 \deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\formshade\horzdoc\dgmargin\dghspace180\dgvspace180\dghorigin1701\dgvorigin1417 \dghshow1\dgvshow1\jexpand\viewkind1\viewscale75\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct\asianbrkrule\rsidroot8855448 \fet0\sectd \linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3 \pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}} {\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain \s15\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid13449930 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\insrsid13449930 eduardo@mail.com \par Trabalho \par }\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1046\langfe1046\cgrid\langnp1046\langfenp1046 {\insrsid11413741 \par }}

mostre o conteudo do rtf

te dei um exemplo para um arquivo... para fazer a leitura de mais de um arquivo, é simples, e deixo com voce essa parte abraço

ERRO: Required package 'DataSnapCommon' not found Pacote requerido não encontrado 'DataSnapCommon' faça uma pesquisa no seu micro antigo e procure por 'DataSnapCommon', depois é so fazer uma cópia do arquivo para micro novo e estará resolvido. abraço

Exemplo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ListView1: TListView; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ListItem: TListItem; // Criamos uma variável para guarda os itens do Listview implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var l: integer; line : string; Arquivo : TextFile; begin // CRIAR A COLUNA [0] COLOCAR O CAPTION E DEFINIR O TAMANHO ListView1.Columns.Add; ListView1.Columns[0].Caption := 'EMAIL'; ListView1.Columns[0].Width := 100; // CRIAR A COLUNA [1] COLOCAR O CAPTION E DEFINIR O TAMANHO ListView1.Columns.Add; ListView1.Columns[1].Caption := 'ASSUNTO'; ListView1.Columns[1].Width := 100; // Limpa o Conteudo Existente no ListView ListView1.Clear; // Adicionamos um Item ao ListView ListItem := ListView1.Items.Add; //Seleciona a primeira linha do ListView Listview1.ItemIndex := 0; // ABRIR O ARQUIVO RTF E LER AS 2 PRIMEIRAS LINHAS DO ARQUIVO l := 0; AssignFile(Arquivo, 'C:\MeuArquivo.rtf'); Reset(Arquivo); while not EOF(Arquivo) do begin l := l + 1; ReadLn(Arquivo, Line); if l = 1 then ListItem.Caption := Line; if l = 2 then ListItem.SubItems.Add(Line); end; CloseFile(Arquivo); end; end. OBS: faça as modificações para o seu uso abraço

Esse exemplo não ajudou muito pois uso DelphiXE7, E nesse exemplo o projeto foi feito em outra versão e esta faltando algumas Dll. eu te passei esse exemplo para que voce estude o codigo e entenda a lógia usada. ( voce pode aplicar isso ao seu código ) Todos com Banco de dados diferentes... Qual sua opinião a respeito disso? Será que esta Funcional?? ou seja essa logica esta certa,, Quero sua opinião sobre isto não seria de bom senso usar tabelas diferentes para a mesma coisa... isso compromete a performance do programa e prejudica a atualização e a manutenção dos dados. imagine o sequinte: uma tabela chamada "Estoque" onde voce cadastrou uma bebida "Cerveja" e no estoque voce colocou a quantidade de 10 em uma outra tabela usada para Saida de Produtos voce colocou que saiu esse produto "Cerveja" mas que a quantidade foi de 15 para atualizar a tabela "Estoque" voce teria que comparar os dados da Saida de Produtos com a tabela Estoque para atualizar a quantidade, certo ? então sua tabela "estoque ficaria com ( - 5 ) para esse produto ( Cerveja ) se voce simplesmente fizer como no código acima ( exemplo ) voce vai usar sempre a mesma tabela de produtos, adicionando ou retirando a quantidade de um produto ou adicionando um novo produto nela... dessa maneira voce terá sempre a sua tabela atualizada sem precisar fazer outro procedimento. OBS: Se o programa estiver funcional para voce entregar ao seu professor, então deixe como está ... entretanto, somente com a experiencia e entendimento sobre a programação, é que voce vai aprender que um programa pode ser muintissimo simplificado. abraço

veja se esse link te ajuda http://www.tutorialspoint.com/vb.net/vb.net_print_dialog.htm abraço

voce já leu o manual dela ? http://www.google.com.br/url?q=https://www.elgin.com.br/PortalElginAdm/Upload/DownloadPublico/Automacao/Manual%2520do%2520usu%25C3%25A1rio%2520L42.pdf&sa=U&ei=zpZbVdeEGMqWNsuRgLAL&ved=0CBwQFjAB&usg=AFQjCNH3su7d8hxt3Jv3Oi4CuheBvwuSaQ abraço

exemplo http://wiki.python.org.br/VerificadorDeCPF abraço

a lógica é: voce deve ter um form de cadastro de produtos .. certo ? nele voce coloca o código, a descrição do produto, a quantidade, o preço ... etc então voce deve ter tambem um form de vendas ou movimentação ou outro nome nesse form voce seleciona o produto e a quantidade que voce quer que seja retirado do cadastro de produto nesse form voce terá um botão, que irá processar esse evento.... ou seja, voce terá que ler os itens de produto pelo código, pesquisar na tabela de produtos esse código, e achando o código, voce vai diminuir a quantidade que esta nessa tabela seria tipo isso: procedure TForm1.Button1Click(Sender: TObject); begin //VERIFICAR PRODUTOS NO ESTOQUE CDS_Moviment.First; if (botao = 1) then begin CDS_Moviment.First; Gauge1.MaxValue := CDS_Moviment.RecordCount; for i := 1 to CDS_Moviment.RecordCount do begin // PROCURAR O PRODUTO PELO CODIGO CDS_Cadprod1.Active := false; CDS_Cadprod1.Params[0].AsString := trim(CDS_MovimentCODPRO.Value); CDS_Cadprod1.Active := true; CDS_Cadprod1.Refresh; if CDS_Cadprod1COD_PRODUTO.Value = CDS_MovimentCODPRO.Value then begin CDS_Cadprod1.Edit; // DAR BAIXA NO ESTOQUE CDS_Cadprod1QUANT.Value := CDS_Cadprod1QUANT.Value - CDS_MovimentQUANT.Value; CDS_Cadprod1ESTOQUE_ATUAL.Value := CDS_Cadprod1QUANT.Value; CDS_Cadprod1VAL_TOTAL.Value := CDS_Cadprod1VAL_UNIT.Value * CDS_Cadprod1QUANT.Value; // SALVAR AS ALTERAÇÕES NO ESTOQUE CDS_Cadprod1.ApplyUpdates(-1); //CDS_Cadprod1.Refresh; end; end; end; end; OBS: nesse link tem um exemplo prontinho de Cadastro de Produtos e Controle de Estoque http://www.planetadelphi.com.br/delphi/exemplos/completos/00000818.rar abraço

nesse link http://dev.mysql.com/doc/refman/5.5/en/tutorial.html abraço

não tenho esse componente, mas voce deve contar por grupo exemplo http://stackoverflow.com/questions/22889059/cxgrid-boolean-type-group-summary-item ou tente esses links http://www.google.com.br/search?hl=pt&source=hp&q=cxgrid+group+count&gbv=2&o que=cxgrid+count+&gs_l=heirloom-hp.1.2.0i22i30l10.1804.25385.0.31777.158.43.1.1.1.14.427.6679.6j12j6j5j3.32.0.msedr...0...1ac.1.34.heirloom-hp..147.11.1992.JGxBSHa0BTc http://www.google.com.br/search?q=cxgrid+count&hl=pt&gbv=2&o que=cxgrid+count&gs_l=heirloom-serp.3...253957.254609.0.255041.5.5.0.0.0.0.0.0..0.0.msedr...0...1ac.1.34.heirloom-serp..5.0.0.xNJSELpCU_o abraço

exemplo http://www.planetadelphi.com.br/dica/6430/ordenar-lista-de-strings OBS: voce não foi explicito em dizer se a ordenação é em um campo da tabela ou não abraço

veja esse link http://www.devmedia.com.br/forum/barra-de-rolagem-no-form/16145 abraço

é usado para fazer cópias... basta simplesmente declarar uma referência do tipo apropriado e, em seguida, atribuir isso ao objeto que está sendo copiado através de um comando de atribuição ( Assign ) ou é um método utilizado para copiar propriedades semelhantes em objetos diferentes, como TStringList e TStrings, e também fazer uma nova cópia de dados de objetos em vez de fazer dois pontos de referências do objeto para a mesma instância exemplo: Lista2:= TStringList.Create; Lista1:= TStringList.Create; Lista2.Add('Meu Texto'); Lista1:= Lista2; Usando Assign, uma cópia dos dados Lista2 será movida para um local separado que já está apontada por List1: Lista2:= TStringList.Create; Lista1:= TStringList.Create; Lista2.Add('Meu Texto'); Lista1.Assign(Lista2); Neste caso, liberando ou modificado qualquer uma das instâncias (Lista1, Lista2) não afeta a outra. abraço

Se 'info' for um campo tipo Blob var arquivo:TStringList; begin arquivo := TSTringList.Create; arquivo.Add('.........'); ClientDataSet_teste.Insert; ClientDataSet_teste.FieldByName('info').Assign(arquivo); ClientDataSet_teste.post; ClientDataSet_teste.ApplyUpdates(0); abraço

OBS: Cuidado com presente de Grego E envie apenas 2 documentos * Uma cópia de um documento de identidade (RG, Passaporte ou Carteira de Habilitação...que contenha o seu Nome Completo, Data de Nascimento e Data de Validade) * Um comprovante residencial (Conta de Água,Luz,Telefone,Extrato Bancário,etc...que contenha o seu Nome Completo, Endereço Residencial e que tenha sido emitido dentro de 6 meses)

explique em detalhes o procedimento para executar o SHOW SLAVE STATUS qual o caminho para o executavel e o restante do procedimento

Comprei um pendrive hp de 1 tb ???? é mesmo um pendrive ??? com esse tamanho ???

exemplos http://www.planetadelphi.com.br/dica/7146/-imprimir-conteudo-de-um-memo-%28simples-e-facil%29- http://www.devmedia.com.br/imprimindo-o-conteudo-de-um-memo-de-um-tmemo-ou-um-tlistbox/2658 http://www.tecnobyte.com.br/dica3.html?pagina=dica3.html http://www.edudelphipage.com.br/dicas_texto.php?cod=000448&categoria=15&busca= abraço

existe muito material disponivel na net, mas começe por esse http://juliobattisti.com.br/tutoriais/acaciocosta/logicaalgoritmos001.asp outros http://www.google.com.br/search?q=tutorial+de+algoritmos&hl=pt&gbv=2&o que=tutorial+de+algoritmos&gs_l=heirloom-serp.3..0i19l3j0i22i30i19l7.210166.214417.0.222597.22.22.0.0.0.0.313.2811.9j10j0j3.22.0.msedr...0...1ac.1.34.heirloom-serp..5.17.1553.rTnzSGekRug abraço

acho que voce não sacou o uso do DbLookupComboBox1 o DbLookupComboBox1 trava em um registro pelo campo ... por isso quando voce clica em um outro item do DbLookupComboBox1, os outros ( DbLookupComboBox ) que estão linkados à mesma tabela, tambem vão apontar para o mesmo registro. Quero saber se tem como os nomes dos DbLookupcombox ficar Visivel mesmo clicando nos três com esse componente não ( se os valores estiverem em registros diferentes na mesma tabela ) voce terá que optar por usar outro componente ... tipo o Combobox ... só que nesse caso, voce tem que popular ( inserir ) os dados nele ( strings ) lendo a tabela e jogando os valores que voce quer nele. Depois voce pode escolher os itens independente dos outros. isso tambem vai requerer que voce tenha um pouco mais de experiencia em programação ... como sugestão, voce deveria ver o exemplo que te passei ... pode ser que voce tenha outras ideias abraço

exemplos https://github.com/thiagomiranda3/JBiblioteca https://github.com/MelissaLobo/Biblioteca http://www.robsonmartins.com/inform/java/persistencia.php abraço

voce tem que armazenar o valor do calculo para depois soma-lo procedure TForm1.Button1Click(Sender: TObject); VAR A,B,C,D :Real; begin A:=strtofloat(Edit7.Text); B:=Strtofloat(Edit8.Text); C:=(B*A); D := D + C; Edit9.Text:=FloattoStr(D); end; tem um exemplo pronto de sistema para lanchonete ... se quiser dar uma olhada, pode aprender mais http://www.planetadelphi.com.br/delphi/exemplos/completos/00003947.zip abraço

Seja bem vindo ao Forum ... OBS: Favor postar suas duvidas no forum correto abraço