Jhonas

defina as constantes para as telas do seu sistema exemplo: Tela de 800 X 600 Se voce for trabalhar com essa resolução de tela, então é nesta tela que voce definirá o tamanho do statusbar ... uma vez definido o tamanho ele permanecerá correto. abraço

Pelo visto está perecendo um execício que o professor pediu.... rs Os números inteiros são constituídos dos números naturais {0, 1, 2, ...} e dos seus opostos {0, -1, -2, ...}. Dois números são opostos se, e somente se, sua soma é zero. Por vezes, no ensino pré-universitário, chamam-se a estes números inteiros relativos. Um número natural é um número inteiro não-negativo (0, 1, 2, 3, ...). Em alguns contextos, número natural é definido como um número inteiro positivo, i.e., o zero não é considerado como um número natural. INTEIRO: qualquer número inteiro, negativo, nulo ou positivo Ex.: -15, 0, 101 REAL: qualquer número real, negativo, nulo ou positivo Ex.: -1, -0.5, 0, 5, 9.5 O operador MOD retorna o Resto de uma divisão com numeros inteiros EX: 7 mod 2 = 1 O operador DIV retorna o Resto de uma divisão com numeros inteiros EX: 7 div 2 = 3 O operador / retorna o Resto de uma divisão com numeros inteiros e reais EX: 7 / 2.5 = 2.8 Em um programa eu preciso saber se un numero é positivo e inteiro. Então o programa ficaria assim: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var i,n : real; begin if not (key in ['0'..'9',',','-',#8,#13]) then key := #0; if key = #13 then begin i := strtofloat(Edit1.Text); if i = 0 then begin showmessage(' O numero ' + floattostr(i) + ' é um numero inteiro nulo.'); exit; end else n := i / int(i); //showmessage(floattostr(n)); if (n > 1) and (i > 0) then showmessage(' O numero ' + floattostr(i) + ' não é um numero inteiro positivo.'); if (n = 1) and (i > 0) then showmessage(' O numero ' + floattostr(i) + ' é um numero inteiro positivo.'); if (n > 1) and (i < 0) then showmessage(' O numero ' + floattostr(i) + ' não é um numero inteiro negativo.'); if (n = 1) and (i < 0) then showmessage(' O numero ' + floattostr(i) + ' é um numero inteiro negativo.'); end; end; OBS: Voce precisa estudar mais sobre o delphi abraço

Quando fizer isso, verifique se o serviço do Firebird esta rodando, no gerenciador de tarefas do windows ..... se não estiver rodando voce deve startar o serviço ... e a conexão será restabelecida caso esteja rodando e der o erro de conexão, então voce deve instalar o Firebird no perfil do novo usário tambem. abraço

Verifiquei ... é possivel sim montar um rotina para alterar o modo de compatibilidade do executavel atraves do delphi entretanto, se esta rotina estiver dentro do seu executavel, o mesmo não rodará até que voce altere o modo de compatibilidade por fora, atraves do próprio windows. abraço

Tente o componente Halcyon, ou outro para acesso a tabelas DBF pelo delphi http://www.planetadelphi.com.br/delphi/exe...os/00004237.zip http://www.vclcomponents.com/Delphi/Compre...lcyon-info.html http://www.sourcecodeonline.com/details/halcyon.html http://www.torry.ru/pages.php?id=564 abraço

SQL Erro: dataset não disponivel. Execução sem sucesso causada po um recurso não disponivel Faça uma busca no forum nos tópicos relativos a esse assunto e veja o que encontra ... em um deles tem o que voce esta precisando http://scriptbrasil.com.br/forum/index.php...ite=ZConnection abraço

O DataMemo não aceita parte de texto em negrito e parte normal .... isso em função da fonte utilizada no DataMemo... Veja que o comando usado para colocar o negrito funciona como controle do cabeçote de impressão fazendo com que ele pare na mesma linha enquanto o texto é impresso. O negrito funciona assim: é impresso o texto, a linha não é ejetada, o cabeçote volta a posição inicial do texto para imprimir novamente, ficando dessa maneira o texto em negrito. No seu caso ele imprime o texto, a linha não é ejetada, mas ele não volta a posição inicial do texto e sim a posião inicial da linha, por isso está saindo sobreposto o texto. Usando o DataMemo não dá para fazer isso ... teria que ser outro componente abraço

Coloque o nome do campo da sua tabela que servira como chave do grupo abraço

Faça uma busca primeiro no forum e veja se acontra algo sobre o assunto: http://scriptbrasil.com.br/forum/index.php...p;highlite=rave abraço

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

Qual erro ? coloque o erro como ele aparece na sua tela Procure tambem fazer uma busca no forum http://scriptbrasil.com.br/forum/index.php...ghlite=firebird abraço

Na verdade foi o caminho das packges que sumiu, dessa maneira as abas dos componentes somem ... inclua o caminho na Library path em > Tools > Environment Options > Library path ou pode ser erro de registro no windows abraço

Faça o teste, se não funcionar pode ser por causa da versão compilada abraço

A maneira correta de usar seria assim: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp; type PUser = ^TUser; TUser = record id: integer; nick: string; end; type TForm1 = class(TForm) Button1: TButton; S: TServerSocket; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } Ponteiro : PUser; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Ponteiro := New( PUser ); Ponteiro^.nick := 'Teste'; end; end. abraço

De acordo com o que está escrito, essa dll está dentro deste zip Dbxora30.dll ftp://ftp.trams.com/pub/fullcd/cbb/cbb_191_setup.zip abraço

Isso acontece porque no perfil do novo usuário existem restrições a acessos à pastas que devem ser configurados Dê acesso de administrador ao novo usuário. abraço

A versão do IBDAC do delphi 7 não serve para o Delphi 2007 ... esta versão é paga http://www.vclcomponents.com/Delphi/DataBa...nents-info.html essa versão é para o delphi 2005 ... não tenho certeza, mas acho que ela funciona no delphi 2007 http://www.devart.com/ibdac/ibdac9.exe abraço

Fiz um teste aqui, usando um campo chamado OPC como varchar de 1 posição ... está funcionando legal unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Db, DBTables, Provider, DBClient; type TForm1 = class(TForm) Query1: TQuery; DataSource1: TDataSource; DBGrid1: TDBGrid; ClientDataSet1: TClientDataSet; DataSetProvider1: TDataSetProvider; ClientDataSet1PAPEL: TStringField; ClientDataSet1COD: TStringField; ClientDataSet1NUM: TFloatField; ClientDataSet1OPC: TStringField; procedure SaveBoolean; procedure DBGrid1CellClick(Column: TColumn); procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); procedure DBGrid1ColEnter(Sender: TObject); procedure DBGrid1ColExit(Sender: TObject); private { Private declarations } // Must declare a a global variable for this form FOriginalOptions : TDBGridOptions; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.SaveBoolean; begin Self.DBGrid1.SelectedField.Dataset.Edit; Self.DBGrid1.SelectedField.AsBoolean := not Self.DBGrid1.SelectedField.AsBoolean; Self.DBGrid1.SelectedField.Dataset.Post; end; procedure TForm1.DBGrid1CellClick(Column: TColumn); begin if Self.DBGrid1.SelectedField.DataType = ftBoolean then SaveBoolean(); end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); Const CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED); var CheckBoxRectangle : TRect; begin if (Column.Field.FieldName = 'OPC') then // mudança no código begin Self.DBGrid1.Canvas.FillRect(Rect); CheckBoxRectangle.Left := Rect.Left + 2; CheckBoxRectangle.Right := Rect.Right - 2; CheckBoxRectangle.Top := Rect.Top + 2; CheckBoxRectangle.Bottom := Rect.Bottom - 2; DrawFrameControl(Self.DBGrid1.Canvas.Handle, CheckBoxRectangle, DFC_BUTTON, CtrlState[Column.Field.AsBoolean]); end; end; procedure TForm1.DBGrid1ColEnter(Sender: TObject); begin if Self.DBGrid1.SelectedField.DataType = ftBoolean then begin Self.FOriginalOptions := Self.DBGrid1.Options; Self.DBGrid1.Options := Self.DBGrid1.Options - [dgEditing]; end; end; procedure TForm1.DBGrid1ColExit(Sender: TObject); begin if Self.DBGrid1.SelectedField.DataType = ftBoolean then Self.DBGrid1.Options := Self.FOriginalOptions; end; end. abraço

Sim... por isso existe no windows um emulador para compatibilidade para que, se o programa funcionava em uma versão anterior do Windows e agora apresenta problemas usando a versão Vista ou Windows 7, voce possa selecionar o modo de compatibilidade que corresponde à versão anterior do windows. Pode ocorrer algum problema se for o contrário 3. Utilizo o Firebird nas minhas aplicações, se migrar para 64 bits, terei q trabalhar com Firebird 64 bits, terei alguma problema quando levar o banco para o cliente 32 bits? Windows 32 ou 64 bits, qual versão devo utilizar? http://www.baixaki.com.br/info/2100-window...o-utilizar-.htm abraço

A maneira mais rapida é indo no Gerenciador de Tarefas do Windows e clicar na aba Usuários ... ele mostrará quem esta utilizando o computador abraço

Leia este artigo: http://www.brasiltech.net/developez/2008/0...reos-de-memria/ abraço

Use o componente quickreport do delphi ou faça impressão direta Faça uma busca no forum para ver o que encontra. http://scriptbrasil.com.br/forum/index.php...ress%E3o+direta http://scriptbrasil.com.br/forum/index.php...ite=quickreport abraço

danielrgoes ... foi necessário fazer algumas correções no seu código, mas a idéia era essa mesma procedure TForm1.Button1Click(Sender: TObject); var i,j : integer; achou : string; begin Edit2.Clear; for i := 1 to length(Edit1.Text) do begin if i = 1 then Edit2.Text := Edit1.Text[i]; if Edit1.Text[i] = ' ' then begin achou := Edit1.Text[i + 1]; Edit2.Text := Edit2.Text + achou; end; end; end; abraço

Amigo ... não é compartibilidade e sim compatibilidade Ou seja, é uma maneira de fazer o seu executável que rodava no windows XP rodar no windows Vista. Não sei se é possivel pelo delphi, mas depois dou uma verificada ... ok ? abraço

Este componente não vem com esta versão do delphi Voce vai encontar este componente na versão delphi for .NET ou no delphi 7 Em component > install packages ir em C:\Arquivos de programas\Borland\Delphi7\Bin e adicionar o dclmcn70.bpl Conteudo da bpl: dclmcn70.bpl(Borland DataSnap Connection Components) abraço