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