Mit IP-Adressen rechnen...

[Tod787]

Hi, habe da etwas ähnliches vor.
Ich würde gerne die Wahl des zu ändernden Byte variabel lassen also der Funktion einen Eingabeparameter geben um Byte 1-4 auszuwählen.

Eigentlich bräuchte ich doch nur eine Möglichkeit s_b4 mit einer Verknüpfung variabel zu machen( Bsp. s_b + Übergabeparameter). Bloss wie wandle ich die Variable um?
Habe im Code unten mal die Funktion mit Parameter. "s_bx" soll hier die Variable sein die mit dem Übergabeparameter das richtige Byte der IP ansprechen soll.

Delphi-Quellcode:

procedure TForm1.Button5Click(i: Integer); 
var   inAddr: TINAddr;
      s_bx : string;
begin
      IPAdresse := Edit1.Text;
      inAddr.S_addr := inet_addr(PChar(IPAdresse)); 
      s_bx := 's_b'+intToStr(i);         // HIER DER STRING WELCHER NOCH UMGEWANDELT WERDEN MUSS 
      with inAddr.S_un_b do
         s_bx := Chr(Ord(s_bx) + FOffset);          
      IPAdresseOffset := inet_ntoa(inAddr);      
end;

Am Besten wäre es natürlich wenn es etwas wie Gibt es etwas wie StringToxxx(s_bx) geben würde

Edit: Eine Möglichkeit wäre natürlich das mit Case of... zu machen