![]() |
|
#1
|
|||
|
|||
![]() Здравствуйте !
Подскажите пожалуйста как сделать Код:
begin j:=1; for i := 0 to XMLItem.SubItemCount-1 do DrawXMLItem(XMLItem.SubItems[i]); if Trim(XMLItem.Name)='a' then begin Memo2.Lines.Add(XMLItem.Text); ini.WriteString(IntToStr(j),'Day',XMLItem.Text); j:=j+1; end; end; Чтоб каждое слово которое найдено писалось в новой переменной ini . В моём коде в Memo выводиться 8 слов а в ini записывается только 1 и самое последнее . |