VPF::Переменная TStringList, копирование строк

Pcrepair

Дата 21.6.2012, 20:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 16.1.2011

Репутация: нет
Всего: нет

Добрый день. есть следующее:

Код


var T1,T2:TstringList
 begin
   T1 := TStringList.Create;
   T2 := TStringList.Create;
   T1.Text := Memo1.Text; (*вводим в Т1 10 строк текста(к примеру), каждая строка одно слово*)
   .......
end.

Вопрос: как в Т2 скопировать только первые 3-и строки из Т1? что то сколько не смотрел методы и свойства TStringList так ничего и не увидел.

--------------------

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

XperT

Дата 21.6.2012, 21:18 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 19.8.2006

Репутация: нет
Всего: 4

Готовых методов нету, нужно подключать смекалку.

Намёк: метод Strings

Это сообщение отредактировал(а) XperT - 21.6.2012, 21:19

MetalFan

Дата 21.6.2012, 21:49 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(XperT @ 21.6.2012, 21:18

)

нужно подключать смекалку

+ 100!

Код


for i := 0 to 2 do T2.Add( T1[i] )

--------------------

There are always someone smarter than you...

Pcrepair

Дата 22.6.2012, 07:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 209
Регистрация: 16.1.2011

Репутация: нет
Всего: нет

вариант хороший

Код


 for i := 0 to 2 do
    T2.Add(T1[i])

и все работает, но такой косячок обнаружился:
если число строк в Т1 менее 3-х выскакивает исключение List index out of bonds() с указание строки в скобках, которой нехватает до 3-х

вообще число вводимых в МЕМО строк может быть и менее 3-х. и что тут сделать? написать if i < 3 then Exit(и вывести сообщение) перед всем. или есть другие варианты?
может обойтись без цикла и просто написать:

Код


T2.Add(T1[0])
    T2.Add(T1[1])
    T2.Add(T1[2])

Какой вариант правильный с точки зрения теории и практики?

--------------------

Сборник рабочего кода Процедур и Функций DelPhi http://validcoderepo.narod.ru/

chip_and_dayl

Дата 22.6.2012, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9

Цикл есть правильно.

А проверять нужно не И, а количество записей в T1. Есть свойство Count

--------------------

Фсё будет хорошо!!!

MetalFan

Дата 22.6.2012, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Код


for i := 0 to min(pred(T1.Count), 2) do
    T2.Add(T1[i])

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »