Jhonas

Voce já teve sua resposta no http://www.devmedia.com.br/forum/delphi/38...o-IbExpert.html ou veja o tutorial do IBExpert http://www.ibexpert.com/download/tutorial/communication1.pdf abraço

exemplo: //delphi convert a byte array to a string function ConvertByteArrayToString(const V:OleVariant):string; var count: Integer; ptr: Pointer; begin Result:=''; if VarIsNull(V) then Exit; count := VarArrayHighBound(V, 1) + 1; SetLength(Result,Count); ptr := VarArrayLock(V); try Move(ptr^,Result[1],Count); finally VarArrayUnlock(V); end; end; outros exemplos http://www.spectrum.eti.br/news/converter_...rray_em_tstream http://www.spectrum.eti.br/news/taxonomy/term/13 http://www.delphigroups.info/2/11/1028662.html abraço

Veja esse artigo http://www.delphibasics.co.uk/Article.asp?Name=DataTypes Isso mais o exemplo que te passei, acho que voce consegue fazer o que esta querendo abraço

links para pesquisa http://delphi.about.com/od/delphitips2007/...me_oncreate.htm http://stackoverflow.com/questions/485787/...ect-from-a-form http://www.techtips.com.br/programacao/del...tica-parte-01n/ http://www.techtips.com.br/programacao/del...mas-com-frames/ http://imasters.uol.com.br/artigo/344/delp..._objeto_tframe/ abraço

Esse exemplo não foi muito elucidativo, pois se voce quer que exiba o valor do teste1 é só fazer dessa maneira: procedure TForm1.Button2Click(Sender: TObject); var teste1, teste2, teste3 : string; begin teste1 := 'C:\Douglas'; teste2 := 'C:\Jhonas'; teste3 := 'C:\Teste'; ShowMessage(teste1); end; abraço

Veja se funciona assim WinExec(PWideCHAR(WideString('i_view32.exe'+Edit1.Text)),1); abraço

Seria algo assim: procedure TForm1.DBEdit7KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key:= #0; end; procedure TForm1.Button1Click(Sender: TObject); begin total := dm.CdsItpdcmpQTD_PRODUTO.Value * Dm.CdsItpdcmpPRC_UNT.Value; if total > 0 then begin if (DBEdit7.Text <> '') then begin dm.CdsItpdcmp.Edit; Dm.CdsItpdcmpPRC_UNT.Value := StrToFloat(DBEdit7.Text); Dm.CdsItpdcmpPRC_TOT.Value := total; vlrtotalped := vlrtotalped + total; dm.CdsPedidoCompraVLR_PED.Value := vlrtotalped; dm.CdsItpdcmp.post; dm.CdsItpdcmp.ApplyUpdates(0); end else DBEdit7.Setfocus; end; end; abraço

Para o Delphi 2010 os tipos Char e o Pchar são os tipos WideChar e PWideChar respectivamente abraço

Veja este exemplo: var Form1: TForm1; myVar : Variant; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin myVar := 200; ShowBasicVariantType(myVar); myVar := 'Edit1'; ShowBasicVariantType(myVar); myVar := 120.90; ShowBasicVariantType(myVar); myVar := strtodate('10/02/1980'); ShowBasicVariantType(myVar); end; procedure TForm1.ShowBasicVariantType(varVar: Variant); var typeString : string; basicType : Integer; begin // chama o tipo basico da variant basicType := VarType(varVar) and VarTypeMask; // Seta a string para o tipo case basicType of varEmpty : typeString := 'varEmpty'; varNull : typeString := 'varNull'; varSmallInt : typeString := 'varSmallInt'; varInteger : typeString := 'varInteger'; varSingle : typeString := 'varSingle'; varDouble : typeString := 'varDouble'; varCurrency : typeString := 'varCurrency'; varDate : typeString := 'varDate'; varOleStr : typeString := 'varOleStr'; varDispatch : typeString := 'varDispatch'; varError : typeString := 'varError'; varBoolean : typeString := 'varBoolean'; varVariant : typeString := 'varVariant'; varUnknown : typeString := 'varUnknown'; varByte : typeString := 'varByte'; //varWord : typeString := 'varWord'; //varLongWord : typeString := 'varLongWord'; //varInt64 : typeString := 'varInt64'; varStrArg : typeString := 'varStrArg'; varString : typeString := 'varString'; varAny : typeString := 'varAny'; varTypeMask : typeString := 'varTypeMask'; end; // Mostra o tipo da Variant ShowMessage('Variant type = '+typeString); end; OBS: Veja que a variant myVar assumira um tipo basico dependendo do conteudo que lhe for passado abraço

Na propriedade Max do UpDown coloque 100 e na propriedade Min coloque -100 No evento OnClick coloque: procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType); var val, c, a, i : integer; S: string; begin if Button = btNext then begin S := Edit1.Text; while Pos('.', S) > 0 do delete(s,Pos('.', S),1); val := strtoint(trim(s)); val := val + 1; s := inttostr(val); c := length(trim(s)); for a := 1 to c-1 do Insert('.',s,a*2); Edit1.Clear; Edit1.Text := s; end; if Button = btPrev then begin S := Edit1.Text; while Pos('.', S) > 0 do delete(s,Pos('.', S),1); val := strtoint(trim(s)); val := val - 1; s := inttostr(val); c := length(trim(s)); for a := 1 to c-1 do Insert('.',s,a*2); Edit1.Clear; Edit1.Text := s; end; end; No edit voce digita o valor que quer começar exemplo: 1.0 ou 1.1.2.0 etc... o valor digitado irá variar de 100 a -100 Obs: se quiser começar com 0.0.1 não esqueça de adicionar zeros ( caracter ) a esquerda do numero Como eu disse é bem facil ..... abraço

Use um componente Edit e um componente UpDown da paleta Win32 voce quer mastigado ou quer tentar fazer ??? rs é bem facil abraço

Voce pode fazer isso pelo proprio windows Iniciar > Programas > Acessórios > Acessibilidade > Lente de aumento abraço

Veja este video http://www.devmedia.com.br/post-223-Video-...-Cross-Tab.html abraço

Fiz um teste aqui e funciona ... coloquei na tabela o cnpj 12.345.678/0000-01 exemplo: SELECT Cnpj FROM "TESTE.db" Teste WHERE Cnpj LIKE '%12.345.678%' e com este select ele encontrou basta voce adpatar o seu código como esta no exemplo abraço

Voce vai precisar disso: Salvar e carregar todas as imagens para um TImageList http://delphi.about.com/od/delphitips2007/...tecomponent.htm abraço

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

exprimente '(CTRCTEMP.DEST_CNPJ LIKE BCLIENTES.CNPJ) '+ abraço

Eu te passei apenas uma das apostilas, voce tem que entrar no site e baixar as outras que tratam desse assunto Veja na área de download http://www.nitgen.com.br/Produtos/HamsterI.aspx por exemplo: neste voce vai achar sobre esse tópico Módulo Image Conversion O módulo de conversão de imagem provê algumas APIs que pode ser utilizadas para converter dados da imagem da impressão digital para vários tipos de formatos de imagens. http://www.nitgen.com.br/download/Guia_de_...mento_eNBSP.pdf abraço

componente TLMDPNGImageList Dê duplo click no componente e ele abrira a lista.... funciona igual ao ImageList abraço

Veja neste link http://www.ibphoenix.com/main.nfs?a=ibphoe...ge=ibp_udf_libs abraço

Leia o manual http://www.nitgen.com.br/download/Guia_de_...P_%20Delphi.pdf abraço

Estou seguindo somente o seu reciocinio: procedure TForm1.Button1Click(Sender: TObject); var primeiro, segundo, terceiro:integer; // variavel para guardar o número, e se não der erro adicionar os três na tabela2. begin while not Table1.Eof do begin if Table1.FieldByName('um').AsInteger <> StrToInt(edit1.text) then // testa se o número existe na tabela1 campo 1 primeiro:= StrToInt(edit1.text) // se não existe no campo 1 grava nesta variavel else if Table1.FieldByName('dois').AsInteger <> StrToInt(edit1.text) then // testa se o número existe na tabela1 campo 2 primeiro:= StrToInt(edit1.text) // se não existe no campo 1 grava nesta variavel else if Table1.FieldByName('tres').AsInteger <> StrToInt(edit1.text) then // testa se o número existe na tabela1 campo 3 primeiro:= StrToInt(edit1.text) // se não existe no campo 1 grava nesta variavel else begin Label1.Caption:='Primeiro número informado ainda não existe na base, o mesmo será gravado na tabela dois'; end; if Table1.FieldByName('um').AsInteger <> StrToInt(edit2.text) then // testa se o número existe na tabela1 campo 1 segundo:= StrToInt(edit2.text) // se não existe no campo 2 grava nesta variavel else if Table1.FieldByName('dois').AsInteger <> StrToInt(edit2.text) then // testa se o número existe na tabela1 campo 2 segundo:= StrToInt(edit2.text) // se não existe no campo 2 grava nesta variavel else if Table1.FieldByName('tres').AsInteger <> StrToInt(edit2.text) then // testa se o número existe na tabela1 campo 3 segundo:= StrToInt(edit2.text) // se não existe no campo 2 grava nesta variavel else begin Label2.Caption:='Segundo número informado ainda não existe na base, o mesmo será gravado na tabela dois'; end; if Table1.FieldByName('um').AsInteger <> StrToInt(edit3.text) then // testa se o número existe na tabela1 campo 1 terceiro:= StrToInt(edit3.text) // se não existe no campo 3 grava nesta variavel else if Table1.FieldByName('dois').AsInteger <> StrToInt(edit3.text) then // testa se o número existe na tabela1 campo 2 terceiro:= StrToInt(edit3.text) // se não existe no campo 3 grava nesta variavel else if Table1.FieldByName('tres').AsInteger <> StrToInt(edit3.text) then // testa se o número existe na tabela1 campo 3 terceiro:= StrToInt(edit3.text) // se não existe no campo 3 grava nesta variavel else begin Label3.Caption:='Terceiro número informado ainda não existe na base, o mesmo será gravado na tabela dois'; end; Table1.Next; end; end; abraço

No primeiro link ou http://www.gegereka.com/?query=NImgConv%20dll abraço

A conversão não é feita atraves de componente mas de código Se o lance ainda é biometria, baixe o sdk da Nitgen que é gratuito Segue o link para o SDK da NitGen http://www.nitgen.com.br/download/eNBSP_SDK_4.81.zip ou http://www.nitgen.com.br/Produtos/HamsterI.aspx http://www.4shared.com/file/115148868/f0f6...n-HamsterI.html abraço

Não vou te passar mastigado por que senão não vai aprender, mas vou te dar uma começo da lógica procedure TForm1.Button1Click(Sender: TObject); var tab1_campo1, tab1_campo2, tab1_campo3 : string; tab2_campo1, tab2_campo2, tab2_campo3 : string; begin // Testanto Edit1 com os campos da tabela if edit1.Text <> tab1_campo1 then begin if edit1.Text <> tab1_campo2 then begin if edit1.Text <> tab1_campo3 then begin end else begin end; end else begin end; end else begin end; // Testanto Edit2 com os campos da tabela if edit2.Text <> tab1_campo1 then begin if edit2.Text <> tab1_campo2 then begin if edit2.Text <> tab1_campo3 then begin end else begin end; end else begin end; end else begin end; // Testanto Edit3 com os campos da tabela if edit3.Text <> tab1_campo1 then begin if edit3.Text <> tab1_campo2 then begin if edit3.Text <> tab1_campo3 then begin end else begin end; end else begin end; end else begin end; end; abraço