如何用DELPHI编程实现如下功能

Question

如何用DELPHI编程实现如下功能
由于最近编程是用系统自带的控件listBoX和MEMO,
但是感觉上老是不舒服，在“贵论坛”发帖子好
时间了，但是感觉这个如下图的控件，在DELPHI
如何实现

Answer 1

并且由这个控件内的所有信息都保存到MSSQL数据库AA表中的aaB
并且aaB的字段的属性为：text

Answer 2

我看了一下这个“实例”，在RichEdit控件中录入信息后，为了区分，
我在几行数据中分别设置了字号字体颜色等，我又根据“实例”进行保存
时以TXT文本方式保存，用系统中的“记事本”打开是全是“乱码”，

Answer 3

而用RichEdit实例打开时，就是明码，可是RichEdit实例程序中没有
保存RichEdit内信息特殊代码呀，我怎么看不懂呀？？？？
这个RichEdit在保存时，如何转换的呀？？？？

Answer 4

rtf格式，也可以保存为TXT格式的呀，用RichEdit实例程序打这个TXT文件
也是明码，用系统自带的“记事本”打开，就是“乱码”
我问的是RichEdit保存为文件时，都做了那些“格式化”转换>>>>>>>

Answer 5

我问的是RichEdit保存为文件时，都做了那些“格式化”转换>>>>>>>

Answer 6

rtf格式, 可以理解成它是一个html脚本的形式, html写出来的网页, 用记事本打开是什么样子的? 而用IE打开又是什么样子的? rtf就是这么一个东东, 想要保存成为一份TXT可以正确观看的, 是用TStringList.Text = RichEdt.Text, StringList.SaveToFile 这样吧, 我忘记RichEdt有没有直接把显示的Text保存入文件的函数了.

Answer 7

TStringList.Text = RichEdt.Text
这个如何设置》》》》》》》》》》》

Answer 8

var
 strRichEdt:TStringlist;
begin
 strRichEdt:=TStringlist.Create;
 strRichEdt.add(RichEdt.Text);
 strRichEdt.SaveToFile('C:\123.txt');
end;

Answer 9

Editor.Lines.SaveToFile('C:\123.txt');
这样也是可以的
我的意思，是要是将这个Editor内的信息全写到
MSSQL数据库的指定表可不可以

Answer 10

用RichEdit1.Lines.SaveToFile('c:\222.txt')保存的Txt,查看的时候是乱码。你可以直接用
adoquery1.fieldbyname('字段').asstring:=RichEdit1.Text;
这个没试过。

Answer 11

rtf格式就是一些斜杠数字字母之类的东西。把这些东西保存到数据库就包含格式了，如果只是保存明文的内容是不会带格式的。

Answer 12

这样啊我以为你只是保存Text内容呢，你可以试试把它导出的rtf文件整个保存到数据库里。

Answer 13

step1 :add a blob field to the database;
step2 :convert the content of richedit to stream
step3 :save to stream to the blob fieldthen ok. 

Answer 14

我现在问题是：在DELPHI7的程序中的TRichEdit中的信息都设置好，想保存到
MSSQL2008中指定数据库的表中（表内的字段属性为:text）,为什么保存进去后
再调用出来是就是没有设置的那些“文本”信息，而我的要求是保存“格式化后
的文本信息”内包括自定义的“字体、字号、颜色”等控件符信息

Answer 15

我保存的信息如下实例：
1）保存信息
若在TRichEdit中输入是信息如图而实际要保存到MSSQL数据库指定表指定字段内的信息如下：
{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 MS Sans Serif;}{\f1\fnil\fcharset134 \'bb\'aa\'ce\'c4\'d0\'d0\'bf\'ac;}}
{\colortbl ;\red255\green0\blue0;\red0\green255\blue0;\red0\green0\blue255;\red255\green0\blue255;}
\viewkind4\uc1\pard\cf1\lang2052\b\f0\fs36\'ce\'d2\cf2\fs24\'ca\'c7\cf3\f1\fs44\'d6\'d0\cf0\b0\f0\fs24\'b9\'fa\cf4\f1\fs48\'c8\'cb\cf0 
\par }
2）读取信息
就是将下面信息
{\rtf1\ansi\ansicpg936\deff0\deflang1033\deflangfe2052{\fonttbl{\f0\fnil\fcharset134 MS Sans Serif;}{\f1\fnil\fcharset134 \'bb\'aa\'ce\'c4\'d0\'d0\'bf\'ac;}}
{\colortbl ;\red255\green0\blue0;\red0\green255\blue0;\red0\green0\blue255;\red255\green0\blue255;}
\viewkind4\uc1\pard\cf1\lang2052\b\f0\fs36\'ce\'d2\cf2\fs24\'ca\'c7\cf3\f1\fs44\'d6\'d0\cf0\b0\f0\fs24\'b9\'fa\cf4\f1\fs48\'c8\'cb\cf0 
\par }
再读取并进行转换成为如图