Преобразование строки в массив чисел в Pascal(Lazarus)

[GaJIbI4]

Как можно преобразовать строку в массив вещественных чисел. Это нужно чтобы обработать вещественные числа из поля TEdit, вводимые в поле числа разделяются пробелом.

Str1:=Edit1.text

[DoDge_VipeR]

sub:='';
k:=0;
for i:=1 to length(str1) do
if str1[i] in ['0'..'9','.'] then
sub:=sub+s[i]
else 
if sub<>'' then
begin
inc(k);  val(sub,a[k],e);
sub:='';
end;
if sub<>'' then
begin
inc(k);  val(sub,a[k],e);
sub:='';
end;
for i:=1 to k do 
{выводите a[i] куда хотите}

[GaJIbI4]

Можно пояснения к коду? И как быть с отрицательными числами?

[DoDge_VipeR]

как быть с отрицательными числами?

['0'..'9','.'] заменить на ['0'..'9','.','-']

[GaJIbI4]

Cпасибо, всё работает