[poli-smen]

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

Ну дык о том и речь. Если кол-во положительных и отрицательных чисел не равно, то требуемвй список построить нельзя. Да, напрямую это в задании не сказано. Но как ты построишь список, начинающийся с положительного числа, заканчивающийся отрицательным и в котором пол. и отр. числа чередуются, если у тебя 5 пол. и 3 отр. числа? Это просто невозможно.

Если в списке встречается 2 подряд идущих отрицательных числа, то либо первое число удаляется, либо между ними вставляется новое положительное число. Если в списке встречается 2 подряд идущих положительных числа, то либо второе число удаляется, либо между ними вставляется новое отрицательное число. Там в задании всё подробно описано.

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

ЗЫ. Может я не очень внимательно читал задание, но мне показалось что условие именно такого, как я описал.

Так и есть, ты не очень внимательно читал задание

[poli-smen]

Кстати в моём коде есть как минимум одна ошибка, там исправлять не буду, просто тут опишу: когда встречается 2 подряд идущих положительных числа разница между которыми меньше двух, то нужно удалить второе число, а в моём коде удаляется первое число...

[alexusankov]

Все, дописал, вроде работает нормально.
Подскажите пожалуйста, отчего :
edit1.Text := DateToStr(Yesterday);
Выдает 30.12.1899? Время и дата в системе стоят нормальные.
Как получить дату вчерашнего дня еще можно?

[poli-smen]

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

Все, дописал, вроде работает нормально.
Подскажите пожалуйста, отчего :
edit1.Text := DateToStr(Yesterday);
Выдает 30.12.1899? Время и дата в системе стоят нормальные.
Как получить дату вчерашнего дня еще можно?

Подозреваю что Yesterday это просто переменная которую ты сам и объявил? Если так тогда понятно почему даёт такую дату. То же самое получишь если сделаешь так:

Код:

edit1.Text := DateToStr(0);

А чтобы получить вчерашнюю дату, нужно использовать функцию Yesterday из модуля DateUtils (т.е. в uses нужно добавить DateUtils, а свою переменную Yesterday убрать).
Ещё вчерашнюю дату можно получить так:

Код:

edit1.Text := DateToStr(Date - 1);

[alexusankov]

Последний вопрос))). В listbox сложены цифры. Нужно их все суммировать, сумму в другой листбокс

Код:

for h1:=0 to slistbox1.Items.Count -1 do h2:=h2+strtoint(slistbox1.Items[h1]);
listbox2.Items.Add(h2);

- не хочет ((
****
А все, ошибка найдена, это в цикле было