830
社区成员
发帖
与我相关
我的任务
分享DELPHI记录类型效果如何显示？
这是记录类型，书上只是给了语法，怎么把效果显示出来呢？小弟干着急啊 TEmployee=record
Name :string[20];
YearHired:1990..2000;
Salary: Double;
Position :string[20];var
NewEmployee,PromotedEmployee:TEmployee;with PromotedEmployee do
begin
Name :='wang hong';
YearHired :=1993;
Salary :=2000.00
Position :='editor';
end;函数显示出来？还是文本控件，在结合事件？小弟干着急啊
Name :string[20];
YearHired:1990..2000;
Salary: Double;
Position :string[20];var
NewEmployee,PromotedEmployee:TEmployee;with PromotedEmployee do
begin
Name :='wang hong';
YearHired :=1993;
Salary :=2000.00
Position :='editor';
end;函数显示出来？还是文本控件，在结合事件？小弟干着急啊
...全文
请发表友善的回复…
发表回复
liangpei2008 2009-05-06
- 打赏
- 举报
JF
zz1001 2009-05-03
- 打赏
- 举报
谢谢啊
taxi 2009-05-02
- 打赏
- 举报
可以用ListView显示。
with ListView.Items.Add do
begin
Caption := PromotedEmployee.Name;
SubItems.Add(IntToStr(PromotedEmployee.Yearhired));
SubItems.Add(FloatToStr(PromotedEmployee.Salary));
SubItems.Add(PromotedEmployee.Position);
end;
with ListView.Items.Add do
begin
Caption := PromotedEmployee.Name;
SubItems.Add(IntToStr(PromotedEmployee.Yearhired));
SubItems.Add(FloatToStr(PromotedEmployee.Salary));
SubItems.Add(PromotedEmployee.Position);
end;
