🚀 go-pugleaf

Winetou pisze:
> 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 := 
dlaczego startujesz od zera
  sprawdz co masz w content[0]

> 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.


-- 
   Darek