Jhonas

Acho que voce esta complicndo muito, mas de qualquer forma veja este exemplo: rotina para fazer combinações de numeros e jogar dentro de um Memo procedure TForm1.Button1Click(Sender: TObject); var i, y : Integer; vlrs : array [1..5] of Byte; S : string; vList : TStrings; begin if Button1.Tag = 1 then begin Button1.Tag := 0; Exit; end; FillChar(vlrs, SizeOf(vlrs), 0); vlrs[1] := 1; y := 0; Memo1.Clear; vList := TStringList.Create; try Button1.Tag := 1; repeat S := ''; for i := 1 to High(vlrs) do if not (vlrs[i] = 0) then //o forum não aceita diferente S := ' - ' + IntToStr(vlrs[i]) + S; Delete(S, 1, 3); vList.Add(S); for i := 1 to High(vlrs) do begin if 25 > vlrs[i] then begin Inc(vlrs[i]); Break; end else if i = High(vlrs) then Exit else vlrs[i] := 1; end; Inc(Y); if Y >= 1007 then begin Memo1.Lines.AddStrings(vList); // Memo1.CaretPos := Point(0, Memo1.Lines.Count - 1); SendMessage(Memo1.Handle, EM_SCROLLCARET, 0,0); vList.Clear; Y := 0; Application.ProcessMessages; end; until Button1.Tag = 0; Memo1.Lines.AddStrings(vList); finally vList.Free; Button1.Tag := 0; end; end; abraço

Essa é aquela dll usada para ler uma digital ? ( biometria )

Já que quer algo bem simples, ai esta um exemplo: usando o RichEdit com um texto dentro dele, voce seleciona com o mouse uma parte do texto e clica no botão procedure TForm1.Button1Click(Sender: TObject); begin with RichEdit1 do begin SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; end; end; abraço

2 componentes para dar zoom m imagem http://www.edudelphipage.com.br/down/componen/zimage.zip http://www.edudelphipage.com.br/down/componen/zoomier.zip abraço

Veja o exemplo do proprio delphi C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr2 ou C:\Arquivos de programas\Borland\Delphi5\Demos\Quickrpt\Qr3 abraço

No DBgrid va em Options e deixe a propriedade dgRowSelect = true ... a linha toda ficara em vermelho abraço

Leia esse texto e utilize o componente ZQuery http://www.plugmasters.com.br/sys/materias...MySQL---Parte-I http://www.plugmasters.com.br/sys/materias...ySQL---Parte-II abraço

use o componente DBMemo que faz link direto com a tabela o que voce escrever nele sera gravado no banco de dados abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...hlite=keylogger abraço

Arrais Júnior... quando peço para procurar no forum é porque eu sei que existe um post que tem o que voce procura, simplesmente eu não me lembro exatamente em qual está. Mas procurando para voce eu encontrei... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, Db, DBTables; type TForm1 = class(TForm) Query1: TQuery; DataSource1: TDataSource; FindDialog1: TFindDialog; RichEdit1: TRichEdit; DBGrid1: TDBGrid; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FindDialog1Find(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top); FindDialog1.Execute; end; procedure TForm1.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; X : INTEGER; vBusca : string; begin X := 0; RichEdit1.Lines.Clear; DataSource1.DataSet.First; while not DataSource1.DataSet.Eof do begin vBusca := DataSource1.DataSet.FieldByName('NOME').AsString; if pos(FindDialog1.FindText,vBusca) > 0 then RichEdit1.Lines.Append(vBusca); DataSource1.DataSet.Next; end; with RichEdit1 do begin WHILE X <= RichEdit1.Lines.Count DO BEGIN if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; ToEnd := Length(Text) - StartPos; FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; end; INC(X); END; end; end; end. function TForm1.fnBuscarPorPalavra (RichEdit : TRichEdit; DataSource : TDataSource) : Boolean; var ProcurePor : LongInt; PosInicial, PosFinal : integer; vPosAntiga : Integer; vBusca : String; begin Result := True; try with RichEdit do begin vPosAntiga := SelStart; SelStart := 1; SelLength := 0; DataSource.DataSet.First; while True do begin PosInicial := SelStart + SelLength; PosFinal := Length(trim(Text)) - PosInicial; if DataSource.DataSet.RecordCount <= 0 then Break; if DataSource.DataSet.Eof then Break; while not DataSource.DataSet.Eof do begin vBusca := DataSource.DataSet.FieldByName('DESCRI').AsString; ProcurePor := FindText(vBusca, PosInicial, PosFinal, []); if ProcurePor <> -1 then begin DataSource.DataSet.Next; Break; end; begin SetFocus; SelStart := ProcurePor; SelLength := Length(TRIM(vBusca)); end; SelAttributes.Color := clRed; SelAttributes.Style := SelAttributes.Style + [fsBold]; DataSource.DataSet.Next; end; end; SelStart := vPosAntiga; SelLength := 0; SelAttributes.Color := clWindowText; end; except raise; Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); begin fnBuscarPorPalavra(RichEdit1,DataSource1); end; end. OBS: Esse código procura por uma palavra dentro de um determinado campo da tabela e joga dentro de um RichEdit e deixa o texo em vermelho, basta voce modificar o código para fazer o que esta querendo. abraço

O ideal é perguntar para quem já esta usando isso http://www.forumweb.com.br/foruns/index.ph...eletronica-nfe/ abraço

Qual é a finalidade disso ... visto que cada numero adicionado a lista, fara crescer em progressão geométrica as combinações ??

exprimente assim: exemplo: procedure TFCadProd.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(TCadProd1.RecNo) then begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= cl3DLight; end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.Brush.Color:= clWhite; end; if (gdSelected in state) then DBGrid1.Canvas.Font.Color:= clred else DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; abraço

Mais a noite farei um teste e posto o resultado ... ok ? abraço

Procure sempre fazer uma pesquisa no forum ... vai achar o que procura http://scriptbrasil.com.br/forum/index.php...lite=justificar OBS: veja o link do post acima que te passei abraço

na seleção de posts que indiquei existe esse: http://scriptbrasil.com.br/forum/index.php...amp;hl=richtext abraço

Esse exemplo é para um memo mas serve para o richedit http://scriptbrasil.com.br/forum/index.php...st&p=241275 abraço

Voce vai achar a resposta em algum desses posts http://scriptbrasil.com.br/forum/index.php...ighlite=zebrado abraço

Tem sim ... é o append exemplo: procedure TForm1.Button1Click(Sender: TObject); var myFile : TextFile; text : string; begin AssignFile(myFile, 'Test.txt'); ReWrite(myFile); WriteLn(myFile, 'Hello'); WriteLn(myFile, 'World'); CloseFile(myFile); // Reabre para adicionar uma linha no final do texto Append(myFile); // Escreve isto no final do texto WriteLn(myFile, 'Linha adicionada no final do texto'); // Fecha o arquivo CloseFile(myFile); // Reabre o arquiv para leitura Reset(myFile); // Mostra o conteudo do arquivo while not Eof(myFile) do begin ReadLn(myFile, text); ShowMessage(text); end; // Fecha o arquivo novamente CloseFile(myFile); end; abraço

voce não pode usar o Memo para isso... terá que usar o RichText vai achar no forum varios topicos sobre isso http://scriptbrasil.com.br/forum/index.php...ghlite=richtext abraço

Neste caso, pode ser erro de componente .... delete os componentes de acesso a tabela do seu form e coloque-os novamente abraço

Não consigo registrar a IRSDK.dll e em consequencia ocorre um erro interno no programa vou tentar descobrir o motivo abraço

O erro reporta que o campo Chavesid deve ter um valor, ou seja, o autoincremento não esta funcionando como deveria. sugestão: delete o campo da tabela no banco de dados e refaça o procedimento para inclui-lo novamente, definindo o generator e a trigger novamente. abraço

o campo na tabela podera ser de qualquer tipo, desde que voce faça a devida conversão de tipo um exemplo bem simples para voce entender procedure TForm1.Button1Click(Sender: TObject); var A : TStringlist; i : integer; begin A := TStringlist.create; // Cria instancia A.Clear; // Limpa o StringList A.Append('AAA1'); // adiciona um texto A.Append('BBB2'); A.Append('CCC3'); A.Append('DDD4'); // contador para inserir o conteudo do stringlist na tabela for i := 0 to A.Count-1 do begin Query1.Last; Query1.Append; Query1.Edit; // atribui ao campo da tabela o valor do indice do StringList Query1COD.Value := A.Strings[i]; Query1.Post; // salva a tabela end; A.Free; // Libera memoria end; abraço

Se eu conseguir rodar o aplicativo ( erro na criação de form ) eu te passo como proceder. abraço