[Hellion]

Код:

type
 int_arr:array of integer;
end;

function parse_string_to_array(parsing_str,splitter:string):int_arr;
   var
     i,counter,str_length:integer;
     generated_arr:int_arr;
     temp_str:string;
     v:variant;
   begin
     counter:=1;
     Setlenght(generated_arr,counter);
     str_length:=length(parsing_str);
     for i:=1 to (str_length)+1 do
     begin
       if(parsing_str[i]<>splitter) and (parsing_str[i]<>#0) then
       begin
         temp_str:=temp_str+parsing_str[i];
       end
       else
       begin
         v:=temp_str;
         generated_arr[counter]:=v;
         v:='';
         inc(counter);
         SetLenght(generated_arr,counter);
       end;
     end;
   end;