1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

VAR
  pp :Pointer;

Function ShortStringToPointer(s:String): Pointer;
VAR
 p : PCHAR;
BEGIN
 GetMem(p,length(s)+1);
 StrPCopy(p,s);
 result:= POINTER(p);
END;

procedure TForm1.Button1Click(Sender: TObject);
VAR
 str: string[20];
begin
 str:= 'TEST';
 pp := NIL;
 pp := ShortStringToPointer(str);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 showmessage('|'+STRING(PCHAR(pp))+'|');
 freemem(pp);   // WICHTIG !!!!
 pp:= NIL
end;					

1:
2:
3:

// "Ascii" Table
// 46 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57
//  . |  0 |  1 |  2 |  3 |  4 |  5 |  6 |  7 |  8 |  9					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
VAR
 ip : integer;

BEGIN
 ip := IpToInt('172.20.0.1');
 Showmessage(IntToStr(ip));
 showmessage(IntToIp(IP));
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:

FUNCTION IpToInt(IP:String): Integer;
VAR
  pAscii : ^Byte;

FUNCTION NextTriple : BYTE;
BEGIN
 result:=0;
 IF (pAscii^=46)  THEN INC(pAscii);
 WHILE (pAscii^<> 0) AND (pAscii^<>46) DO
 BEGIN
  result:=result *10;
  result:= Result + (pAscii^ -48);
  INC(pAscii);
 END;
END;

VAR
 pByte: ^Byte;
 iIp : ^Integer;
 testInt :Integer;
begin
 GetMem(pByte, 4);
 pAscii:=POINTER(IP);
 pByte^:= NextTriple;
 INC(pByte,1);
 pByte^:= NextTriple;
 INC(pByte,1);
 pByte^:= NextTriple;
 INC(pByte,1);
 pByte^:= NextTriple;
 DEC(pByte,3);

 iIP:=POINTER(pByte);
 result:=iIP^;
 FreeMem(pByte);
end;

FUNCTION IntToIp(Ip:Integer): STRING;
VAR
 pByte: ^Byte;
begin

 pByte := @IP;
 // Delphi castet INTEGER nicht zu einem typ geringerer
 // genauigkeit ohne Schutzverletzunggecastet werden
 // daher müssen wird via @ explizit nur die Adresse übergeben.
 // Hier würde POINTER(IP) würde zu einer schutzverletzung führen!!!

 result:=IntToStr(pByte^)+'.';
 INC(pByte);
 result:=Result + IntToStr(pByte^)+'.';
 INC(pByte);
 result:=Result + IntToStr(pByte^)+'.';
 INC(pByte);
 result:=Result + IntToStr(pByte^);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

function StrToIP(Str:String):Integer;
var B:Array[0..3] of Byte;
var i,DotPos:integer;
var StrPart:String;
begin
  //Dummypunkt zum Parsen hinzufügen
  Str:=Str+'.';
  //Alle 4 8Bit-Werte ermitteln
  for i:=0 to 3 do
  begin
    //Position des nächsten Punkts ermitteln
    Dotpos:=Pos('.',Str);
    //Chars bis zum nächsten Punkt ermitteln
    StrPart:=Copy(Str,1,DotPos-1);
    //Alles bis zum nächsten Punkt aus Str ausschneiden
    Str:=Copy(Str,DotPos+1,255);
    //Byte-Wert ermitteln
    B[i]:=StrToInt(StrPart);
  end;

  //Integer aus den Bytes zusammenstellen
  Result:=B[3];
  for i:=2 downto 0 do
    Result:=Result shl 8 +B[i];
end;

function IPToStr(IP:Integer):String;
var B:Byte;
var i:integer;
begin
  Result:='';
  //Sämtliche Bytes durchgehen
  for i:=0 to 3 do
  begin
    //Speicherstelle des Integers byteweise abtasten
    B:=Byte(Pointer(Integer(Addr(IP))+i)^);
    //Byte als Str zum Resultat hinzufügen
    Result:=Result+IntToStr(B);
    if i<3 then
      Result:=Result+'.';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

VAR
 p:pointer;

procedure TForm1.Button1Click(Sender: TObject);
VAR
 str : String;
 int : integer;
begin
 str := 'TEST TEST TEST TEST TEST TEST TEST TEST';
 p:= POINTER(str);
 Str:='1234';
 showmessage(str);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Showmessage(STRING(p));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

VAR
 str: String;
 p: Pointer
begin
 str := 'TEST TEST TEST TEST TEST TEST TEST TEST';
 p:= Pointer(str);
 ShowMessage(str);
 ShowMessage(PChar(p));

 PChar(p) := 'blablabla'
 ShowMessage(str);
 ShowMessage(PChar(p));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:

unit Integerlist;

// Unit mit der Klasse TIntegerlist, einer Liste von Integerwerten (Oh, wirklich??? ;) )

interface

uses classes;

type TIntegerList= class(TObject)
  private
    FList:TList;
    function GetItems(Index: Integer): Integer;
    procedure SetItems(Index: Integer; const Value: Integer);
  public
    procedure LoadFromStream(Stream:TStream); virtual;
    procedure SaveToStream(Stream:TStream); virtual;
    function Count:Integer;
    procedure Clear;
    function Add(Value:Integer):Integer;
    function IndexByValue(Value:Integer):Integer;
    property Items[Index:Integer]:Integer read GetItems write SetItems; default;
    constructor Create;
    destructor Destroy; override;
end;

implementation

{ TIntegerList }

function TIntegerList.Add(Value: Integer): Integer;
begin
  Result:=FList.Add(Pointer(Value));
end;

procedure TIntegerList.Clear;
begin
  FList.Clear;
end;

function TIntegerList.Count: Integer;
begin
  Result:=FList.Count;
end;

constructor TIntegerList.Create;
begin
  FList:=TList.Create;
end;

destructor TIntegerList.Destroy;
begin
  FList.Free;
  inherited;
end;

function TIntegerList.GetItems(Index: Integer): Integer;
begin
  Result:=Integer(FList.Items[Index]);
end;

function TIntegerList.IndexByValue(Value: Integer): Integer;
var i:integer;
begin
  Result:=-1;
  for i:=0 to Self.Count-1 do
    if Self[i]=Value then
    begin
      Result:=i;
      exit;
    end;
end;

procedure TIntegerList.LoadFromStream(Stream: TStream);
var Count:Integer;
var i,Value:integer;
begin
  Self.Clear;
  Stream.ReadBuffer(Count,SizeOf(Count));
  for i:=0 to Count-1 do
  begin
    Stream.ReadBuffer(Value,SizeOf(Value));
    Self.Add(Value);
  end;
end;

procedure TIntegerList.SaveToStream(Stream: TStream);
var Count:Integer;
var i,Value:integer;
begin
  Count:=Self.Count;
  Stream.WriteBuffer(Count,SizeOf(Count));
  for i:=0 to Count-1 do
  begin
    Value:=Self[i];
    Stream.WriteBuffer(Value,SizeOf(Value));
  end;
end;

procedure TIntegerList.SetItems(Index: Integer; const Value: Integer);
begin
  FList.Items[Index]:=Pointer(Value);
end;


end.