Показать сообщение отдельно
  #7  
Старый 14.10.2016, 17:36
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Тогда нужно заменить блок цикла на
Код:
...
for b:= Length(d) downto 1 do
          if d[b] = ' ' then
           begin
            lit.SubItems.Add(Copy(d, 1, b-1));
            lit.SubItems.Add(Copy(d, b+1, Length(d)));
            lit.SubItems.Add(Copy(txtAll[i+2],46,Length(txtAll[i])));
            lit.SubItems.Add(Copy(txtAll[i+3],30,Length(txtAll[i])));
            break;
           end;
...

З.Ы. Ой, про "это я уже исправил" не заметил :-)
Ответить с цитированием