Fehlermeldung bei Arbeit mit dynamischen arrays

[Muetze1]

Moin!

Debuggen lernen!

Delphi-Quellcode:

program Project1;
{$APPTYPE CONSOLE}
uses
  sysutils;

Var
  a, b, c : String;

Function wordextrahieren(Const AString : String; Const AStart : Integer; Const ASeparator : Char): String;
Var
  lIdx : Integer;
Begin
  lIdx := AStart+1;

  While ( lIdx < Length(AString) ) And ( AString[lIdx] <> ASeparator ) Do
    Inc(lIdx);

  If ( lIdx = Length(AString) ) Then
    Result := Copy(AString, AStart+1, MaxInt)
  Else
    Result := Copy(AString, AStart+1, lIdx-AStart-1)
End;

Begin
//Testaufruf:
   a := '4026 10';
   b := wordextrahieren(a, 0, ' ');
   c := wordextrahieren(a, length(b)+1, ' ');

   WriteLn(Format(' a = "%s", b = "%s", c = "%s" ', [a, b, c]));


   ReadLn;
End.

MfG
Muetze1