Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
function GetChr(s: String; Index: Integer): Char;
begin
Result := Chr(StrToIntDef('$' + Copy(s, 1 + (Index - 1) * 2, 2), 0));
end;
var
s, String2: string;
i: Integer;
begin
s := '000000055550'; //anderes Beispiel (ABCDEF): '414243444546';
String2 := '';
for i := 1 to 6 do
String2 := String2 + GetChr(s, i);
ShowMessage(String2);
end;
Da vorne aber Nullen sind und #0 ein Steuerzeichen oder das Ende des Strings bedeutet, wird deine Zeichenfolge nichts anzeigen.
Danke danke, meine Blockade war, wie mache ich aus dem String eine Hex Zahl und habe
übersehen dass ich einfach ein $ davorsetzen muss. Der Rest ist klar.
Dankeschön