Rückgabe Funktion = Dynamisches Array

[daniel775]

Ok. Hab es gefunden. Die For Schleife lief einfach zu weit. Das dynm. Array 'Test' brauchte ich nicht zu neu zu dimensionieren.

Delphi-Quellcode:

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

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
const str = 'Dies ist ein Test';
begin

  i := 0;
  test := myclass.myfunc(str);

  for i := 0 to Length(test) do
    self.Edit1.Text := self.Edit1.Text + IntToStr(test[i]);

end;