Добрый день. Спомощью этого кода я обрезаю строки до

← →
mikey (2004-08-09 14:16) [0]

некоторого символа(ов)
s:=Edit1.Text;
sl:=TStringList.Create;
sl.LoadFromFile(Fileopen1.Dialog.FileName);
for i:=0 to sl.Count-1 do
if pos(s,sl[i])<>0 then
Sl[i]:=copy(sl[i],0,pos(s,sl[i])+length(s)-1);
sl.SaveToFile(FileOpen1.Dialog.FileName);
sl.Free;
RichEdit1.Lines.LoadFromFile(Fileopen1.Dialog.FileName);

А как мне вывести в label кол-во обрабатываемых строк т.е те которые были обрезаны

← →
Sandman25 © (2004-08-09 14:18) [1]

а подумать?

← →
Digitman © (2004-08-09 14:38) [2]

это оч сложно ... даже и браться за эту задачу не стоит

← →
Мастер © (2004-08-09 14:43) [3]

Воспользуйся TMemo.Lines.Count

← →
Думкин © (2004-08-09 14:48) [4]

> [3] Мастер © (09.08.04 14:43)

Не...Лучше TStreamMemory.Size

← →
mikey (2004-08-09 14:49) [5]

поровал через
for i:=0 to sl.count-1 do
sl.count;
label1.caption:=IntToStr(i);
Но считается весь список, а мне надо только те которые обрезаются. Подскажите как это задать.

← →
Sandman25 © (2004-08-09 14:53) [6]

[5] mikey (09.08.04 14:49)

Разберитесь с тем, что делает программа из [0] в каждой своей строке. После этого сможете ее подправить, чтобы получить требуемое

← →
mikey (2004-08-09 16:23) [7]

[5] mikey (09.08.04 14:49)

Разберитесь с тем, что делает программа из [0] в каждой своей строке. После этого сможете ее подправить, чтобы получить требуемое

Что-то не выходит может все же подскажите

← →
mikey (2004-08-09 16:24) [8]

Удалено модератором

> Что-то не выходит

для того чтобы что-то "вышло", необходимо чтобы это "что-то" сначала "вошло"

← →
mikey (2004-08-09 16:28) [10]

Удалено модератором

> [8] mikey (09.08.04 16:24)

Т.е. она не ваша? Или она получена методом последовательного перебора последователности нажатия кнопок до получения требуемого результата??

Добрый день. Спомощью этого кода я обрезаю строки до Найти похожие ветки