Unsafe code "String index to var param"

[Alex Cones]

Как бороться с таким предупреждением?

Function GetCom(CS : String) : String;
Var
 _S : String;
Begin
 _S[1] := CS[5];
 _S[2] := CS[6];
 _S[3] := CS[7];
 Result := _S;
End;

Function FirstParam(SE : String) : String;
Begin
 Result := '   ';
 Result[1] := SE[09];
 Result[2] := SE[10];
 Result[3] := SE[11];
End;

Предупреждает о красных строках.

[psycho-coder]

Задать длину строки))

SetLength(_S, 3);

А с Result должно по идее нормально пройти, но попробуй ему тоже длину строки задать принудительно

[Alex Cones]

Попробовал удалять все (кроме 3-х требуемых символов) с помощью Delete. Вроде молчит.

А из-за чего такая ошибка и что она означает?

[psycho-coder]

Возможно, то что в этих индексах может не быть нужных символов, и тогда будет выход за границы массива

[Mixasik]

При объявлении переменной типа string она имеет нулевую длину. Нельзя работать со строкой по индексу не задав ее длины setlength(Result, 3) и т.д. для всех обявляемых переменных типа string
или же делать так: Result := Result + copy(SE,9,1);
И это предупреждение мне кажется относится даже не к параметру вводимому в подпрограмму а именно к переменной Result и т.д.

[Neeter]

Alex Cones, а не проще сделать так:

Function GetCom(CS : String) : String;
Var
 _S : String;
Begin
 _S := CS[5] + CS[6] + CS[7];
 Result := _S;
End;

Function FirstParam(SE : String) : String;
Begin
 Result := SE[9] + SE[10] + SE[11];
End;

Получиться, вроде, должно то же самое.

[Alex Cones]

Alex Cones, а не проще сделать так:

Если что-то уже работает - предпочитаю не вмешиваться. Был бы этот вариант раньше - взял бы его

[psycho-coder]

Может тогда move поможет?