记账软件版1楼: function TNewsGroup.addnews(news:tnews):string;
begin
self.FTrVlist.Items.AddChildFirst(NIl,news.title);
end;
我创建了一个这个。。。怎么样引用？？！
比如：procedure TForm1.BitBtn2Click(Sender:TObject);
begin
panel.addnews(＂？？？＂);
end;

2楼: 没说清楚到底什么问题 如商品进销存表格

3楼: 就是引用的时候怎么样给参数。。。
procedure TForm1.BitBtn2Click(Sender:TObject);
begin
panel.addnews(＂？？？＂);
end;

4楼: procedure TForm1.BitBtn2Click(Sender:TObject);
var
news : TNews;
begin
news := TNews.Create;
news.Title := ＇＇newxxxxx＇＇;
panel.addnews(News);
end;

在合适的地方，把建立的news.Free

5楼: 刚刚发错了，再来

procedure TForm1.BitBtn2Click(Sender:TObject);
var
news : TNews;
begin
news := TNews.Create;
news.Title := ＇＇newxxxxx＇＇;
panel.addnews(News);
end;

6楼: 谢谢