Richedit Fehler

[ibp]

Zitat von franktron:

Code:

Var
   Stream   : TStream;
begin
   if View.Name = 'Memo_D4' then
   Begin
      If D_Master_SQL2.FieldByName('memop').IsNull then Exit;
      Stream:=D_Master_SQL2.CreateBlobStream(D_Master_SQL2.FieldByName('memop'),bmRead);  ' <--- wo ist ist das create von stream ?
      Try
         F_Main.RxRichEdit1.Clear;
         Stream.Position:=0;
         If Stream.Size>0 then
            F_DruckerF.RxRichEdit1.Lines.LoadFromStream(Stream)
         Else
         F_DruckerF.RxRichEdit1.Clear;
      Finally
         FreeAndNil(Stream);
      End;
      F_DruckerF.RxRichEdit1.SelectAll;
      F_DruckerF.RxRichEdit1.SelAttributes.Size:=11;
      Stream:=TMemoryStream.Create;
      Try
         F_DruckerF.RxRichEdit1.Lines.SaveToStream(Stream);
         Stream.Position:=0;
         TfrRXRichView(View).RichEdit.Lines.LoadFromStream(Stream);
      finally
         FreeAndNil(Stream);
      End;
   End;

... was passiert mit dem stream vorher ?