[Евгений79]

Код:

1 2 3 4 5 6 7

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

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

Код:

1 2 3

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

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

[YVitaliy]

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

Код:

1 2 3 4 5 6

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

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

Код:

1 2 3 4 5 6

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

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

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

Код:

1 2 3 4 5 6

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

[Евгений79]

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

[YVitaliy]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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 главной формы (или при старте программы) создаем обьект

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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

[icWasya]

Но не забывать, что если используете Class вместо Record, то не забывать вызывать конструкторы и деструкторы.