Ich meine das Zeichen hinter 51.
Oder bleibt mit da nur den Umweg über einen String, und es mit Copy oder Delete zu lösen ?
Code: Alles auswählen
var
sl: TStringList;
i: integer;
begin
sl := TStringList.Create;
sl.Add('abc');
sl.Add('123');
for i := 1 to Length(sl.Text) do begin
Write(byte(sl.Text[i]): 4);
end;
Ausgabe:
Code: Alles auswählen
97 98 99 10 48 50 51 10