Вывест в эдит...

← →
Son!K © (2003-10-06 17:27) [0]

Добрый день уважаемые.

Помогите пожалуйта решть вопрос: нужно вывести в эдит 16ричные числа которые храняться в переменной типа: array[0..4] of byte

Буду очень благодарен, желательно с примером, а то начинаю ))

← →
Переяслов Григорий © (2003-10-06 17:31) [1]

IntToHex. А чего начинаешь?

← →
Son!K © (2003-10-06 17:34) [2]

Программить начнаю, перечтай вопрос ))
Если не понятно, то в массве уже храняться чсла в хексе, надо просто х показать в эдите ) (там 4 чсла) )))

← →
HolACost! © (2003-10-06 17:35) [3]

Мда? А что он имел ввиду-то - я опять туплю - но это что-то непохоже на то что он там спросил!
>>16ричные числа которые храняться в переменной типа: array[0..4] >> of byte
16 - это всётаки представление, а не формат хранения - темболее у вас - еслибы там хоть чар был, а то фиг знает что!!!

← →
Юрий Федоров © (2003-10-06 17:36) [4]

там 5 чисел ))

← →
Son!K © (2003-10-06 17:36) [5]

Сорри за "и" котора не очень работает )))

← →
Skier © (2003-10-06 17:37) [6]

> (там 4 чсла) )))

Процедуру Move(...) не смотрел ?

← →
Digitman © (2003-10-06 17:37) [7]

тебе уже сказали - см. ф-цию IntToHex()

← →
Son!K © (2003-10-06 17:38) [8]

Блин а как показать юзверу всё это?

ТАМ 4 ЧИСЛА )) Если масив из 5и элементов это не значит, что я туда до упора затолкал чсел )))

← →
HolACost! © (2003-10-06 17:40) [9]

Для особо умных я ещё раз процитирую
>> Digitman © (06.10.03 17:37) [7]

>> тебе уже сказали - см. ф-цию IntToHex()

← →
Skier © (2003-10-06 17:41) [10]

>Son!K © (06.10.03 17:38) [8]
А откуда вообще эта задача "всплыла" ?

← →
Digitman © (2003-10-06 17:41) [11]

ну так и делай в цикле от i = 0 до i = 3 вызов IntToHex() для i-го элемента массива

← →
Son!K © (2003-10-06 17:42) [12]

хочу полюбоваться на айпи в хексе )

← →
Digitman © (2003-10-06 17:43) [13]

хм... с каких пор IP стал 36-разрядным - ума не приложу

проспал я , видимо, момент)

← →
Son!K © (2003-10-06 17:44) [14]

хм я одного не пойму прчём тут INT>HEX

function IpToByte(S: String): TIp; var Sl: TStringList; I: Integer; Ip: TIp; begin Sl:=TStringList.Create; if Sl <> nil then begin while S <> "" do begin I:=Pos(".", S); if I = 0 then I:=Length(S) + 1; Sl.Add(Copy(S, 1, I-1)); Delete(S,1,I+1-1); end; //------------------------------- for I:=0 to 3 do begin Ip[I]:=$+StrToInt(Sl.Strings[I]) end; Result:=Ip; end; end;

хочу посмотреть чё мне фуекця зделала с адресом)))

← →
Переяслов Григорий © (2003-10-06 17:44) [15]

Хелпы читать слабо?

← →
Son!K © (2003-10-06 17:45) [16]

Ани на англицком (

← →
ZEE © (2003-10-06 17:48) [17]

> Son!K © (06.10.03 17:44) [14]
> хм я одного не пойму прчём тут INT>HEX
> ...
> хочу посмотреть чё мне фуекця зделала с адресом)))
так чтоб посмотреть хватит и IntToStr...

← →
Переяслов Григорий © (2003-10-06 17:48) [18]

> Son!K © (06.10.03 17:45) [16]
Тяжелый случай, но понимать английский на уровне хелпов необходимо. В крайнем случае пользуйся переводчиками.

← →
Verg © (2003-10-06 17:49) [19]

Я плачу...

← →
Digitman © (2003-10-06 17:49) [20]

> Ip[I]:=$+StrToInt(Sl.Strings[I])

это даже скомпилировано не будет, не говоря уже о том, чтобы работало

← →
Son!K © (2003-10-06 17:50) [21]

> ZEE © (06.10.03 17:48) [17]
> > Son!K © (06.10.03 17:44) [14]
> > хм я одного не пойму прчём тут INT>HEX
> > ...
> > хочу посмотреть чё мне фуекця зделала с адресом)))
> так чтоб посмотреть хватит и IntToStr...

Даааааа?

> Переяслов Григорий © (06.10.03 17:48) [18]
> > Son!K © (06.10.03 17:45) [16]
> Тяжелый случай, но понимать английский на уровне хелпов
> необходимо. В крайнем случае пользуйся переводчиками.

Хм все с чего начнают, я думаю что проще объяснить чем спорить и доказывать чё-то до усрачки (((

← →
Son!K © (2003-10-06 17:51) [22]

> Digitman © (06.10.03 17:49) [20]
>
> > Ip[I]:=$+StrToInt(Sl.Strings[I])
>
>
> это даже скомпилировано не будет, не говоря уже о том, чтобы
> работало

хм а если было скомпилировано?

← →
Digitman © (2003-10-06 17:52) [23]

s = "";
for I:=0 to 3 do
begin
if s <> "" then s = s + "."
s := s + IntToHex(Ip[I], 2)
end;

← →
Skier © (2003-10-06 17:52) [24]

> хм а если было скомпилировано?

Значит это уже не Delphi

← →
Son!K © (2003-10-06 17:53) [25]

Всё проехали )))
252: Client to Server (4 bytes)
0000 7F 00 00 01 ....

вот айпи как мне такое получть из 127.0.0.1 и вывести в эдт? ))))

← →
ZEE © (2003-10-06 17:53) [26]

> Digitman © (06.10.03 17:49) [20]
> > Ip[I]:=$+StrToInt(Sl.Strings[I])
> это даже скомпилировано не будет, не говоря уже о том, чтобы
> работало
как ни странно будет скомпилировано (на счет работать не знаю)
проверял так:
var s:string; i:integer; ... i:=$+StrToInt(s);

> а если было скомпилировано

да ни в жисть ! потому как несуразица полная с идентификаторами и типами

Ладно всем спасибо, пойду методом тыка решать вопрос )))

да, пардон ... запамятовал специальное назначение $ в данном случае

результатом, разумеется, будет значение совсем из другой оперы)

А что - ничего так - весело!
Я сейчас усилия буду прилагать чтоб эту муть в потрепаться перевели!!!

> Digitman © (06.10.03 17:58) [29]
> да, пардон ... запамятовал специальное назначение $ в данном
> случае
>
> результатом, разумеется, будет значение совсем из другой
> оперы)

pas de quoi
Не совсем понял смысал фразы

и не надо понимать пока
не годится это для решения твоей задачи

вот оно, решение ... как раз то что тебе нужно

сиди и вникай

> Digitman © (06.10.03 17:52) [23]

> Son!K © (06.10.03 17:53) [25]
> 0000 7F 00 00 01
> вот айпи как мне такое получть из 127.0.0.1 и вывести в
> эдт? ))))
так можно:
var s1,s2:string; i:integer; ... s1:="127.0.0.1"; s2:=""; i:=pos(".",s1); while i>0 do begin s2:=s2+" "+IntToHex(StrToInt(copy(s1,1,i-1)),2); delete(s1,1,i); i:=pos(".",s1); end; if s1<>"" then s2:=s2+" "+IntToHex(StrToInt(s1),2); Edit1.Text:=s2;

> как мне такое получть из 127.0.0.1 и вывести в эдт? ))))

Edit1.Text := IntToHex(inet_addr("127.0.0.1"), 8);

главное забыл (((
хранть надо как байты для отправки

Вывест в эдит... Найти похожие ветки