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.