VPF::TStringList - Форум программистов

sgentstuff

Дата 30.6.2006, 06:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 116
Регистрация: 13.9.2005

Репутация: нет
Всего: 1

спасибо, алгоритм работает, только надо было еще одно условие поставить, чтобы слово в конце строки не склеивалось с первым словом след строки и также учитывалось последнее слово

Код


var
str: TStringList;// массив всех строк файла
s,NewS : string; // Это строка, которую мы вытащим из TStringList
Str2 : TStringList; //Здесь будет храниться массив слов из всех строк
k, j,L : Integer;
begin
str:= TStringList.Create; // массив всех строк файла
  Str2 := TStringList.Create;    
  Str2.BeginUpdate;    
  str.LoadFromFile('D:\excel\my.TO1');
  for k := 0 to str.Count-1 do   begin    
    s := str.Strings[k]; //Кидаем в переменную S требующуюся нам строку    
    for j := 1 to length(s)+1 do begin
      if (s[j] <> ' ') and (j <> length(s)+1) then //Если буква не пробел, то это начало/продолжение слова
        NewS := NewS + s[j]
      else begin //иначе, если слово закончилось, и там пробел, то    
        Str2.Add(NewS); //Добавляем в наш массив слово    
        NewS := ''; //Обнуляем строку    
      end;
    end;    
  end;
  Str2.EndUpdate;

--------------------

Тот, кто ищет миллионы, весьма редко их находит, но тот, кто их не ищет, не находит никогда.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »