Eine "schöne" Lösung ohne Format

[Desmulator]

Hallo Leute,
also es geht darum , dass ich die Unit SysUtils so weit wie mödlich mir ersparen möchte, deshalb suche ich nach einer möglichkeit folgendes Problem ohne Format oder IntToStr zu lösen:

Delphi-Quellcode:

function LookupDomain(const Domain : String ) : String;
var
  Host : PHostEnt;
  Addr : array[0..3] of String;
begin
  { Host-Daten einholen }
  Host := GetHostByName(PChar(Domain));
  { Die Adresse formaieren }
  Result := Format('%d.%d.%d.%d', [Ord(Host.h_addr^[0]),
                                   Ord(Host.h_addr^[1]),
                                   Ord(Host.h_addr^[2]),
                                   Ord(Host.h_addr^[3])]);
end;

Es egth darum die 4 Wert zu eine gültigen IP zusammen zu fassen , ohne die Unit SysUtils zu verwenden.

Danke für die hilfe^^

[DeddyH]

Versuch es doch mal mit Concat und Val.

[Desmulator]

Hm... Okay mit Concat kann ich die einzellstrings zusammen fügen, aber mit val kann ich nur ein string in ein integer umwandeln...
Wie hast du dir das vorgestellt?

[DeddyH]

Sry, hatte Val mit Str verwechselt :oops:

[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)

[rawsoul]

Wieviel kb sparst du damit in der Echse zirka ein?

[Desmulator]

es geht mir nicht um die kb sondern darum nicht die SysUtils zu verwenden... ich mag nicht so gerne sachen von anderen leuten benutzen, ich mach lieber alles selber...

aber weil du es bist :-)
ohne : 93.696 Bytes
mit : 93.696 Bytes
;-)

[3_of_8]

Dafür ist die SysUtils.pas optimiert bis zum gehtnichtmehr, und dein Code vermutlich nicht. (Okay, bei Val, Str usw. ist es was anderes, die kommen ja auch aus der System.pas)

Aber warum willst du die nicht verwenden, ich meine, du darfst sie ja uneingeschränkt verwenden.

[Luckie]

Zitat:

Zitat von Desmulator

es geht mir nicht um die kb sondern darum nicht die SysUtils zu verwenden... ich mag nicht so gerne sachen von anderen leuten benutzen, ich mach lieber alles selber...

Hast du die Windows.pas und WinSock.pas auch schon selber geschrieben?

[Desmulator]

:wink:


öhm des ist stupide arbeit, bei der man ja nicht wirklich was lernen kann... es geht mir auch um den lern effeckt... und dlls kann ich einbinden^^

[RavenIV]

Zitat:

Zitat von Desmulator

es geht mir nicht um die kb sondern darum nicht die SysUtils zu verwenden... ich mag nicht so gerne sachen von anderen leuten benutzen, ich mach lieber alles selber...

aber weil du es bist :-)
ohne : 93.696 Bytes
mit : 93.696 Bytes
;-)

Meine Meinung dazu:

a) da das Programm nicht kleiner wird, wird die SysUtils vermutlich irgendwo "automatisch" eingebunden. Vielleicht von einer anderen Unit.

b) ich finde es sinnlos, schon bestehende Dinge nachzuprogrammieren.
Verwende Deine zeit lieber für sinnvolle Sachen.
Auch dabei kannst Du was lernen.

c) die SysUtils kommt von Borland / CodeGear. Da brauchst Du leine Angst haben, dass die etwas nicht vorhergesehenes machen. Bei Fremdkomponenten sieht es anderst aus. Da will ich den Sourcecode anschauen können, damit ich sehe, was passiert. Aber nachprogrammieren würde ich das bestimmt nicht.

[StInkeSchuh]

Die SysUtils kann man aus der USES-Liste raushauen, zur Laufzeit wird die aber automatisch mit eingebunden, weil Delphi das so "verlangt" (ein anderer Ausdruck ist mir nicht eingefallen).

Da der Sourcecode von Delphi aber nur gelesen (und der fehlende Verweis auf SysUtils somit ebenfalls erkannt, aber nicht korrigiert wird) und compiliert wird, kann Delphi diesen Fehler im Source nicht korrigieren, und somit wird die Unit zur Laufzeit von Delphi sowieso in die EXE reingeschnitten.
Würde Delphi Fehler automatisch korrigieren, gäbe es ja das nicht:

Delphi-Quellcode:

[Fehler] Unit1.pas(28): Inkompatible Typen: 'String' und 'Integer'

Delphi würde es ja korrigieren.

Deshalb ist es ja:

Zitat:

es geht mir nicht um die kb sondern darum nicht die SysUtils zu verwenden... ich mag nicht so gerne sachen von anderen leuten benutzen, ich mach lieber alles selber...

aber weil du es bist
ohne : 93.696 Bytes
mit : 93.696 Bytes

Weil Ohne Eintrag in USES die mit eingebunden wird und Mit Eintrag denke ich ist es logisch was dann mit der Unit passiert... :wink:
Im Prinzip ist dies dass selbe was RavenIV ausdrücken wollte, nur habe ich es näher erklärt.

Hoffe ich konnte helfen,

mfg St!nkeSchuh

[Daniel]

Zitat:

Zitat von StInkeSchuh

Die SysUtils kann man aus der USES-Liste raushauen, zur Laufzeit wird die aber automatisch mit eingebunden, weil Delphi das so "verlangt" (ein anderer Ausdruck ist mir nicht eingefallen).

Das ist leider falsch. Setzen. ;-)
Du verwechselst dies mit der Unit 'System'. Die ist automatisch immer mit von der Partie. Die Unit SysUtils musst Du aber einbinden wie jede andere Unit auch, wenn Du die darin enthalteten Funktionen nutzen möchtest. Ein Minimal-Programm wie das Folgende kommt gänzlich ohne die SysUtils.pas aus - und es läuft sogar erfreulich stabil:

Delphi-Quellcode:

program Project3;
begin
  writeln( 'wuppdi' );
end.

Zitat:

Zitat von StInkeSchuh

Im Prinzip ist dies dass selbe was RavenIV ausdrücken wollte, nur habe ich es näher erklärt.

... und ein bisschen falsch ist es auch noch geworden. ;-)