Ошибка типов setlength

[DarkHacker]

Здравствуйте. Код ниже указывает на ошибку несоответствия типов данных в строке

      setlength(mas,length(mas)+1);

procedure insert_into_array(var mas:array of string;value:string);
var
x:integer;
begin
    for x:=0 to length(mas)-1 do
     if(mas[x]=value)then
        exit;

      setlength(mas,length(mas)+1);
      mas[high(mas)]:=value;
end;

Вроде как все правильно, массив строк, к строкам данный метод применим. Где налажал?

[Аватар]

Type TMyArray = array of string;

procedure insert_into_array(var mas: TMyArray;value:string);

[Sibedir]

type
...
Tmas = array of string;
...
...
...
procedure insert_into_array(var mas:Tmas;value:string);

А то, что у тебя - это открытый массив. Его размер внутри функции менять нельзя.

[DarkHacker]

блин...основы основ...как я мог забыть. Это ж функция. СПАСИБО!!!

[Serge_Bliznykov]

mas у вас имеет тип Open Array, а для SetLength тип массива должен быть динамический (Dynamic Array)

опишите тип отдельно:

type TDynStringArray = array of string;
....
procedure insert_into_array(var mas:TDynStringArray;value:string);
...

должно помочь.

добавлено
извините, не обновил страницу, прежде чем ответить...