VPF::Цикл ip - Форум программистов

pomogite

Дата 10.12.2007, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

Есть 8 Edit'ов каждый это часть ip адреса.
Я ввожу например 127.0.0.1 в первые 4
и 127.0.100.254 во вторые 4 и мне нужно чтобы выполнялось
условие при каждом ip адресе тоесть
127,0,0,1 условие
127,0,0,2 условие
...
127,0,0,255 условие
...
127,0,1,0 условие итд
Но что-то немогу понять как это написать...помогите плз

bems

Дата 10.12.2007, 18:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

Код


procedure TForm1.Button1Click(Sender: TObject);
var s,f,i:cardinal;
begin
s:=strtoint(s4.Text)+(strtoint(s3.Text) shl 8)+(strtoint(s2.Text) shl 16)+(strtoint(s1.Text) shl 24);
f:=strtoint(f4.Text)+(strtoint(f3.Text) shl 8)+(strtoint(f2.Text) shl 16)+(strtoint(f1.Text) shl 24);
for i:=s to f do
 memo1.lines.add(inttostr(hi(hiword(i)))+'.'+
                 inttostr(lo(hiword(i)))+'.'+
                 inttostr(hi(loword(i)))+'.'+
                 inttostr(lo(loword(i))));
end;

s1-s4 эдиты стартового ипа. Нумерация слева направо
f1-f4 эдиты финишного ипа

--------------------

Обижено школьников: 8

pomogite

Дата 10.12.2007, 20:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

Репутация: нет
Всего: нет

bems,
Пасибки вот только не пойму что это значит

Код


shl 8

bems

Дата 10.12.2007, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

побитовый сдвиг влево на 8 бит

Добавлено через 7 минут и 54 секунды
было например 255. оно же FF оно же 000000FF
после shl 8 будет 0000FF00

--------------------

Обижено школьников: 8

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »