xikara

procedure Tfrmficha.formatarClick(Sender: TObject); var fp: TFontParams; begin if FontDialog1.Execute then begin fp.Color:=FontDialog1.Font.Color; fp.Size:= FontDialog1.Font.Size; fp.HasBkClr:= false; fp.Style:= FontDialog1.Font.Style; fp.Name:=FontDialog1.Font.Name; RichMemo1.SetTextAttributes(RichMemo1.SelStart, RichMemo1.SelLength,fp); end; end; procedure Tfrmficha.lerClick(Sender: TObject); var M: TMemoryStream; begin DM.FichaTable.SQL.Text := 'select resumo from ficha where idFicha = :ID'; DM.FichaTable.ParamByName('ID').AsInteger := 1; DM.FichaTable.Open; if DM.FichaTable.RecordCount = 1 then begin M := TMemoryStream.Create; try TBlobField( DM.FichaTable.FieldByName('resumo') ).SaveToStream(M); //salvar o field em um stream M.Position := 0; //esta linha é necessária pois ao salvar o stream ele estará na posição final //Ric RichMemo1.LoadRichText(M); finally M.Free; end; end; end; procedure Tfrmficha.gravarClick(Sender: TObject); var M: TMemoryStream; begin M := TMemoryStream.Create; try dm.FichaTable.close; RichMemo1.Lines.SaveToStream(M); //salvar o RichEdit em stream //Gravar blob na tabela via SQL DM.FichaTable.SQL.Text := 'insert into ficha (idficha, resumo) values (:A , :B)'; DM.FichaTable.ParamByName('A').AsInteger := 1; DM.FichaTable.ParamByName('B').LoadFromStream(M, ftBlob); dm.FichaTable.ExecSQL; finally M.Free; end; end; formatando e gravando no banco de dados eu consegui não esta alterado e nem lendo o arquivo do banco

Deu certinho obrigado

Obrigado pela ajuda vou fazer as alterações

mais ele esta ligado a um resistor de 1k e um led e o led no terra coloquei um resistor de 1 ohm como jumper do pino 8 para o terra nao imagem do circuito o de azul e onde coloco o dedo e funciona o de vermelho e ondo nao funciona se eu nao colocar o dedo obrigado esquema do circuito

estou usando o ci 4017 com ci 555 como temporizador o 555 esta funcionado corretamente quando coloco o dedo entre o a trilha do do terminal 4 do ci 4017 e o terra o ci funciona corretamente alguém pode me ajudar? tem algo que possa fazer