Text in Dualzahlen umwandeln

[guidok]

Also bei mir funktioniert das problemlos:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var
    s: integer;
    ttext: string;
begin
  for s:= 1 to length(Edit1.Text) do
  begin
    ttext:= ttext + inttostr(ord(Edit1.Text[s]));
  end;

Label1.Caption := ttext;
end;