TMemoField > TMemoryStream

[Gulik]

Пробую выгрузить данные в TMemoryStream но что-то не выходит:

procedure TStrPredForm.FormShow(Sender: TObject);
   var
      TrStr : TMemoryStream ;
begin
   TrStr := TMemoryStream.Create ;
   VibrPredForm.ZQuery1Tree.SaveToStream(TrStr);
   //TreeView1.LoadFromFile('TrStr.txt');
   Memo1.Lines.LoadFromStream(TrStr);
   TrStr.Free ;
end;

хотя если сохраняю TMemoField в файл то все нормально

procedure TStrPredForm.FormShow(Sender: TObject);
   var
      TrStr : TMemoryStream ;
begin
   TrStr := TMemoryStream.Create ;
   VibrPredForm.ZQuery1Tree.SaveToFile('TrStr.txt');
   TrStr.LoadFromFile('TrStr.txt');
   TreeView1.LoadFromStream(TrStr);
   Memo1.Lines.LoadFromStream(TrStr);
   TrStr.Free ;
end;

скажите в чем может быть дело, я раньше не работал с TMemoryStream

Или может есть еще способ загрузить в TreeView данные из TMemoField, не используя обмен при помощи файла

[Аватар]

Попробуйте так, должно помочь

   VibrPredForm.ZQuery1Tree.SaveToStream(TrStr);
   //TreeView1.LoadFromFile('TrStr.txt');
   TrStr.Position:=0;
   Memo1.Lines.LoadFromStream(TrStr);

[Gulik]

Помогло, спасибо.