String buchstabenweise in array einlesen

[s.h.a.r.k]

Delphi-Quellcode:

function StrToArray(Value: String): TArray<Char>;
// oder: function StrToArray(Value: String): array of Char;
var
  L : Integer;
  C : Char;
  i : Integer;
begin
  L := Length(Value);
  SetLength(Result, L);
  if (L > 0) then
  begin
    for i := 0 to L - 1 do
      Result[i] := Value[i + 1];
  end;
end

Eigentlich liefere ich nur sehr ungerne eine komplette Methode, da man dabei halt nichts lernt. Wichtig ist hier, wie Luckie schon gesagt hatte, dass Arrays (meist) 0-basierend sind, also der Zugriff via Index, und Strings 1-basierend.

Aber ich habe dies bzgl. auch noch eine Frage, daher die komplette Methode Gibt es hierfür eine schnellere Methode!?