VPF::Delphi:Удаление строк определенной длины

sokolik117845

Дата 10.4.2012, 16:23 (ссылка)

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

Загрузка ...

Новичок

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

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

Необходимо удалить строки которые содержат менее 10 символов и более 10!

Код


var
StrList: TstringList;
I: Integer;
begin
StrList := TstringList.Create;
try
StrList.LoadFromFile('Исходный.txt');
I:= 0; while I < StrList.Count - 1 do
begin
if (Length(StrList.Strings[I]) > 13) and (Length(StrList.Strings[I])  < 13) then
StrList.Delete(I)
else
inc(i);
end;
StrList.SaveToFile('Исходный.txt');
finally
StrList.Free;
end;
end;

Что не так?

Snowy

Дата 10.4.2012, 16:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

while I < StrList.Count - 1 do
for I := StrList.Count - 1 downto 0 do

...

if (Length(StrList.Strings[I]) > 13) and (Length(StrList.Strings[I]) < 13)
if (Length(StrList.Strings[I]) <> 10)

RelictOs

Дата 12.4.2012, 14:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


for I:= StrList.Count - 1 downto 0 do
begin
if (Length(StrList.Strings[I])<> 10 then
 StrList.Delete(I)
else
...

Добавлено @ 14:22
Snowy, простите, не заметил :(

Это сообщение отредактировал(а) RelictOs - 12.4.2012, 15:21

Qu1nt

Дата 12.4.2012, 14:31 (ссылка)

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

Загрузка ...

Опытный

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

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

RelictOs, более того, в твоём коде ошибка. В данном случае обходить список нужно с конца.

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