Memo.Lines.LoadFromStream(MS);

[VAshot]

Почему не работает следующая конструкция?

Код: Выделить всё

MS: TMemoryStream;
BL = TBlobField;
MS := TMemoryStream.Create;
MS.Clear;
-----
BL(FBDataSet.FieldByName('PARAMETRES')).SaveToStream(MS);
Memo.Lines.LoadFromStream(MS);

когда, как следующая работает:

Код: Выделить всё

BL(FBDataSet.FieldByName('PARAMETRES')).SaveToStream(MS);
MS.SaveToFile('D:\a.txt');
Memo.Lines.LoadFromFile('D:\a.txt');

[alexs]

А спозиционировать MS в начало потока кто будет?
после записи в поток указатель будет в конце потока
и что ты из конца прочитаеш?