Цитата:
|
Сообщение от lmikle
Значит что-то не так.
Косяк явно у тебя, я проверил свой код и он работает абсолютно правильно.
|
Я понял, будем искать.
Действительно отдельно код работает корректно, а в моем коде выводит косяк.
1. Сделал локально все переменные (s1 глобально, но сделал локальную s0 (s0:=s1))
2. Массив Array Of Integer
3. Все переменные Integer, включая d1, m1, y1
4. Сначала идет строка s1:=d1+m1+y1; потом s0:=s1; потом массив. Больше эти переменные вообще нигде не встречаются на данный момент.
d1, m1, y1 принимают значения по
case combobox1.ItemIndex of и т.д. Может здесь загвоздка?
P.S. даже после ввода промежуточных переменных ничего не поменялось...
d0:=StrToInt(d1);
m0:=StrToInt(m1);
y0:=StrToInt(y1);
s1:=d0+m0+y0;