begin for I := 0 to ListBox5.Items.Count - 1 do begin memo3.lines.loadfromfile('d:\yhgl\data\invitePart.xml'); str1:=memo3.Text; insert(ListBox6.Items[i],str1,pos('</ConfId>',str1)); insert(ListBox5.Items[i],str1,pos('</PartNum>',str1)); memo3.Text:=str1; sleep(1000); end;
for I := 0 to ListBox5.Items.Count - 1 do
begin
memo3.lines.loadfromfile('d:\yhgl\data\invitePart.xml');
str1:=memo3.Text;
insert(ListBox6.Items[i],str1,pos('</ConfId>',str1));
insert(ListBox5.Items[i],str1,pos('</PartNum>',str1));
memo3.Text:=str1;
sleep(1000);
end;