小编Del*_*ent的帖子

我正在尝试使用innerHTML将一些数据插入到html页面中，如下所示

for(i = 0; i < data.length; i++){
var line = data[i].split("~");

nameslist.innerHTML += '<p onClick='+userclick(line[1])+'><strong>' + line[0] + ' </strong></p>';

}

但是 onclick 事件在插入后立即自动触发，并且当我单击元素时它不会<p>触发

我如何正确使用innerhtml来添加带有onclick事件的ap元素并仅在用户单击时触发它？

我需要从文本中提取字符串,如下例所示

Hi i have no name <z>empty</z>

我想在文本<z> 或字符串之前只提取文本,这是hi i have no name 我尝试过这个函数

procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.StrictDelimiter := true;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

但它只能分裂字符 ;,:等.我想用这个特定的字符串开始拆分<z>

我想对ListBox是否为空进行检查，例如：

if {Listbox.Items is empty} then
begin
  Listbox.Items.Add('Item');
end else
begin
  //do somthing else
end;

检查Listbox.Items或Listbox是否为空的部分对我来说有点困难。我试图找出一种方法，但是由于我还是Delphi的初学者，所以我失败了。如何在Delphi XE5中实现呢？

我在列表视图中有一些列表我想防止添加已经存在的项目并且只允许不存在的项目我在发布我的问题之前搜索我找到一些删除重复项目的代码但这不是我的观点,一点点例如,试图实现目标的例子

listview1.Items.Add.caption := 'item1'
listview1.Items.Add.subitems.add:= 'content'

listview1.Items.Add.caption := 'item2'
listview1.Items.Add.subitems.add:= 'content2'

listview1.Items.Add.caption := 'item3'
listview1.Items.Add.subitems.add:= 'content3'

//duplicated line
listview1.Items.Add.caption := 'item1'// here what i want to ignore if exist and add any other items comes below
listview1.Items.Add.subitems.add:= 'content'


listview1.Items.Add.caption := 'item4'
listview1.Items.Add.subitems.add:= 'content4'

关于如何实现忽略现有项目并添加其他项目的任何想法？

目前的代码

if Command = 'CallThis' then
  begin
    if Assigned(MS) then
    begin
      SL := TStringList.Create;
      try
        SL.LoadFromStream(MS);
        for I := 0 to SL.Count -1  do
        begin
            Line := SL.Strings[I];
            ExplodeLine(Line, item, content, num);
            with vieform.list.Items.Add do
            begin …

我目前使用的列表视图我的项目中我想通过寻找其子项字符串来获得一些项目的指标,我有项目和子项目列表视图,item caption := name和subitem := id我想找到这个项目,其中的指数sub item := id,我怎么能做到这一点,我搜索虽然对于某些方程而且还没有.我需要这个的原因是因为subitem id有唯一的id而且这个很安全,而不是按标题使用find item