Web Mahsülleri OfisiOfis yazılımcının kara gün dostudur!

RichEdit kullanarak word dökümanındaki gibi metinleri biçimlendirebilirsiniz. Metnin istediğiniz yerlerindeki karakterlerin fontları üzerinde oynama yapabilirsiniz. Zor olan kısım ise formatlı bir şekilde richedit üzerinde bulunan metnin veritabanına kaydedilip tekrar yüklenmesidir.

Metni formatlı bir şekilde kullanmak için ilk başta richedit ‘in properties sekmesinde bulunan “plain text” alanı “false”  olmalıdır. Bu alan “true” olursa richedit üzerindeki veriler formatsız bir şekilde tutulacaktır.  Veritabanında metnin tutulacağı alanı ntext olarak tanımladığımızda aşağıdaki kodlar işimizi görecektir.

procedure Tform1.Kaydet;
var
mStream : TMemoryStream;
strList : TStringList;
begin

mStream := TMemoryStream.Create;
strList := TStringList.Create;

richEdit.Lines.SaveToStream( mStream );
mStream.Position := 0;
strList.LoadFromStream( mStream );

SQL metni=strList.Text;

mStream.Free;

strList.Free;

end;

Kontrol amaçlı strList degişkenin değerini görmek isterseniz

“{\rtf1\ansi\deff0{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset162 Calibri;}{\f2\fnil Calibri;}}  \viewkind4\uc1\pard\lang1055\ul\b\i\f0\fs16 d\f1 skjdsjds\par  s\’fedlsd\’fel\par  sd\’felsd\par  sd\’felsdms\par  sdisd\par  sdsd\ulnone\b0\i0\f2\par  }  ”

benzeri bir ifadeyle karşılaşırsınız. Kayıtlı verileri görüntülemek için ise yine aynı yöntemi kullanabilirsiniz.