30-07-2014, 06:55 PM
وعليكم السلام ورحمة الله
جربت هذا الكود ولم ينجح ، بل حتى اذا خزنته في ملف مثلا myrich.rtf نجد بعد فته انه بتنسيق تاكست عادي وليس RTF
جربت هذا الكود ولم ينجح ، بل حتى اذا خزنته في ملف مثلا myrich.rtf نجد بعد فته انه بتنسيق تاكست عادي وليس RTF
كود :
procedure Tgsf.cySpeedButton12Click(Sender: TObject);
var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
try
Edtdetail.Lines.SaveToStream(Stream);
Stream.Seek(0, soFromBeginning);
TBlobField(dm.Qedit2.FieldByName('observation')).LoadFromStream(Stream);
finally
Stream.Free;
end;
end;
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر