[Pascal] символы\байты в число (IP в число)

[Alex11223]

А как в Паскале (fpc) преобразовать несколько байтов в одно число? Допустим IP адрес т.е. строку вида 178.70.100.8 в одну переменную типа ...э...longint? или integer?
В Си/С++ можно как-то так:
немного коряво, но смысл вроде понятен, собственно основная проблема с тем, что после второго комментария

	// string to bytes
	char strtype[4];
	string a = "110.70.10.90";
	string buf = a.substr(0, a.find("."));
	strtype[0] = atoi(buf.c_str());
	a.erase(0, a.find(".") + 1);
	buf = a.substr(0, a.find("."));
	strtype[1] = atoi(buf.c_str());
	a.erase(0, a.find(".") + 1);
	buf = a.substr(0, a.find("."));
	strtype[2] = atoi(buf.c_str());
	a.erase(0, a.find(".") + 1);
	strtype[3] = atoi(a.c_str());

	// bytes to int
	unsigned int ip = (strtype[0]<<24)|(strtype[1]<<16)|(strtype[2]<<8)|strtype[3];
	cout << ip;

[whatever]

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

Допустим IP адрес т.е. строку вида 178.70.100.8 в одну переменную типа ...э...longint? или integer?

Ни longint, ни integer, ни double, ни real, сто процентов.
Разве что разбить строку на 4 составляюшие и записать, извините, в запись.
Например так:

program Project1;
uses
  crt,sysutils;
type
  Tipadr=record
    a,b,c,d:integer;
  end;
var
  i,j:integer;
  IP:TIPadr;
  s:string;
  tmp:string;
begin
  clrscr;
  S:='178.70.100.8';
  tmp:='';
  j:=1;
  for i:=1 to length(S) do
    if s[i]='.' then
      begin
        case j of
          1:IP.a:=StrToInt(tmp);
          2:IP.b:=StrToInt(tmp);
          3:IP.c:=StrToInt(tmp);
        end;
        inc(j);
        tmp:=''
      end
    else
      tmp:=tmp+S[i];
  IP.d:=StrToInt(tmp);

  writeln(ip.a,'.',ip.b,'.',ip.c,'.',ip.d);
  readln
end.

[Alex11223]

Ну запись-то это понятно. Кстати, вроде byte же можно использовать в ней? Но неужели никак нельзя конвертировать айпи в одно число в Фри Паскале? В FPC кстати нет StrToInt и подобных.

[whatever]

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

Ну запись-то это понятно. Кстати, вроде byte же можно использовать в ней? Но неужели никак нельзя конвертировать айпи в одно число в Фри Паскале? В FPC кстати нет StrToInt и подобных.

Я тоже так думал, но модуль sysutils решает :D

byte использовать можно.

[Step_UA]

как вариант:

uses sysutils;
var IP:dword;
i,f:integer;
s:string;
begin
 s:='10.78.0.1';
 ip:=0;
 for i:=1 to 3 do
  begin
   f:=pos('.',s);
   ip:=(ip+strtoint(copy(s,1,f-1)))*256;
   delete(s,1,f)
  end;
 ip:=ip+strtoint(s);
end.