Вычитание первых символов из строки в ListBox

@Celli · Регистрация: 02.12.2012

Author24 — интернет-сервис помощи студентам

Приветствую.

Собственно, вопрос в заголовке. Есть ListBox, заполненный строками. Как при необходимости из одной из строк вычесть первые четырнадцать символов, либо определённую подстроку в начале?

Заранее благодарю.

Одиночка · 29.12.2012, 16:36

Какие проблемы?

Delphi

Var
  s:String;
  k:Integer;
 
s:=ListBox1.Items[k]; //k - индекс строки в ListBox
Delete(s,1,14); //Удалим 14 символов, начиная с 1-го
ListBox1.Items[k]:=s;

Может можно писать и так (прямо в LB):

Delphi

1	Delete(ListBox1.Items[k],1,14); //Удалим 14 символов, начиная с 1-го

но я не уверен.

@Celli · 29.12.2012, 16:47 **[ТС]**

Спасибо, работает. Если не сложно, не могли бы вы также подсказать, как правильно организовать цикл для подобной процедуры?

Пытался использовать "for i:=0 to Form.ListBox.Items.Count do", но программа вылетает с ошибкой "List index out of bounds". В чём проблема?

Одиночка · 29.12.2012, 16:51

Там индексация идёт от 0 (ноля) до ListBox.Items.Count-1:

Delphi

1	for i:=0 to Form.ListBox.Items.Count-1 do

Кстати, так же и в Memo, StringGrid-е, и др.

Не по теме:

Чтобы увидеть ответ - нужно обновлять страницу.

@Celli 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 7
		1
	Вычитание первых символов из строки в ListBox 29.12.2012, 16:28. Показов 1650. Ответов 3 Метки нет (Все метки) Приветствую. Собственно, вопрос в заголовке. Есть ListBox, заполненный строками. Как при необходимости из одной из строк вычесть первые четырнадцать символов, либо определённую подстроку в начале? Заранее благодарю. 0

@Celli 0 / 0 / 0 Регистрация: 02.12.2012 Сообщений: 7
	29.12.2012, 16:47 [ТС]	3
	Спасибо, работает. Если не сложно, не могли бы вы также подсказать, как правильно организовать цикл для подобной процедуры? Пытался использовать "for i:=0 to Form.ListBox.Items.Count do", но программа вылетает с ошибкой "List index out of bounds". В чём проблема? 0

	29.12.2012, 16:51

Опции темы