🚀 go-pugleaf

Witam,

Potrzebuję zamienić Stringa na tablicę Liczb Integer. Napisałem do tego 
funkcję przy użyciu SetLength ale ciągle dostaję błąd w lazarusie 
"Project raised exeption class 'Unknow'." oraz po kliknięciu przycisku 
OK ładne okienko z kodem assemblera. Błąd otrzymuję w linii, w której 
próbuję wpisać wartość do tabeli.

procedure TmainForm.StrToPoints(content: string; var values: TIntegerArray);
var
    licz: Integer;
    count: Integer;
    temp: string;
begin
    count := 0;
    temp := '';
    for licz := 0 to Length(content) - 1 do begin
       if (content[licz] <> ' ') and (content[licz] <> ',') then temp := 
temp + content[licz]
       else if (temp <> '') then begin
          SetLength(values, count + 1);
          values[count] := StrToInt(temp);
          temp := '';
          count := count + 1;
       end;
    end;
    if (temp <> '') then begin
       SetLength(values, count + 1);
       values[count] := StrToInt(temp);
    end;
end;

błąd wyskakuje w linii values[count] := StrToInt(temp); podczas 
pierwszego jej wywołania.

Mógłby mi ktoś zasugerować gdzie popełniłem błąd ?

Pozdrawiam,
Łukasz W.