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