FIB, TMemoryStream, TRichEdit

← →
faiwer © (2009-09-28 17:53) [0]

FIB, D09. Почему следующий код не работает?

var mem: TMemoryStream; begin ... mem:=TMemoryStream.Create; TBlobField(DM.RecipesDS.FieldByName("TEXT")).SaveToStream(mem); ТекТекст.Lines.LoadFromStream(mem); mem.Free; ... end;

При этом аналогичный ему:

TBlobField(DM.RecipesDS.FieldByName("TEXT")).SaveToFile("temp\text.rtf"); ТекТекст.Lines.LoadFromFile("temp\text.rtf");
работает...

так же работает следующий код:
mem:=TMemoryStream.Create; try ТекТекст.Lines.SaveToStream(mem); TBlobField(DM.RecipesDS.FieldByName("TEXT")).LoadFromStream(mem); finally mem.Free; end;

Меня в принципе и через файл устроит, но хотелось бы сделать по уму...

← →
Игорь Шевченко © (2009-09-28 18:02) [1]

RTFM: TStream.Seek

заработало, ty

FIB, TMemoryStream, TRichEdit Найти похожие ветки