几星级的效果如何实现

tjchywxc 2008-10-20 04:43:06

比如有一个表，产品名称，产品级别
产品级别分别为1，2，3，4数字类型，我想在grid中显示产品名称与产品级别，根据级别为1显示出一颗小星星，如果为2显示出2颗小星星，这样的效果怎么做啊

...全文

65 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

genispan 2008-10-21

打赏
举报

楼上可以了如果要设置实心和空心的哪种就设置两种符号就可以了

DreamMan81 2008-10-21

打赏
举报

[Quote=引用 2 楼 lihuasoft 的回复:]
Delphi(Pascal) code
procedure TForm1.甲乙GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
var
I: integer;
begin
Text := '';
for I := 1 to Sender.Value do
Text := Text + '☆';
DisplayText := True;
end;

{注：甲是你的DataSet，如Table；乙是你的字段，如"级别"}

{如果不用五星，而是AnsiChar，就可以不用那个循环，而是这样：}
Text := StringOfChar('X', Integer(…
[/Quote] 够详细的了

lihuasoft 2008-10-20

打赏
举报



procedure TForm1.甲乙GetText(Sender: TField; var Text: String;

  DisplayText: Boolean);

var

  I: integer;

begin

  Text := '';

  for I := 1 to Sender.Value do

    Text := Text + '☆';

  DisplayText := True;

end;



{注：甲是你的DataSet，如Table；乙是你的字段，如"级别"}



{如果不用五星，而是AnsiChar，就可以不用那个循环，而是这样：}

Text := StringOfChar('X', Integer(Sender.Value));