创意纪

应该说，freepascal做得和delphi在很多地方是惊人的相似。

这些代码和delphi中的一模一样

一个按钮会增加列表框中的条目，条目的名称显示的就是自己是第几个条目，另外一个按钮是清除所有的显示，还有一个就是退出程序了。

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  listbox1.Items.Add('Item'+IntToStr(listbox1.Items.count));
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  listbox1.Items.clear;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

相关内容

• 没有相关内容.