Главная » Delphi » Основная » Splitstr

Splitstr

09:38
type TNumarray = array of integer;
//Разбивает строку instr. Результат в outarr: TNumarray (array of integer)
function Splitstr(instr: string; var outarr: TNumarray): boolean//[x]
var
  len, j, strnum: integer;
begin
  j := pos(';', instr);
  len := 1;
  result := false;
  if j <> 0 then begin
    while j <> 0 do begin
      try
        strnum := strtoint(copy(instr, 1, j - 1));
        SetLength(outarr, len);
        outarr[len - 1] := strnum;
        inc(len);
      except
      end;
      delete(instr, 1, j);
      j := pos(';', instr);
    end;
    try
      strnum := strtoint(instr);
      SetLength(outarr, len);
      outarr[len - 1] := strnum;
      result := true;
    except
    end;
  end;
end;