Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

mikey © (2004-08-09 14:16:00)
некоторого символа(ов)
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 кол-во обрабатываемых строк т.е те которые были обрезаны

mikey (2004-08-09 16:28:00) [1]
Удалено модератором

KSergey (2004-08-09 16:28:00) [2]
> [8] mikey (09.08.04 16:24)

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

Digitman (2004-08-09 16:25:00) [3]

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

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

mikey (2004-08-09 16:24:00) [4]
Удалено модератором

mikey (2004-08-09 16:23:00) [5]
[5] mikey (09.08.04 14:49)

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

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

Sandman25 (2004-08-09 14:53:00) [6]
[5] mikey (09.08.04 14:49)

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

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

Думкин (2004-08-09 14:48:00) [8]
> [3] Мастер © (09.08.04 14:43)

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

Мастер (2004-08-09 14:43:00) [9]
Воспользуйся TMemo.Lines.Count

Digitman (2004-08-09 14:38:00) [10]
это оч сложно ... даже и браться за эту задачу не стоит

Sandman25 (2004-08-09 14:18:00) [11]
а подумать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »