Rückgabe Funktion = Dynamisches Array

[Sir Rufo]

Was du da machst ist aber haarscharf an einer Exception vorbei:

Du erzeugst keine Instanz von TMyClass und benutzt diese trotzdem.

Das geht auch nur deshalb, weil die Klasse nur eine function beinhaltet.

Warum keine Instanz, bzw. Warum überhaupt eine Klasse?
Eine schnöde Funktion würde völlig reichen.

Delphi-Quellcode:

unit Unit2;

interface

uses
  Math, IdHashMessageDigest, idHash, SysUtils, Classes;

  function myfunc(str: string): Tarr;

implementation

function myfunc(str: string): Tarr;
var
  i: integer;
  asciiArray: array of Int64;
begin

  i := 0;
  SetLength(asciiArray, Length(str));

  for i := 0 to 31 do begin
    AsciiArray[i] := Ord(str[i + 1]);
  end;

  //SetLength(result, high(AsciiArray)); <<<<<< Hier gibt es die Exception!

  for i := Low(AsciiArray) to High(AsciiArray) do
    result[i] := AsciiArray[i];

end;

end.