小弟於FROM上放一DBRichEdit,當使用者按右鍵時便開啟另一個function(利用function來開啟另一個編輯的FROM,僅放置一個RichEdit)來做內容編輯,小弟將DBRichEdit的內容利用TBlobStream.Create(q1.FieldByName('chan') as TBlobField, bmRead)將DBRichedit的內容傳到Function,而function利用    function TAC_RICH(cap:String;ED:TBlobStream):TRichEdit; begin   Application.Createform(TfrmTAC_RichEdit, frmTAC_RichEdit);   with frmTAC_RichEdit do begin     Caption := cap;     RichEdit1.Lines.LoadFromStream(Ed); ShowModal; end; Result := frmTAC_RichEdit.RichEdit1; end; 現在小弟的問題是該如何將處理完後RichEdit中的內容該如何傳回去呢?? 小弟目前可以將值傳出,但是傳不回去???????幫幫忙吧!! ======================== 我是DELPHI5的初學者

procedure TForm1.Button1Click(Sender: TObject);
var
  ms: TMemoryStream;
  re: TRichEdit;
begin
  ms := TMemoryStream.Create;
  re := TAC_RICH(...);
  re.SaveToStream(ms);
  ms.Position := 0;
  DBRichEdit1.Lines.LoadFromStream(ms);
  ms.Free;
end;

-- Everything I say is a lie. 發表人 - hagar 於 2004/06/28 18:29:08

jch 你好: 一般來說 uses a-unit 跟 b-unit 可以取得a的資源跟b的資源 可以把之間的元件值互傳

------
======================
昏睡~
不昏睡~
不由昏睡~

多謝hagar 大哥的回覆,問題已經順利解決了!!多謝!! ======================== 我是DELPHI5的初學者