Eine "schöne" Lösung ohne Format

[Desmulator]

Jop thx,

nochmal für alle :

Delphi-Quellcode:

function LookupDomain(const Domain : String ) : String;
var
  Host : PHostEnt;
  Addr : array[0..3] of String;
  Test,Test2 : Integer;
begin

  { Host-Daten einholen }
  Host := GetHostByName(PChar(Domain));
  { Die Adresse formaieren }
  Str(Ord(Host.h_addr^[0]), Addr[0]);
  Str(Ord(Host.h_addr^[1]), Addr[1]);
  Str(Ord(Host.h_addr^[2]), Addr[2]);
  Str(Ord(Host.h_addr^[3]), Addr[3]);
  { Zusammen setzen }
  Result := Concat(Addr[0],'.',Addr[1],'.',Addr[2],'.',Addr[3]);
end;

Edit : Hach, is das ein schöne gefühl SysUtils aus der uses zu löschen 8)