[Electronic_Arts]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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]

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

Код:

1 2 3 4 5

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

[Electronic_Arts]

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