Add(MainForm,12936631,91,42)
{
 Left=20
 Top=105
 Width=337
 Height=144
 link(onCreate,4739738:doData,[])
}
Add(Button,879160,98,168)
{
 Left=125
 Top=20
 Width=165
 Caption="Нажми на меня"
 link(onClick,14041704:doEvent1,[])
}
Add(Edit,9275209,273,168)
{
 Left=270
 Top=55
 Width=45
 Text=""
}
Add(StringTable,14347829,210,77)
{
 Left=10
 Top=15
 Width=100
 Columns=#15:Список строк=95|
 Point(Index)
}
Add(Edit,1986681,266,217)
{
 Left=270
 Top=80
 Width=45
 Text=""
}
Add(Label,10549494,98,126)
{
 Left=125
 Top=80
 Width=83
 Height=17
 Caption="Значение Count"
}
Add(DoData,4773138,210,217)
{
 link(onEventData,1986681:doText,[])
 link(Data,14347829:Count,[])
}
Add(DoData,9493112,224,168)
{
 link(onEventData,9275209:doText,[])
 link(Data,14347829:Index,[])
}
Add(Hub,14041704,154,168)
{
 link(onEvent1,9493112:doData,[])
 link(onEvent2,4773138:doData,[(198,181)(198,223)])
}
Add(Label,13736668,147,126)
{
 Left=125
 Top=55
 Width=139
 Height=17
 Caption="Индекс выбранной строки"
}
Add(DoData,4739738,140,77)
{
 Data=String(Выбери меня)
 link(onEventData,14347829:doAdd,[])
}

arr[0]
arr[1]
arr[2]
arr[3]

integer(arr + 0*4)^
integer(arr + 1*4)^
integer(arr + 2*4)^
integer(arr + 3*4)^

arr[i] => integer(arr + i*4)^[/code]

а теперь представим, что мы делаем первым индексом массива 1. Поскольку на уровне процессора таких команд нет, то у компилятора остается только один выход из создавшегося положения - искуственно приводить индекс массива к 0. Т.е. делать так:

arr[i] => integer(arr + (i-1)*4)^[/code]

и тем самым заведомо на порядок ухудшать эффективность работы с массивами. Так что лучше заранее привыкать к тому, что первый элемент массива имеет индекс 0.