VPF::разделение строки на подстроки

NieL

Дата 28.12.2010, 12:28 (ссылка)

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

Загрузка ...

Бывалый

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

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

нужен быстрый вариант разделения строки на подстроки по 2048 символов.

Мой вариант работает очень медленно.

Код


var
 N, I: Integer;
 SL: TStrings;
begin
 SL := TStringList.Create;
 try
   N := 1;
   for I := 1 to length(S) do
   begin
     if I mod 2048 = 0 then
     begin
       SL.Add(Copy(S, N, I));
       Inc(N, 2048);
     end;
   end
   ShowMessage(SL.Text);
 finally
   SL.Free;
 end;
end;

Это сообщение отредактировал(а) NieL - 28.12.2010, 12:28

Poseidon

Дата 28.12.2010, 12:50 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

А зачем ты циклом по всему тексту бегаешь? Бери сразу частями. Что-то типо такого (возможно ошибки, прям в браузере набираю)

Код


   for i := 0 to S div 2048  do
     SL.Add(Copy(S, i*2048+1, 2048));
   end

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

NieL

Дата 28.12.2010, 13:13 (ссылка)

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

Загрузка ...

Бывалый

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

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

спасибо, то что надо.

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