Jhonas

Veja a correção do código var cartas:array[1..7]of string; x,i,cont,tm:integer; texto:string; Begin texto:='1.34.51.15.4.37.10'; x:=0; cont:=1; tm:=length( texto ); while(cont <= tm)do begin if(texto[cont] = '.')then begin x:=x+1; cartas[x]:=''; cartas[x]:= cartas[x]+''+Copy(Texto, 1, cont-1); delete(Texto,1,cont); cont:= 1; end else begin cont:=cont+1; if cont > tm then begin x:=x+1; cartas[x]:= cartas[x]+''+Copy(Texto, 1, cont-1); Break; end; end; end; writeln(cartas[1]); writeln(cartas[2]); writeln(cartas[3]); writeln(cartas[4]); writeln(cartas[5]); writeln(cartas[6]); writeln(cartas[7]); readln; End. abraço

Sim ... se houver mesmo essa necessidade da tabela SubTRelFinal_sub_Med ter os mesmos dados da tabela TabelaBusca_Sub, é mais facil voce deletar ela toda e depois jogar todos os registros da tabela TabelaBusca_Sub, sem ter que ficar controlando as duas. abraço

exemplo de convesão de strings: procedure TForm1.Button1Click(Sender: TObject); var PrecoCompra, PrecoVenda : real; begin PrecoCompra := strtofloat(Edit1.Text); PrecoVenda := strtofloat(Edit2.Text); Edit3.Text := floattostr(PrecoVenda - PrecoCompra); end; caso ainda tenha duvidas procure no help do delphi ( F1 ) abraço

Isso é um trabalho de escola ?

A sua idéia é: Tabela1 = TabelaBusca_Sub Tabela2 = SubTRelFinal_sub_Med Se a tabela1 tiver mais registros que a tabela2 então atualizar os dados da tabela2 ou inserir registros se necessario Se a tabela2 tiver mais registros que a tabela1 então deletar registros da tabela1 --------------------------------------------------------------- Porque não usar apenas uma tabela e usar sql para filtrar os registros que deseja ? a maneira como deseja fazer, deixa redundante o processamento, mantento os mesmos dados em 2 tabelas. abraço

O primeiro refere-se a erro de conversão para a string Mause ( se Mause é uma string voce pode estar tentanto atribuir um valor numerico a ela, sem fazer a conversão do numero para uma string ) o segundo refere-se a erro de conversão para a string ''''' ou seja voce colocou apostrofes a mais abraço

Veja esses links http://www.oficinadanet.com.br/artigo/729/usando_triggers http://www.macoratti.net/sql_trig.htm http://www.comunidade-firebird.org/cflp/do...s/CFLP_T003.PDF http://fernandomedeiros.com.br/blog/contro...ndo-trigger-23/ abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=rave+reports abraço

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

A idéia é essa, salvar o screen shot mas somente da area do TImage veja este doc vai ajuda-lo http://www.cni.unc.br/informatica/apostila...e%20Bitmaps.doc faça tambem uma pesquisa no forum... tem algo relacionado ao que esta querendo abraço

// valor inacessivel o seu DM.QLogin pode estar fechado procure usar o debug do delphi para verificar o que está ocorrendo abraço

voce está querendo programar do jeito mais dificil ... na mesma unit voce faz isso ( incluir, alterar, excluir, imprimir, salvar ou cancelar ) e num dbgrid voce verá todos os registros da tabela. abraço

Então o negocio é voce aprender a usar o componente BioCertLite LITE VERSION (Limitation to 10 finger templates) OBS: se o objetivo for apenas capturar a digital e guardar num banco de dados sem ter que ficar fazendo comparações com outras digitais ( por exemplo: pegar a digital para imprimir em um documento ) não vai precisar nada disso.. apenas compre o aparelho, instale e usando o delphi voce faz a captura da imagem em um componente TImage. abraço

Veja esse exemplo: var config:TIniFile; caminho,ip_servidor:string; E:integer; begin try config := TInifile.Create('C:\PROJETO\DADOS\CONFIG.CFG'); // cria um objeto para manipular o arquivo ini caminho:=config.ReadString('CONFIGURACAO DA BASE', 'BASE_DE_DADOS', ''); // PEGA O CAMINHO DA BASE ip_servidor:=config.ReadString('CONFIGURACAO DA BASE','IP_SERVIDOR',''); // PEGA O IP DO SERVICOR BDtbsMain.DatabaseName:=ip_servidor+':'+caminho; BDtbsMain.LoginPrompt:=false; // Desabilita o prompop de login config.Free; // apaga o objeto da memória BDtbsMain.Connected:=true; except on E:EIBInterbaseError do begin if ( EIBInterBaseError(E).IBErrorCode = 335544344 ) then begin ShowMessage('Arquivo de dados não localizado '+caminho+'.Verifique se o caminho está correto'); Application.Terminate; end; if ( EIBInterBaseError(E).IBErrorCode = 335544472 ) then begin ShowMessage('Nome de usuário e senha incorretos. Contate o Adminstrador do servidor Firebird'); Application.Terminate; end; if ( EIBInterBaseError(E).IBErrorCode = 335544753 ) then begin ShowMessage('O nome de usuário especificado não foi encontrado no banco de dados de segurança'); Application.Terminate; end; if ( EIBInterBaseError(E).IBErrorCode = 335544721 ) then begin ShowMessage('Falha ao conectar com servidor Firebird. Verifique se o servidor está ativo'); Application.Terminate; end; Application.Terminate; end; end; end; No seguinte um exemplo mais complexo que faz tratamento para o GDSCODE e o SQLCODE http://www.koders.com/delphi/fid154EA55117...aspx?s=database abraço

Não é necessario usar 2 DBgrids para isso... coloque os campos na mesma tabela e na tela voce faz uma escolha entre pessoa juridica e pessoa fisica, mostrando o que for correspondente a cada um abraço

Não será necessario uma licença para cada máquina se a sua aplicação funcionar em rede, basta apenas uma abraço

Ordene a sua tabela alfabeticamente, e depois de o locate 'A' por exemplo.... ele irá encontrar o primeiro 'A' da lista... para os proximos basta dar next na tabela Outros exemplos: http://www.componentace.com/search-records-delphi.htm http://www.edudelphipage.com.br/dicas_text...ia=3&busca= abraço

Gratuito voce não vai achar abraço

Veja a lista http://www.firebirdsql.org/doc/contrib/fb_1_5_errorcodes.pdf abraço

quando voce clica em um deles aparece a tela correspondente ao assunto... ou seja, se voce clicar no cadastro de clientes, voce vai ver um exemplo de como montar a sua tela ( já é meio caminho andado ) .... por traz disso voce monta o código. abraço

Tudo começa pelo visual da sua janela .... caso não tenha idéia de como começar, veja este link: http://www.activedelphi.com.br/promocao.php# abraço

TIAO ... não é possivel visualizar o erro na figura ... de preferencia voce de copiar o erro e digita-lo no post para que possamos ajuda-lo, ou então tente outra resolução de tela para facilitar a visualização. abraço

Use o comando Break para isso exemplo: var S: string; begin while True do begin ReadLn(S); try if S = '' then Break; // o Break finaliza o while WriteLn(S); finally { do something for all cases } end; end; end; Mais informações no help do delphi ( F1 ) abraço

Não foi possivel ver o erro nesta imagem .... de qualquer modo veja este post ( dúvida igual a sua ) http://scriptbrasil.com.br/forum/index.php...st&p=594860 abraço

É possivel fazer, mas não da maneira como esteja pensando veja esse exemplo: em uma imagem eu coloquei a palavra 'MINHA EMPRESA' ... Evidentemente voce não verá a palavra nesse código, porque a mesma foi transformada em código e deixou de ser texto. object Form1: TForm1 Left = 192 Top = 114 Width = 696 Height = 480 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 136 Top = 80 Width = 122 Height = 59 Picture.Data = { 0A544A504547496D616765DB0B0000FFD8FFE000104A46494600010101006000 600000FFDB004300080606070605080707070909080A0C140D0C0B0B0C191213 0F141D1A1F1E1D1A1C1C20242E2720222C231C1C2837292C30313434341F2739 3D38323C2E333432FFDB0043010909090C0B0C180D0D1832211C213232323232 3232323232323232323232323232323232323232323232323232323232323232 32323232323232323232323232FFC0001108003B007A03012200021101031101 FFC4001F0000010501010101010100000000000000000102030405060708090A 0BFFC400B5100002010303020403050504040000017D01020300041105122131 410613516107227114328191A1082342B1C11552D1F02433627282090A161718 191A25262728292A3435363738393A434445464748494A535455565758595A63 6465666768696A737475767778797A838485868788898A92939495969798999A A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6 D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301 01010101010101010000000000000102030405060708090A0BFFC400B5110002 0102040403040705040400010277000102031104052131061241510761711322 328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728 292A35363738393A434445464748494A535455565758595A636465666768696A 737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7 A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3 E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F758 2089E15665C939EE7D6A4FB2C3FDCFD4D63EAB7D7165676A6DE4D85CB678073F 9D63B788EF565589AF2312382550850580F41DEA525619D87D961FEE7EA68FB2 C3FDCFD4D62E97AFBCD3A5BDD05DCE76ABA8C73E8456F960A324803DE9D9088B ECB0FF0073F5349F668BFE79FF00E3C6A60CAC320823EB49F95164045F668BFE 798FFBE8D21B78FB443FEFB355758B892D34F69216559030C1C03C67DEB2349D 56F2E7568EDE67478DA3763B9403918C631F5A2C80E80DBA76847FDF6693C85F F9E0BFF7F0D3D82A8F984407B9A4DA319D90FE745900C308ED6EBFF7F293CA1F F3EE9FF7F4D3CC4BD4C70FE27FFAD4C28A0E3CBB607D377FF5A8B2010C67B5AA FF00DFDA4F2DBFE7D53FEFF7FF005A94C698C98ED71EEDFF00D6AC5D66E64B4B 88D21585414C9DA81B3CFB8A2C80D9F2DBFE7D53FEFF007FF5AAB567E857725F 4777F688AD09867F2D093B491B54F231EA4D68567356291435FF00F8F3B3FF00 79EB2AC56DA36BCB89C445DA0F2A20572D9C9E9C702B575FFF008F3B3FF79EB0 ED6D6EAF6F248E130AC5143E6397CEE3C9E076ED5A2D891B6DFBED6B4DB68F0D 29B8594AE7908BCB37D3A0FC6A5D63529A4F3EE5C349B33B220D8F600678156B 48BD7B4BD8C285292B046C8E704E3AD656A3FF001ED3FD7FF6614C0BF1CB77A6 5CE33E5CC98DE8ADB9738E9EF4FD4A7335FBCA0901C2B601F55069758FF90B5D 7FBDFD2A0B9FF5ABFF005CD3FF0041140123DD1B86B96770599461739C0DC314 DD366FB3EA826F97296D2B00DDFEED49A769D676DE0C86EE28231757215A69B1 97909627963C9AE7FC41A85E693A1EA3A8D9C76521B6B3924923BC84CA922EE4 0570197AE7AD006A49713DDDEDBC2A0DC4F70E5416700280092493D801D2AEE9 B7925B5DC68AC0C6EC1595B91C9AC7B1BB86CA386D61874F8B50B845578F4FB6 11BCBBB9E172CC171EF8C024D4F1EA16306A11452DF5A452248A596499415008 39209F4E680247BC1621EE99CAAC6092DC9C7D07734AB2488C241BD24FBDF30C 303EE3D6B3E7BFB2BA8644B7BEB47652AEC44CA42A8719279E07BD685EEA3637 5AB5CA5BDF5ACEE589C4532B123BF00D0058BDBA7BB923762B8F2D080BC0E402 7F9D558E77B8B482565658D813186233B7279E3D7AD46750B29B263BEB497CA8 51A468A65214051927078A749A9580D32C0B6A762E12108CC93A6158E4ED273D 71401ABE187429A882D6B9175CF9A3247C895B7583E13BDB7923D4043A8D9316 B8DE1159646DBB1464E1BA641ADEACEA0D1435FF00F8F3B3FF0079EB2ACEEFEC 6B70523065993CBDE5BEE8FA7E35D2DE68B69ACD9411DDF9DB632597CA99A33F 9A91543FE105D17D6FFF00F03A5FFE2AAD6C239F89D9B56B0B384069E59D18A6 7958D581663E8001F892053AE60592496190B04DF862A39E0D6CE9D77E1ED134 8BDD52CE048AD6DC4C2EAE08767FDCB32BE49059B69461DF38E3354F59B8F0D5 E5F84BAB892D2ECDEAD96F8A678B75C3462554271824A118CF04903AF14B990E C54D56FA232DD5EB6522E5B9EBD3F9FB53EE55D6545914ABF951EE53D8EC1915 2DA5A7866D7574590CF777B1DD8B68D6EA479024E21F3C0008DA0F97F36EFC33 9E29DAAC3E1EBA9356D4EF26BC4FECFCFDB5A3B995445B63590FCABD7E4653C6 7AE3AF147320B166D7FE441B1E73F22F6F7AE3FC603FE289F111EDFD9927FE87 1D773AA2E956BE199A1BC5960D32CE132BB472B82888371395F98F009F7AE61B 4BF06EA5612A5E59EACD6BE6C3132EA11DD460BC92048C28954672C40E3A6467 147320B183ACE88758D43487B6BD7D3AFAD6DA4B8B5BD8932C8E026DCFAA9CF2 3A609A67866E135AF1638D434E58757B6B18EDEF50C20A9265CEE43CEE46EA3D B8AE82EFC2BE08D1AE526BC8A7416D6735C246D2BBAA5BC5B7CCC601F946F5F9 7BE7A1E6A1B887C0EEF73797316AF0C85163649A2BB8A4911A40A11119033A87 914614100BAE719147320B1C8784BC3F26ABA3782AF1A3B48E0B23E63308B7CD 3EE6DBB4F1F77AE4739C01C5667869549F0CDA5D5B476768B7375359DDC51826 79D65917C966FE01B4938E77700118AF42B7D37C0F65A44ED0C7AADA5A40F1AB DAE2E6270647DA9884A872198E010A4120FA1C357C39E048F450469FA9C365F6 80A968D0DCA33CA06E0520281DC819395538018F638399058E5A7D19AF0EBB6D 6B2DB5ACB0F88E27559E1CC52958E32B1381CE09E71EA2A0D61DC683E29D3AF3 46D2ED2F2D74B89DE5D3CB3248A4BEDDDB8021C649CF707D315DA1F07F81DB49 FB5C71DC456B77711AB32C8D9699A508A194A921C48429C8054E738C1AD45F86 FE166B07B47B3BE782560D2A995DC4AC31866FEF1E07269A6988CAF02D81B3D5 EEAF2EED74BB29E58D52DE7B256325CA045DC4A91F746546477CD77758FA2F82 7C3BE1EBE17BA6585CC37223F2849B492A9FDD191C0AD8A8A83468DAFF00C7B2 7E3FCEA6A40028C0000F414B56B611E23A9F853529FC33E23B78EDE6FB1DFCBA 95F4F6C23F9E4B84965F2768CEF3E666071B78FF00460307CD35B3A9E832EABA D5C5BCD6F7496F36BFE689E3421A35FECBD8B32310402B201B5BB381DC57A979 51FF00CF34FF00BE451E547FF3CD3FEF9153CAC773C9A1D3B5CBED4C9BB8EEB4 FB8FF84919CDD5AC6A418974E318997787508E40183BB696DB9DC33520D375A4 D4EF2C228A6D4376B0B7EF3EA04411DC4715B5BEC0648A2C0613142BB530C207 04F073EABE547FF3CD3FEF9147951FFCF34FFBE451CAC2E79AB59EA09F0C35ED 165B271756B677569043086915D0C45A14898A86902A3A47B8804B23753C98F5 3B78FC43E12B8D2A4935AD52392FEC84FF006FD3DED9CC46E22DE171145950AA C490091C924715E9DE547FF3CD3FEF9147951FFCF34FFBE452E46173C6F55D03 5A7FED3BDBF8E6BCD4A7F0EEA363E64708F9D53C958861323748DE6CA17A8F30 AF3B056EF883C3372F631CE754D4EFEF85D5A470CCF1C3BEDA337703C8CAA912 A9FF0056AC4B86036761BB3E8FE547FF003CD3FEF9147951FF00CF34FF00BE45 3E56173CAB5DD32FEDCEA8AD36A778DFF129906A0B6CAF3854BC7675458E3D8D E5A8DF8D84FCE776E1B40D6B896DEEF41B59DAE3C412C967744A5F7F6714BA89 CAB0DFE49846F5DB218FE589BEF67F84B2F7FE547FF3CD3FEF9147951FFCF34F FBE452E46173CB6E2DB5BF10A59DB5D6969796F04170645BF95ECC4EB2992185 F7246C449E40937A613699D4E01002F65E1C96FA6F0FD9FF006925EFDBE3530D CB8508B24A84A3BA8E3E462A594E065581C0CE2BA0F2A3FF009E69FF007C8A3C A8FF00B8BF95528D80A7F37F76F7F31FE355EB57CA8FFB8BF9527951FF00CF34 FF00BE45128DC133FFD9} end end OBS: Para ver essa figura, abra um novo projeto ... clique com o botão direito do mouse na area central do Form1 e selecione a opção View as Text ... apague o código que aparecer e cole este código no lugar... depois novamente com o botão direito sobre o código, selecione a opção View as Form Voce verá a imagem com a palavra que escrevi sobre ela. o processo deverá ser então este: 1 - colocar a imagem que voce quer em um componente TImage 2 - colocar Labels transparentes sobre essa imagem que receberão os valores do seu banco de dados 3 - salvar a area do screen ( figura com os labels preenchidos ) no formato JPG abraço