[Евгений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.

[YVitaliy]

Или создавай тип

Код:

type TMyStr = object
 str: array of string;
 count: integer
Procedure Add(const text:string);

end;

или (предпочтительно):

Код:

type TMyStr = class()
public
 str: array of string;
 count: integer;
Procedure Add(const Text:string);
end;

В случае класса не забудь вызывать конструктор при создании обьекта.

ЗЫ
Метод реализовуй в разделе implementation

Код:

Procedure TMyStr.Add(const Text:String);
begin
 inc(count);
 setLength(str, count);
 str[count-1]:=Text;
end;

[Евгений79]

Никогда не создавал доселе классов с методами.
Покажите полный код пожалуйста.

[YVitaliy]

Код:

unit TestUnit;

interface
type TMyStr = class(TObject)
public
 str: array of string;
 count: integer;
 Procedure Add(const Text:string);
end;

implementation

{ TMyStr }

procedure TMyStr.Add(const Text: string);
begin
  inc(count);
  setLength(str, count);
  str[count-1]:=Text;
end;

end.

И, например, в обработчике OnCreate главной формы (или при старте программы) создаем обьект

Код:

var strObj:TMyStr;
.........
procedure TForm1.FormCreate(Sender: TObject);
begin
strObj:=TMyStr.Create;
end;
//И добавляем запись
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s:='';
 if inputQuery('Добавление текста','Введите текст',s) then
 strObj.add(s);
end;

[Евгений79]

Без отдельного юнита не обойтись?

[PhoeniX]

Обойтись, просто записать фрагменты кода в соответствующие места основного юнита. Но разницы не вижу.

[YVitaliy]

Можешь обьявлять и реализовать в любом юните. В юните с формой точно так же обьявляется и реализуется главная форма. Свой класс обьявляй параллельно с ней.