今天写了一个类,其中用到了TXMLDocument控件。这个控件我是要动态生成的。但是却遇到了非常奇怪的问题,下面分享一下procedureTMainForm.Button1Click(Sender:TObject);Var XML:TXMLDocument; I:Integer;begin X ...……
uses DateUtils;
function StartOfTheYear(const AValue: TDateTime): TDateTime;
function EndOfTheYear(const AValue: TDateTime): TDateTime;
function StartOfAYear(const……
//增加
i := listview1.Items.Count;
with ListView1 do
begin
ListItem:=Items.Add;
ListItem.Caption:= IntToStr(i);
ListItem.SubItems.Add('第 '+IntToStr(i)+' 行') ...……