Why isn't this working?

Return to index

Author

Message

Geir Bratlie

Posted: 09/22/2002 20:28:49

Nothing shows up in the RichViewEdit component.

Can anyone help?

r := true;

with shop do begin

   if fieldByname('vareid').asinteger = vareid then begin

      TempStream := TMemoryStream.Create;

      lines := Tstringlist.create;

      lines.text := fieldByname('tekst').asstring;

      lines.SaveToStream(TempStream);

      r := RichViewEdit1.LoadRTFFromStream(TempStream);

     RichViewEdit1.Format;

      lines.free;

      TempStream.Free;

    end;

end;