Umrechnen von String-Werten zu dezimal Code und zurück

[marabu]

Hier ein Stück Code zum Studieren:

Delphi-Quellcode:

procedure Test;
var
  s: String;
  ba: array of Byte;
  i: Integer;
begin
  s := 'Stresemann';
  SetLength(ba, Length(s));
  for i := 1 to Length(s) do
    ba[Pred(i)] := Ord(s[i]);
  s := 'wundersam'; // nur zur Verwirrung
  SetLength(s, Length(ba));
  for i := 1 to Length(s) do
    s[i] := Chr(ba[Pred(i)]);
  ShowMessage(s); // was wird angezeigt?
end;

Grüße vom marabu