Umwandlung String in Zahl

[Matze]

Ich würde es so ähnlich lösen, ist jedoch nicht sonderlich performant):

Delphi-Quellcode:

var
  Form1: TForm1;
  myArray: array[1..26] of integer = (23, 54, 64, 12, 57, 78, 23, 21, 76, 68 ...;

implementation

{$R *.dfm}

function MakeChaos(Input: string): string;
var
  i: integer;
  Return: string;
begin
  Return := '';
  for i := 1 to Length(Input) do
  begin
    Return := Return + IntToStr(myArray[Ord(Input[i]) - 32 - 64]);
  end;
  Result := Return;
end;

;