Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

посчитать количество символов в stringlist


bobbi ©   (2006-08-01 21:38:00) 

и еще папрос при каждом адд он добавляет на новую строку?


Ketmar   (2006-08-01 23:28:00) [1]

> [11] YurikGL ©   (01.08.06 23:26)

вот это как раз и будет правильно. %-)


YurikGL   (2006-08-01 23:26:00) [2]


> Ketmar ©   (01.08.06 23:02) [10]

т.е. с каждой из строк я работаю как со строкой...
автору можно написать и st[n]:=st[n]+'aa';


Ketmar   (2006-08-01 23:02:00) [3]

> [9] YurikGL ©   (01.08.06 23:00)

"list of".


YurikGL   (2006-08-01 23:00:00) [4]


> строки -- это одно. а TStringList -- это немного другое.
>  %-)

TStringList maintains a list of strings.
???


Ketmar   (2006-08-01 22:59:00) [5]

> [5] YurikGL ©   (01.08.06 21:56)

строки -- это одно. а TStringList -- это немного другое. %-)


YurikGL   (2006-08-01 22:23:00) [6]


> памяти и CPU не жалко? %-)

Смотря сколько раз добавлять :)
Где-то мне попадалась статья о том, как быстро со строками работать, но что-то не найду ее сейчас.


Ketmar   (2006-08-01 22:19:00) [7]

> [5] YurikGL ©   (01.08.06 21:56)

памяти и CPU не жалко? %-)


YurikGL   (2006-08-01 21:56:00) [8]


> спс , а чтоб не перекидывал на новую стороку?

st.text:=st.text+'некий текст';


Ketmar   (2006-08-01 21:54:00) [9]

а может, сразу весь код написать? TStringList, F1.


bobbi   (2006-08-01 21:51:00) [10]

спс , а чтоб не перекидывал на новую стороку?


Ketmar   (2006-08-01 21:50:00) [11]

медленно, криво, но одной строкой: Length(strglist.Text); %-)

да, добавляет.


YurikGL   (2006-08-01 21:49:00) [12]

>посчитать количество символов в stringlist

procedure TForm1.Button1Click(Sender: TObject);
var
st:TStringList;
begin
st:=TStringList.Create;
st.add('123');
st.Add('456789');
ShowMessage(IntToStr(length(st.text)));
st.Free;
end;
//считает с переносами строки

> и еще папрос при каждом адд он добавляет на новую строку?

да


Наверх

Титульная страница Поиск, карта сайта Написать письмо