Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> StringList, Работа со строками 
V
    Опции темы
ShowMessage
Дата 28.7.2008, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здрасте! 

Имеется StringList  с неизвестным количеством строк, нужно перебрать все строки и выполнить действие с каждой строкой например удалить в каждой строке последние 3 символа или перебрать строки и с каждой строкой провести несколько операций..... неполучается выполнить.

Это сообщение отредактировал(а) ShowMessage - 28.7.2008, 13:24
PM MAIL   Вверх
Alkash
Дата 28.7.2008, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


коллекционер жизни
**


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

Репутация: нет
Всего: нет
for i := 0 to stringlist.Count - 1 do  - и делай со строками что нужно.


--------------------
Подпись >> /dev/null
PM MAIL ICQ MSN   Вверх
volvo877
Дата 28.7.2008, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 14
Всего: 116
Цитата(ShowMessage @  28.7.2008,  13:23 Найти цитируемый пост)
Имеется StringList  с неизвестным количеством строк
Количество строк в стринглисте известно всегда: sl.Count 

Цитата(ShowMessage @  28.7.2008,  13:23 Найти цитируемый пост)
неполучается выполнить.
Показывай, как пробовал...
PM MAIL   Вверх
pseud
Дата 28.7.2008, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Код

  for i := 0 to sList.Count - 1 do
  begin
    s := sList[i];
    delete(s, Length(s) - 2, 3);
    sList[i] := s;
  end;



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
ShowMessage
Дата 28.7.2008, 13:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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

var
 I: Integer;
 Str: TStringList;
begin
  Str:= TstringList.Create;
  Str.LoadFromFile('xxx.txt');
  for i:= 0 to Str.Count -1 do
     begin
      Delete(Str.strings[I], 4,3);
      Str.SaveToFile('xxx_modif.txt');
     end;
end;
PM MAIL   Вверх
VICTAR
Дата 28.7.2008, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 37
Всего: 80
ShowMessage, а зачем ты сохранение в цикл то загнал? 
Как правильно, тебе pseud, показал
PM MAIL   Вверх
ShowMessage
Дата 28.7.2008, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
СПС за ответы, с кодом разобрался....
PM MAIL   Вверх
Rrader
  Дата 29.7.2008, 06:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191
Цитата(VICTAR @  28.7.2008,  20:55 Найти цитируемый пост)
Как правильно, тебе pseud, показал

Вместо Delete лучше использовать Copy smile 


--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1262 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.