记录显示的问题请教

Question

我设置了个DBMemo用来显示某个字段的值。
请教2个问题
1、如何在DEMO里的最上面一行显示自己的文字，比如：“请查看以下信息：”
换行后才是数据表里的值。
2、假设我有5笔记录，如何间隔5秒，该DEMO的值就自动跳到下一笔。这样循环显示。

Answer 1

1、memo.Lines.Add（'请查看以下信息:'+#13+从表取值）
2、用Timer控件每5秒触发一次memo.Lines.clear;memo.Lines.Add('请查看以下信息:'+#13+从表取值)

Answer 2

不懂
我的dbmemo是这样设置的
在datasource选择我的datasource
datafield显示选定的字段，这样执行完后就显示值了
然后我是想在显示值前面一行再添加自己的文字。不是另外再设置一个LABLE之类的。

Answer 3

1、在DBMemo字段的OnGetText事件中写
   Text:="请查看以下信息:"+#13#10+Text;
   当然，你可以换成TMemo控件，自己添加
2、用Timer,设置间隔为5秒，在其OnTimer事件里写
   with AdoTable1 do
   begin   
     if not IsEmpty then
     begin
         if not Eof then Next else First;
     end;
   end;

Answer 4

为何我选中该dbmemo后，在面板看不到ongettext事件？

Answer 5

定义一个函数:procedure OnGetText(Sender: TField; var Text: string;DisplayText: Boolean);
begin
  Text:="请查看以下信息:"+#13#10+Text;
end;假如你用AdoTable1控件,打开AodTable1.Open后写
AdoTable1.FieldByName('时间字段名').OnGetText:=OnGetText

Answer 6

我用的是adoconnection + adodataset+datasource+dbmemo

Answer 7

AdoDateSet1.FieldByName('时间字段名').OnGetText:=OnGetText;