поиск строки в TStringlist

← →
tomkat (2008-01-21 15:33) [0]

Hi, All ! требуется найти построку , к примеру "SUMA" в наборе строк TStringlist. Как поиск в цикле запустить ? ведь у TStringlist нет метода Next и тп. ...
Заранее спасибо

← →
clickmaker © (2008-01-21 15:38) [1]

зато у него есть свойства Strings[i] и Count

← →
Kolan © (2008-01-21 15:45) [2]

> зато у него есть свойства Strings[i] и Count

А в паскале есть оператор for

← →
tomkat (2008-01-21 15:58) [3]

> А в паскале есть оператор for

вот только
for i:=0 to ls.Count do
не работает
List index out of bounds(1)

← →
Сергей М. © (2008-01-21 16:00) [4]

.. ls.Count - 1 do

← →
Kolan © (2008-01-21 16:01) [5]

Count  кол-во. То есть у меня есть 5 яблок
Но нумерация с 0, поэтому у меня есть такие яблоки:

0 1 2 3 4

Итого:
for i:=0 to ls.Count-1 do

← →
Юрий Зотов © (2008-01-21 16:01) [6]

> tomkat (21.01.08 15:58) [3]

Это потому, что Вы не прочли справку. Count - 1 должно быть.

← →
tomkat (2008-01-21 16:08) [7]

> Это потому, что Вы не прочли справку. Count - 1 должно быть.

да понял, понял :-)
вот этот код мне показывает весь текст , а не одну строку за шаг
for i:=0 to ls.Count-1 do begin result:=ls.Strings[i]; ShowMessage(result); end;
а хотелось бы вытащить именно одну строку, потом сравнить ее с образцом ..если попадание , то пишем куда нить ....

← →
Сергей М. © (2008-01-21 16:12) [8]

> tomkat (21.01.08 16:08) [7]

> этот код мне показывает весь текст , а не одну строку за
> шаг

ЭТОТ код тебе показывает именно весть текст, по одной строке за шаг. Как ты и просил у этого кода, так он тебе и показывает.

← →
Плохиш © (2008-01-21 16:13) [9]

> tomkat (21.01.08 16:08) [7]

Рекомендую добавить перед циклом строчку
ShowMessage(IntToStr(ls.Count));

← →
tomkat (2008-01-21 16:16) [10]

балин..... значит у меня весь текст в первом (0) индексе....
толькочто сделал
ShowMessage(intTostr(ls.Count-1));
и узрел там 0 ....
знать не правильно его присвоил ....

> for i:=0 to ls.Count-1 do
> begin
> result:=ls.Strings[i];
> ShowMessage(result);
> end;

for i:=0 to ls.Count-1 do begin result:=ls.Strings[i]; ShowMessage(result); Break;//раз нашли, выходим из цикла end;

← →
tomkat (2008-01-21 16:44) [12]

> Break;//раз нашли, выходим из цикла

что-то я совсем не понял .....
задачка найти строку в TStringlist
к-я, включает в себя заданный образец ....
вроде все тривиально ...

← →
tomkat (2008-01-21 17:36) [13]

всем спасибо , я решил задачку :-)
for i:=0 to ls.Count-1 do begin if pos(fs,ls.Strings[i])>0 then memo2.Lines.Add(ls.Strings[i]);

поиск строки в TStringlist Найти похожие ветки