Richedit Fehler

[franktron]

Hier ist der Code mit dem ich das immer teste

Delphi-Quellcode:

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);
      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;

[edit=sakura] [code] [delphi] Mfg, sakura[/edit]