Jhonas

voce deve usar um Edit para digitar as iniciais da palavra e vai usar o dbgrid para visualizar o resultado use os componentes TQuery, TDataSetProvider, TClientDataSet e TDataSource ... faça as ligações entre eles ( se não souber pesquise no forum ) a instrução SQL ficaria dessa forma: Select * From Tabela where campo like :texto order by campo no botão de pesquisa ficaria dessa forma: Query1.Active := false; ClientDataSet1.Active := false; ClientDataSet1.Params[0].AsString := Trim(Texto)+'%'; Query1.Prepare; Query1.Active := true; ClientDataSet1.Active := true; ClientDataSet1.First; e no evento OnExit do TEdit texto := Edit1.Text; OBS: Já existem exemplos no forum .. favor pesquisar abraço

Estou com problemas para descobrir se alguém esta editando o Registro voce deve testar o estado da tabela no evento OnDataChange do DataSource exemplo: http://scriptbrasil.com.br/forum/index.php...st&p=456151 no exemplo indicado, voce vai observar que qualquer mudança que ocorra na tabela, essa mudança será refletida para os botões ( simulação de um DBNavigator ) voce pode usar a idéia para saber se alguém está editando um registro da tabela, e enviar uma mensagem de aviso OBS: essa pratica deixou de ser usada a algum tempo, pois não era produtivo bloquear um registro, enquanto ele estivesse sendo usado por um usuário e esperar até que esse usuário o liberasse. abraço

na propriedade WindowState do form deixe como wsMaximized se a barra de ferramentas não estiver oculta o form ocupara toda a tela mantendo a barra de ferramentas abraço

Faça uma pesquisa no forum pela palvra update ou então veja http://www.w3schools.com/SQl/sql_update.asp abraço

pesquise nos posts sobre CHARACTER SET E COLLATE http://scriptbrasil.com.br/forum/index.php...ighlite=COLLATE abraço

veja nas configurações do setup da BIOS, se o seu micro tem suporte a boot pelo pen-drive quanto ao cd-rom, voce deve configurar na BIOS para que ele seja o primeiro a dar Boot abraço

veja http://scriptbrasil.com.br/forum/index.php...mp;#entry619935 abraço

Esta operação não é definida para tabelas do sistema actualização mal sucedida dos metadata. STORE RDB$PROCEDURE_PARAMETERS falhou. tente armazenar o valor duplicado (visível às transações ativas) em um unico indice "RDB$INDEX_18". abraço

exemplo de uso procedure DecodeSafeArray(TheSafeArray: PSafeArray; TheStrings: TStrings); var L, U, I: LongInt; W: WideString; begin SafeArrayGetLBound(TheSafeArray, 1, L); SafeArrayGetUBound(TheSafeArray, 1, U); for I := L to U do begin SafeArrayGetElement(TheSafeArray, I, W); TheStrings.Add(W); end; end; outros exemplos, a partir da pagina 5 dessa apostila http://www.docstoc.com/docs/2246411/Inform...and-Safe-Arrays abraço

exemplos: Como fazer um acesso SafeArray com uma DLL para variantes (OLE) http://www.delphi3000.com/articles/article_2479.asp Os misterios do PSafeArray http://blog.virtec.org/category/delphi/ abraço

voce encontra na net http://ensino.univates.br/~chaet/Materiais/CURSOmatlab52.pdf abraço

veja o video http://www.youtube.com/watch?v=me53aM6n_1Y abraço

amigo ... para resolver execicio de aula, voce deve procurar por material ditatico sobre o matlab veja http://ensino.univates.br/~chaet/Materiais/CURSOmatlab52.pdf abraço

veja http://ensino.univates.br/~chaet/Materiais/CURSOmatlab52.pdf abraço

Calculadora PAGE ,132 TITLE CALC CGROUP GROUP CODESEG CODESEG SEGMENT PARA PUBLIC 'CODE' ASSUME CS:CGROUP,DS:CGROUP,ES:CGROUP PUBLIC CALC ORG 100H CALC PROC FAR JMP START ;---------------------------------------------------------------------; ; ; ; DATA AREA ; ; ; ;---------------------------------------------------------------------; DB 'INTERRUPT NUMBER =' INT_NUMBER DB 61h SCREEN_HANDLE DW 0001h MESSAGE DB 'PEMATH is not resident',13,10 MESSAGE_LEN EQU $-MESSAGE TAG DB 'PEMATH' TAG_LEN EQU $-TAG ;---------------------------------------------------------------------; ; ; ; CODE AREA ; ; ; ;---------------------------------------------------------------------; START: ;---------------------------------------------------------------------; ; TEST FOR PRESENCE OF CALCULATOR ; ;---------------------------------------------------------------------; SUB AX,AX MOV ES,AX SUB BH,BH MOV BL,INT_NUMBER SHL BX,1 SHL BX,1 MOV DI,ES:[BX] MOV ES,ES:[BX+2] ADD DI,4 LEA SI,TAG MOV CX,TAG_LEN REPE CMPSB JE CALL_CALC MOV BX,SCREEN_HANDLE MOV CX,MESSAGE_LEN LEA DX,MESSAGE MOV AH,40h INT 21h JMP SHORT CALC_EXIT ;---------------------------------------------------------------------; ; CALL CALCULATOR ; ;---------------------------------------------------------------------; CALL_CALC: MOV AL,INT_NUMBER MOV BYTE PTR INT_CODE,AL DB 0CDh ; INT INT_CODE: DB 00h NOP NOP CALC_EXIT: INT 20h CALC ENDP CODESEG ENDS END CALC abraço

- SQLQuery foi criado pela Borland para facilitar a migração daqueles que antes usavam o TQuery do BDE. (o TQuery é mais parecido com o SQLQuery ). o SQLQuery e mantido somente para ajudar no processo de migração de outras midlewares por exemplo, eles podem basicamente ter as mesmas funções, mas o SQLDataSet é mais avançado e tem mais recursos que o SQLQery; Voce pode usar o SQLDataSet, que é mais versátil que o SQLQuery porque, nesse único componente, você pode fazer SELECTs, INSERT, etc., e também pode usá-lo como um TTable (para abrir a tabela toda - O QUE NÃO É RECOMENDÁVEL, devido à lentidão) ou como um TStoredProcedure (TQuery, TTable e TStoredProcedure são componentes da época do BDE). veja um exemplo de uso: http://www.arquivodecodigos.net/dicas/delp...elphi-3202.html abraço

experimente atualizar a pasta, clicando com o botão direito do mouse dentro da pasta e clicando em Atualizar abraço

se voce fez a instalação do programa via install shield, voce deve atualizar novamente a instalação via install shield, senão ficara com esse problema. Não basta trocar somente o executavel. abraço

confira o seu código com este ... veja principalmente a uses unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure ListBox1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox1.Items.Append(inttostr(x)+','+inttostr(y)); Form1.Canvas.Font.Color := clBlue; Form1.Canvas.Rectangle(x,y,x+3,y+3); end; procedure TForm1.ListBox1Click(Sender: TObject); var x , y : integer; s : string; begin s := Listbox1.Items.Strings[listBox1.ItemIndex]; x := strtoint(copy(s,1,pos(',',s)-1)); delete(s,1,pos(',',s)); y := strtoint(trim(copy(s,1,3))); SetCursorPos(x,y); end; end. se voce estiver compilando no delphi 5 tire a uses Variants abraço

procedure TForm1.ListBox1Click(Sender: TObject); var x , y : integer; s : string; begin s := Listbox1.Items.Strings[listBox1.ItemIndex]; x := strtoint(copy(s,1,pos(',',s)-1)); delete(s,1,pos(',',s)); y := strtoint(trim(copy(s,1,3))); SetCursorPos(x,y); end; abraço

veja http://www.ietf.org/rfc/rfc959.txt abraço

é possivel sim... entretanto, existem programas que rastreiam os Ips até a sua origem ( que seria o seu provedor de internet ) uma das maneiras, seria se o seu IP fosse trocado a cada X minutos ou o seu endereço mac abraço

exemplo: SetCursorPos(x,y); veja esse exemplo coloque um ListBox em um canto form e coloque o código no evento OnMouseUp do form unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListBox1.Items.Append(inttostr(x)+','+inttostr(y)); Form1.Canvas.Font.Color := clBlue; Form1.Canvas.Rectangle(x,y,x+3,y+3); end; end. veja que no listbox vai sendo armazenado as posições de coordenadas X e Y do mouse, quando voce clica numa area do form ao mesmo tempo vai sendo marcada essas posições no form abraço

muito simples ... procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin end; como voce pode observar, existem 3 eventos do mouse onde voce tem a posição do X e do Y do mouse então o valor da posição X vem primeiro e do Y depois exemplo: SetCursorPos(x,y); abraço

no QRGroup1, use a propriedade Expression ... coloque o campo da tabela que voce quer apareça apenas uma unica vez ( no seu caso o nome das verduras ) abraço