[Евгений79]

Код:

type TMyStr = record
 str: array of string;
 count: integer
end;

var
 MyStr: TMyStr;

я заранее не знаю какой размерности будет массив строк, поэтому я каждый раз при добавлении элементов задаю ему длину setlength

Код:

setlength(mystr,1);
MyStr[0].str:= 'xexe';
MyStr[0].count:=1;

Это не удобно.
Как сделать чтобы был метод, как например у Tstrings add(string) ?
чтобы я мог пользоваться такой конструкцией MyStr.add('xexe');
и метод Add сам увеличивает размерность массива на 1, вносит в последний элемент строку "xexe" и увеличивает счетчик на 1.