[Electronic_Arts]

Код:

var
  sl: TStringList;
  i: integer;
  li: TListItem;
begin
     sl := TStringList.Create;
      sl.LoadFromFile( 'c:\text.txt' );
      for i := 0 to sl.Count-1 do
      begin
          if ( Trim( sl.Strings[i] ) <> '' ) then
            if ( Trim( sl.Strings[i] )[1] <> '#' ) then
               begin
                  li := ListView1.Items.Add;
                  li.Caption := Copy( sl.Strings[i], 1, Pos( ' ', sl.Strings[i] )-1 );
                  li.SubItems.Add( Copy( sl.Strings[i], Pos( ' ', sl.Strings[i] )+1, Length( sl.Strings[i] ) ) );
            end;

Читаем строку -
Привет Я ВАСЯ

li.Caption := Copy( sl.Strings[i], 1, Pos( ' ', sl.Strings[i] )-1 ); // добавляем первый текст до пробела Привет
li.SubItems.Add( Copy( sl.Strings[i], Pos( ' ', sl.Strings[i] )+1, Length( sl.Strings[i] ) ) ); // Добавляем остальное после первого пробела Я ВАСЯ

А как добавить текст после второго пробела на следуюший SubItems???? У меня чтот не получился.....

[Drozh]

Незнаю насколько это корректно и правильно ли я понял вопрос...

Код:

 PosBeg := Pos(' ', sl.Strings[i]); // первый пробел
 PosEnd := LastDelimiter(' ', sl.Strings[i]); // последний пробел
 Copy(sl.Strings[i], 1, PosBeg-1); // Привет
 Copy(sl.Strings[i], PosBeg+1, PosEnd-PosBeg-1); // Я
 Copy(sl.Strings[i], PosEnd+1, Length(Str)); // ВАСЯ

[Electronic_Arts]

Оно помогло - а вот если прибавиться пробелы то оно не сработает
как загрузить вот этот текстовый документ чтоб каждое слова загрузилась в свою колонну - вообще это возможно??