[lmikle]

Сообщение от Pcrepair

есть такой вариант

Код:

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

и все хорошо но такой косячок обнаружился:
если написать по простому: for i := 0 to 2 do компиляция в норме, но если число строк в Т1 менее 3-х выскакивает исключение List index out of bonds() с указание строки в скобках, которой нехватает до 3-х

Ну а если как следует подумать???

Код:

for i := 0 to min(2,T2.Count-1) do
  ...