chris~

alguém poderia me ajudar?estou tentando multiplicar duas matrizes, A e Be salvar o resultado em Co resultado não ta certo, to usando threadso queria uma opinião para saber se ta certo o que to fazendo, porque o que ta me intrigando é que os valores da linha da matriz C não altera #include<stdio.h> #include<stdlib.h> #include<pthread.h> pthread_t thread_1; pthread_t thread_2; pthread_t thread_3; int a[3][2] = {{1, 4}, {2, 5}, {3, 6}}; int b[2][3] = {{7, 8, 9}, {10, 11, 12}}; int c[3][3] = {{1, 2, 3}, {0, 0, 0}, {0, 0, 0}}; void* tarefa_1(void *p) { printf("\nThread1\n"); for (int col = 0; col < 3; col++) { // Multiplica a linha de A pela coluna de B. for (int i = 0; i < 2; i++) { c[1][col] += a[1][i] * b[i][col]; } printf("%i\t",c[1][col]); printf("\n"); } } void* tarefa_2(void *p) { printf("\nThread2\n"); for (int col = 0; col < 3; col++) { // Multiplica a linha de A pela coluna de B. for (int i = 0; i < 2; i++) { c[2][col] += a[2][i] * b[i][col]; } printf("%i\t",c[2][col]); printf("\n"); } } void* tarefa_3(void *p) { printf("\nThread3\n"); for (int col = 0; col < 3; col++) { // Multiplica a linha de A pela coluna de B. for (int i = 0; i < 2; i++) { c[3][col] += a[3][i] * b[i][col]; } printf("%i\t",c[3][col]); printf("\n"); } } int main() { printf("Inicio das Threads...\n"); // inicia as duas threads, passando como parametroa thread e a função que cada uma deve executar pthread_create(&thread_1, NULL, tarefa_1, NULL); pthread_create(&thread_2, NULL, tarefa_2, NULL); pthread_create(&thread_3, NULL, tarefa_3, NULL); // faz com que a thread principal espere a thread 1,2,3 acabarem; pthread_join(thread_1, NULL); pthread_join(thread_2, NULL); pthread_join(thread_3, NULL); printf("resultado da tabela 3\n"); for(int i = 0;i<3; i++){ for(int j= 0; j<3;j++){ printf("%i\t ",c[i][j]); } printf("\n"); } exit(0); }

galera tenho o seguinte codigo : #include <stdio.h> #include<stdlib.h> /* Recebe um número inteiro n > 0 e mostra sua decomposição em fatores primos, calculando a multiplicidade de cada fator */ typedef struct lista{ int fator; int interacao; struct no *prox; }lista; void inserirLista(lista * li, int x, int y){ if(li == NULL) return ;; lista *no = (lista *)malloc(sizeof(lista)); if(no == NULL) return ; else{ no = li; while(no->prox!=NULL){ no = no->prox; } lista *aux = (lista *) malloc(sizeof(lista)); aux->fator = x; aux->interacao = y; aux->prox = NULL; no->prox = aux; } } void imprime(lista *li){ lista *p; p = li; while (p->prox != NULL){ printf("fator %d com multiplicidade %d\n", p->fator, p->interacao); } } main(void){ lista *li = (lista *)malloc(sizeof(lista)); li->prox = NULL; int n, p, q, primo, div; printf("Informe n: "); scanf("%d", &n); p = 2; while (n > 1) { q = ; while (n % p == ) { q = q + 1; n = n / p; } if (q > ) inserirLista(li, p, q); //printf("fator %d com multiplicidade %d\n", p, q); primo = ; while (! primo) { p = p + 1; div = 2; primo = 1; while (div <= p / 2 && primo) { if (p % div == ) primo = ; else div = div + 1; } } } imprime(li); return ; } eu tenho que fazer uma fatoração prima, e depois inserir os valores em uma lista e imprimir em seguida, mas ele entra em um loop infinito sera q alguém poderia me ajudar?

eu tenho isso em um arquivo .h porem a hora q eu rodo ele insere 2 chaves, e depois da falha de segmentação não sei mais o que fazer para resolver, sera que alguém poderia me ajudar? struct arvoreBinAVL { unsigned long int chave; struct arvoreBinAVL *esq; struct arvoreBinAVL *dir; short int fb; }; typedef struct arvoreBinAVL NoArvBinAVL; NoArvBinAVL **rotacaoDir(NoArvBinAVL **y); NoArvBinAVL **rotacaoEsq(NoArvBinAVL **y); NoArvBinAVL **rotacaoEsqDir(NoArvBinAVL **y); NoArvBinAVL **rotacaoDirEsq(NoArvBinAVL **y); NoArvBinAVL *buscaNoArvBinAVL(NoArvBinAVL **r, unsigned long int k) { if(*r == NULL) return NULL; if ((*r)->chave == k) return *r; if ((*r)->chave > k){ return buscaNoArvBinAVL(&(*r)->esq, k); } else return buscaNoArvBinAVL(&(*r)->dir, k); } void insereNoArvBinAVL(NoArvBinAVL **r, unsigned long int k) { if ((*r) == NULL){ (*r) = malloc(sizeof(NoArvBinAVL)); if((*r) == NULL) return; (*r)->chave = k; (*r)->esq = NULL; (*r)->dir = NULL; (*r)->fb = 0; return; } if((*r)->chave > k){ insereNoArvBinAVL(&(*r)->esq, k); (*r)->fb -= 1; if((*r)->fb == 0 || (*r)->fb == 1 || (*r)->fb == -1){ return; } if((*r)->fb == 2){ if(((*r)->esq)->fb == 1){ r = rotacaoEsq(r); return; } else if(((*r)->esq)->fb == 0){ r = rotacaoEsq(r); return; } else{ r = rotacaoDirEsq(r); return; } } else{ if(((*r)->esq)->fb == 1){ r = rotacaoEsqDir(r); return; } else if(((*r)->esq)->fb == 0){ r = rotacaoDir(r); return; } else{ r = rotacaoDir(r); return; } } } else{ insereNoArvBinAVL(&(*r)->dir, k); (*r)->fb += 1; if((*r)->fb == 0 || (*r)->fb == 1 || (*r)->fb == -1){ return; } else if((*r)->fb == 2){ if(((*r)->dir)->fb == 1){ r = rotacaoEsq(r); return; } else if(((*r)->dir)->fb == 0){ r = rotacaoEsq(r); return; } else{ r = rotacaoEsqDir(r); return; } } else{ if(((*r)->dir)->fb == 1){ r = rotacaoEsqDir(r); return; } else if(((*r)->dir)->fb == 0){ r = rotacaoDir(r); return; } else{ r = rotacaoDir(r); return; } } } } NoArvBinAVL **rotacaoEsq(NoArvBinAVL **y){ NoArvBinAVL *x = (*y)->dir; (*y)->dir = x->esq; x->esq = *y; *y = x; return y; } NoArvBinAVL **rotacaoDir(NoArvBinAVL **y){ NoArvBinAVL *x = (*y)->esq; (*y)->esq = x->dir; x->dir = *y; *y = x; return y; } NoArvBinAVL **rotacaoEsqDir(NoArvBinAVL **y){ y = rotacaoDir(&((*y)->esq)); return rotacaoEsq(&(*y)); } NoArvBinAVL **rotacaoDirEsq(NoArvBinAVL **y){ y = rotacaoEsq(&((*y)->dir)); return rotacaoDir(&(*y)); }

galera eu preciso faze um codgo que multiplique dois numero, porem tem q ser numeros quaisquer, mesmo q seja superior ao limite maximo que a variavel int aguente, alguém sabe uma maneira de fazer isso... os numeros tem q dar um resultado qualquer no qual o limite de uma variavel não interfira no resultado agradeço a ajuda *-*

Supondo que no c´odigo abaixo seja atribu´ıdo o endere¸co 0xaaa0 `a v e 0xaaa4 `a f, qual o resultado do printf mediante a execu¸c˜ao do programa? Como o operador un´ario ++ funciona em cada situa¸c˜ao? Explique detalhadamente. #include <stdio.h> int main() { int v[1]={3}; short int f[1]={0}; int * vp = v; short int * vf = f; printf("%p, %p \n", ++vp,vf++); return 0; } eu não entendo o porque ele encrementa 4bytes e alguém poderia me fala o pra que serve o short int?? agradeço desde já

gente alguém sabe me da uma luz de por onde começar com isso to criando um joguinho em java, porem não faço a menor ideia de como emplementa um sockets nele e fazer ele se comunicar com outro pc para jogar simultaneamente. eu so preciso de uma ajudinha para q alguém diga tipo faça isso e aquilo, porque a programação em si eu do um jeitinho agradeço a atenção gent

muito obrigado pela ajuda gente eu adaptei o codgo do goldbach e deu certinho obrigado mesmo =D

desculpa a demora, muito obrigado pela ajuda desculpa se ressuscitei o tópico sem necessidade mas queria agradecer

Gent seguinte, minha professora me passo um trab tenso, ou não sei la tenho que calcular a quantidade de dias entre duas datas, essa é a part do trabalho q não consigo faze tipo eu informo duas datas 01/01/2013 31/12/2013 e o resultado da conta tem q ser 365 dias o algoritimo tem q leva em consideração os meses de 28,29,30 e 31 dias e não pode ser usado a biblioteca If existe algum comando q possa me ajudar a faze isso mais rapido ou terei q usar milhoes de linhas de codgos? '-' se alguém puder me aponta para uma maneira mais "simples" do que muitas linhas de cod em if por favor me avisa agradeço a atenção

gente preciso que esse laço de repetição do for ele percorra do for, mas ele so pare de percorrer quando meu m = 0 enquanto o m for diferente de 0, ele vai continua tipo jogador 1 jogador 2 jogador 3 jogador 4 jogador 1 jogador 2 jogador 3 assim que ele tem q percorrer ate o m=0 e preciso também que ele mude o sentido quando a variavel sentido != 1, ela so mantem o sentido de cima, quando a variavem for 1 assim q ela mudar, ela volta esteja ela em qualquer jogador. tipo jogador1 jogador2 jogador3 jogador2 jogador1 mas isso sera aleatório. eu fiz isso aqui so q não consigo ver o que ta faltando main(){ int p[4], x, j,m=40, sentido=1, cont; if (sentido=1){ for (x=0; x<=5; x++){ j=j+1; p[x]=j; printf(" jogador %d \n", p[x]); if((m=0)&&(x=4)) { x==0; } } } if (sentido=1) { for (x=0; x<=4; x--){ j=j+1; p[x]=j; printf(" jogador %d \n", p[x]); if((m=0)&&(x=4)){ x==0; } } } getch(); }

gente preciso faze um cod que faça minha matriz mat[12][4] receba os seus valores aleatótios. tipo de 0 ate 51 alguém poderia me ajudar a fazer isso por favor? é que não faço a minima ideia de como começar '-'

quando eu digito o login e senha errada não aparece nada. por isso fiquei em duvida com relação a estar certo ou errada. com relação a sessão, esse seria o problema eu não sei bem como cria-la. é algo q eu não sou bom ^^

<?php session_start(); include ("conect.php"); if ($_POST['chave']=='logar') { $ler= mysql_query("SELECT * FROM membro WHERE login= '".$_POST['login']."' AND senha= '".$_POST['senha']."'"); $ver= mysql_fetch_assoc($ler); $row= mysql_num_rows($ler); if ($row== 1){ $_SESSION['logado_id']= $ver['id_user']; $_SESSION['login']= $ver['login']; } else { $_SESSION['alerta']= "Usuario não existe"; } header("location:edicoes.php"); } ?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <link href="css/cssPrincipal.css" rel="stylesheet" type="text/css" /> </head> <STYLE type="text/css"> A:link { text-decoration:none;color:#; } A:visited { text-decoration:none;color:#; } A:active { text-decoration:none;color:#; } A:hover { text-decoration:none: color#/ } </STYLE> <body link="" vlink="" alink=""> <div id="geral"> <div id="login" align="center"> <?php if ($_SESSION['id_user']) { ?> <p>Logado como: <?php echo $_SESSION['nick']; ?></p> <?php } else { ?> <form id="form1" name="form1" method="post" action="index.php"> Login <input type="text" name="login" id="login2" tabindex="1" /> Senha <input type="password" name="senha" id="senha" tabindex="2" /> <input type="hidden" name="chave" id="chave" value="logar" /> <input type="submit" name="ok" id="ok" value="OK" tabindex="3" /> </form> <?php } ?> </div> <div id="logo"> <div id="logoletras"> <h1>RagnaGossip</h1> </div> </div> <div id="menu"> <ul> <li><a href="#">Home</a></li> <li><a href="#">Edições</a></li> <li><a href="#">Matérias</a></li> <li><a href="#">Equipe</a></li> </ul> </div> <div id="span">Content for id "span" Goes Here</div> <div id="conteudo">Content for id "conteudo" Goes Here</div> <div id="siga">Content for id "siga" Goes Here</div> <div id="rodape">Content for id "rodape" Goes Here</div> </div> <?php if ($_SESSION['alerta']) { ?> <div id="alerta"> <?php echo $_SESSION['alerta']; ?> </div> <?php session_unregister('alerta'); } ?> </body> </html> gent assim, eu não to conseguindo faze o seguinte. quero que quando a pessoa logar, o formulario de login saia da tela e apareça uma menssagem falando ali "logada como Nick" (nick é o campo do banco de dados que sera lido ali) mas quando login ou senha for digitado errado que apareça em cima uma msg dizendo login ou senha errado, ou qualquer mensagem a respeito de que o login não foi efetuado alguém poderia me ajudar? desde já agradeço a atenção

oi galera eu to com uma pequena duvida vou postar um exemplo http://www.megaupload.com/?d=HJXJ288U nesse fla a mc aparece direto quando abre eu queria q ela aparecesse apenas qando eu colocasse o mause sobre o urcinho sera q alguém poderia me ajuda a desenvolver isso por AS? tentei usa esse cod aki mas ele não para de reproduzir Layer2._alpha = 0; mcimg.onRollOver = function (){ Layer2._alpha = 100; } mcimg.onRollOut= function(){ Layer2._alpha = 0; } obrigado pela ajuda

os precoCompra e PrecoVenda são numericos na tabela. ai eu crio uma variavel pra recebe os dois e converte pra numeric ou converto ali mesmo?

gent ta dando um erro aki no eu cadastra meu produto sera q alguém poderia me ajuda. o cod da minha unit é assim o unit UCadProd; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, ExtCtrls, DBCtrls; type TFrmCadProd = class(TForm) PnDados: TPanel; PnButton: TPanel; LbDescricao: TLabel; EdDescricao: TEdit; LbGrupo: TLabel; LbMarca: TLabel; LbCodBarra: TLabel; MdBarra: TMaskEdit; LbPrecoC: TLabel; LbPrecoV: TLabel; MdPrecoC: TMaskEdit; MdPrecoV: TMaskEdit; Label1: TLabel; LbEstoqueA: TLabel; LbEstoqueC: TLabel; BtnSalvar: TButton; BtnLimpar: TButton; BtnSair: TButton; BtnCalcular: TButton; MdEstoqRec: TMaskEdit; MdMargemAp: TMaskEdit; Label2: TLabel; Label3: TLabel; MdEstAtu: TMaskEdit; DBLKCBGrupo: TDBLookupComboBox; DBLKCBMarca: TDBLookupComboBox; procedure BtnSairClick(Sender: TObject); procedure BtnCalcularClick(Sender: TObject); procedure BtnSalvarClick(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmCadProd: TFrmCadProd; implementation Uses UBDESTOQUE; {$R *.dfm} procedure TFrmCadProd.BtnSairClick(Sender: TObject); begin Close; end; procedure TFrmCadProd.BtnCalcularClick(Sender: TObject); VAR SOMA:REAL; begin SOMA:=STRTOFLOAT(MDPRECOC.Text)*STRTOFLOAT(MdMargemAp.Text); soma:=soma/100; soma:=soma+STRTOFLOAT(MDPRECOC.Text); MDPRECOV.Text:=FLOATTOSTR(SOMA); end; procedure TFrmCadProd.BtnSalvarClick(Sender: TObject); Var str:string; begin str:= 'insert into Produto(Descricao,PrecoCompra,PrecoVenda,Margem,QuantidadeRec,QuantidadeAtual,CodMarca,CodGrupo)' + 'Values ('+#39+Trim (EdDescricao.text)+#39+','+#39+Trim (MdPrecoC.text)+#39+',' +#39+Trim (MdPrecoV.text)+#39+','+#39+Trim (MdMArgemAp.text)+#39+',' +#39+Trim (MdEstoqRec.text)+#39+','+#39+Trim (MdEstAtu.text)+#39+','+#39+Trim (DBLKCBMarca.text)+#39+',' +#39+Trim (DBLKCBGrupo.text)+#39+')'; with DataModule1 do Begin with IBQProduto do Begin SQL.Clear; SQL.Add(str); ExecSQL; end; try IBTransaction1.Commit; with IBQFornecedor do begin sql.Clear; SQL.Add('select*From Produto'); close; open; end; ShowMessage('cadastro Concluido!'); except IBTransaction1.Rollback; ShowMessage('Ouve um Erro ao Cadastro!!'); end; end; end; procedure TFrmCadProd.FormCreate(Sender: TObject); begin decimalseparator:='.'; end; end. ele da o seguinte erro eu suspeito q é um erro do mask Edit e na data que eu coloquei no banco. o mask edit ta com virgula, e a data não faço ideia de como faze grava

é q eu queria diferencia apenas um cliente de outro entende? os fisicos dos juridicos. quando quisesse um fisico eu procuraria so nos fisicos e nos juridicos a mesmo coisa mas vo tenta faze como você falo, coloca um grid e joga botoes de fisico e juridico e eles direcionando um select pro grid achu q isso é possivel dps vo pesquisa certinho como fazer isso ^^ meu professor falo pra eu da select no grid na hora de abrir vo tenta também... vo pesquisa e ve o que acho pra começa isso xD brigadao jhonas

é que eu uso uma unica tabela de cliente e o que diferencia é os campos q eu sitei cima. ai eu uso duas unit pra puxa o registro de clientes, excluir e alterar ai eu queria q fosse puxado um tipo em uma e otro na otra unit, e so colocando os campos no grid ele puxa todos

desculpa eu tava abrindo sempre a tela em otra aba assim não abria a janela com a tela realmente, tipo eu já tenho ideia de como vai ser minha tela já tenho ela montada so não consigo programa-la ate porque eu já tenho o cadastro rodando com comando de alterar, excluir e cadastrar, a unica coisa q não consegui foi com relaçao a aparece no dbgrid apenas clientes com o campo RG e CPF preenchidos, e no otro dbgrid os clientes q tem CNPJ e IE preenchido

jhonas esse link q você mando é um link pra compra os exemplos certo? porque eu clico neles e não abre nada alem da mesmo tela

assim novament to pedindo luz, procurei na net e tal e não entendi o que achei, não achei coisa q eu queria também assim gent eu tenho dois unit uma pra cliente fisico e otra pra cliente juricido as unicas coisas q dferenciao é o RG/CPF com o CNPJ/IE na unit de cliente fisico tem uma DBGrid conectada a tabela clientes. o mesmo tem na de clientes juridico. mas ambas mostrao todos os clientes tanto fisico como juridico assim q eu chamo a unit no meu programa alguém saberia como filtra isso. na hora q eu coloca na cliente fisica aparece so clientes fisicos usando select no RG/CPF e no juridico usando o mesmo no CNPJ/IE meu problema é q eu não acho nada na net q me mostre como começar isso eu to bem perdido sera q alguém sabe algum link ou alguma maneira q eu possa começar uma das units? desde já agradeço pela ajuda

brigadao gent consegui aki \o/ muito obrigado mesmo... meu cod fico assim. não deu erro mas se alguém ver algum erro me avisa plikx e se não tive ta ai uma ajuda pra quem precise mais pra frent assim como eu precisei hj *-* procedure TFrmLogin.BtnSairClick(Sender: TObject); begin if login=false then Application.Terminate; close; end; procedure TFrmLogin.BtEntrarClick(Sender: TObject); begin if (edSenha.text<>'') and (Edlogin.text<>'') then begin if (EdSenha.text=DataModule1.IBQfuncionario.FieldByName('senha').AsString) and (Edlogin.text=DataModule1.IBQfuncionario.FieldByName('Login').AsString) then begin frmLogin.Close; Login:=true; FrmMenu.ShowModal; end else begin messageBox(handle,'Usuário ou Senha Inválida','ATENÇÃO!',MB_ICONERROR+mb_OK); edSenha.Text:=''; edLogin.text:=''; edlogin.SetFocus; end; end else messageBox(handle,'Você deve preencher o nome de usuário e senha','ATENÇÃO!',MB_ICONERROR+mb_OK); end; Brigadao mais uma vez

Assim gent, meu professor de programaçao é bem fraco eu queria faze uma tela inicial do meu sistema eu queria q ele consultasse na tabela "Cliente" os campos "login" e "senha" e se batesse com alguma já existente no banco de cados ele entrava no sistema se não tivesse nenhum dos dados no BD ele desse um showmessage (" Login ou Senha Incorreto" ) eu uso o banco de dados IBExpert eu uso dois Edit EdLogin EdSenha espero q alguém possa me ajudar =/ sei q o costume é eu coloca um codgo e ele ser corrigido, mas eu não faço a minima ideia de como começa-lo por isso não estou colocando nada desculpa se estou totalment errado nesse meu post, mas agradeço desde já a ajuda.

brigadao jhonas deu certo o cadastro mas ele não ta inserindo na tabela, sea qvc saberia o porque? @edit eu consegui arruma era so da autoincrement no banco de dados

ai gent ta dando esse erro no meu codgo sera q alguém poderia me ajuda a resolve ou a coloca um codgo diferenciado que não contenha o msmo esse aki é o q tem na unit unit UFornecedor; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, ExtCtrls; type TFrmFornecedor = class(TForm) PnButton: TPanel; PmDados: TPanel; EdRazSoc: TEdit; EdNomFant: TEdit; MdCNPJ: TMaskEdit; MdIE: TMaskEdit; EdEnd: TEdit; EdNum: TEdit; EdCidade: TEdit; EdUF: TEdit; MdCEP: TMaskEdit; MdTel: TMaskEdit; MdFax: TMaskEdit; BtnSalvar: TButton; BtnSair: TButton; LbRazSoc: TLabel; LbNomFant: TLabel; LbCNPJ: TLabel; LbIE: TLabel; LbEnd: TLabel; LbNumero: TLabel; LbCidade: TLabel; LbUF: TLabel; LbCEP: TLabel; LbTelefone: TLabel; LbFax: TLabel; EdBairro: TEdit; LbBairro: TLabel; btnLimpar: TButton; procedure BtnSairClick(Sender: TObject); procedure BtnSalvarClick(Sender: TObject); procedure btnLimparClick(Sender: TObject); private Procedure LimpaCampo; public { Public declarations } end; var FrmFornecedor: TFrmFornecedor; implementation uses UBDESTOQUE, IBQuery; {$R *.dfm} procedure TFrmFornecedor.LimpaCampo; Begin EdRazSoc.Clear; EdNomFant.Clear; EdEnd.Clear; EdNomFant.Clear; EdCidade.Clear; EdBairro.Clear; EdUF.Clear; MdCNPJ.Text:= ' '; MdIE.Text:= ' '; MdCEP.Text:= ' '; MdTel.Text:= ' '; MdFax.Text:= ' '; end; procedure TFrmFornecedor.BtnSairClick(Sender: TObject); begin Close; end; procedure TFrmFornecedor.BtnSalvarClick(Sender: TObject); Var str:string; begin str:= 'inset into Fornecedor(razaosocial,NomeFantasia,CNPJ,IE,Rua,Numero,Cidade,,UF,CEP, Telefone, Fax, Bairro)' + 'Values ('+#39+Trim (EdRazSoc.text)+#39+','+#39+Trim (Ednomfant.text)+#39+',' +#39+Trim (Mdcnpj.text)+#39+','+#39+Trim (MdIE.text)+#39+','+#39+Trim (EdEnd.text)+#39+',' +#39+Trim (EdNum.text)+#39+','+#39+Trim (EdCidade.text)+#39+','+#39+Trim (EdUF.text)+#39+',' +#39+Trim (MdCEP.text)+#39+','+#39+Trim (MdTel.text)+#39+','+#39+Trim (MdFax.text)+#39+',' +#39+Trim (EdBairro.text)+#39+')'; with DataModule1 do Begin with IBQFornecedor do Begin SQL.Clear; SQL.Add(str); ExecSQL; end; try IBTransaction1.commit; with IBQFornecedor do begin sql.Clear; SQL.Add('select*From Fornecedor'); close; open; end; ShowMessage('cadastro Concluido!'); except IBTransaction1.Rollback; ShowMessage('Ouve um Erro no Cadastro!!'); end; end; end; procedure TFrmFornecedor.btnLimparClick(Sender: TObject); begin LimpaCampo; end; end. ta dando esse erro aki gent desde já agradeço a ajuda