精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>数据库技术>>Re:如何用FIELDEDIT中的GetText事件?

主题:Re:如何用FIELDEDIT中的GetText事件?
发信人: soaringbird(假行僧*飞翔鸟)
整理人: soaringbird(2001-06-06 08:38:57), 站内信件
【 在 sczp74 的大作中提到:】
:请问如果用字段编辑器中的GetText and SetText事件?
:如果FIELD的值为2要显示为‘好’,为1显示为‘差’。。。行不行?
:......
 我试了试,可以的,给你一个例子:
procedure TForm1.Table1AreaGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  //我是拿Country.db试的。
  Text := Sender.AsString;
  if Sender.AsInteger <= 200000 then
Text := '小'
else if (Sender.AsInteger > 200000) and (Sender.AsInteger < 1000000) then
Text := '较大'
else
Text := '很大';

//注意:任何一个执行分支都要确保给Text赋值
//你将不能编辑这个字段。
//实际上你可以使用计算字段达到这种效果。
end;


----
抵制日货,从我做起!
坚决不给日本鬼子做事!
求职条件之一:日资、中日合资、中日合作企业免谈。

[关闭][返回]