Показать сообщение отдельно
  #9  
Старый 03.01.2014, 15:13
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

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

А смысл этой операции я вообще не понял:
Код:
  Resul:=InDowm+InOut;
Это же конкатенация? Т.е. допустим я получил 32768 байт и отправил 1024 байт, теперь после тех преобразований я получу в переменной Resul строку "327681024". И какой в этом смысл?
Ответить с цитированием