Also ich habe jetzt etwas kleines zusammen gebastelt, aber das funktioniert nicht richtig.
Also wo der Fehler jetzt ist weiß ich, aber wie kann ich das anders machen?
Delphi-Quellcode:
function hexinstring(d : string): string;
var
I, s: Integer;
t, n, y: string;
begin
s:=1;
for I := 1 to length(d) div 2 do
begin
n:= copy(d, s, 2);
y:=HexStrToString(n);
t:=t+y; <--- hier liegt wohl der Fehler
s:= I * 2 + 1;
end;
Result:= t;
end;