[poli-smen]

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

Подскажите что не так?

Да тут многое что не так...
Переменная zero объявлена почему-то вещественным типом Real, хотя по идее должна иметь тот же тип что и dwInOctets, т.е. DWORD. Причём считывается в FormCreate в эту переменную из 1-го элемента массива, хотя потом, в таймере, работа вовсю идёт с 17-ым элементом. Да и не используется эта нулевая точка отсчёта нигде - как считалась в FormCreate так и висит "мёртвым грузом" (а ведь в первом сообщении она использовалась по назначению).
Так как dwInOctets и dwOutOctets имеют не вещественный, а целочисленный тип, то и преобразовывать их в строку нужно не через FloatToStr, а через IntToStr.

А смысл этой операции я вообще не понял:

Код:

  Resul:=InDowm+InOut;

Это же конкатенация? Т.е. допустим я получил 32768 байт и отправил 1024 байт, теперь после тех преобразований я получу в переменной Resul строку "327681024". И какой в этом смысл?