Метод очищает поле (-ля) объекта

@Plus · Регистрация: 29.07.2015

Студворк — интернет-сервис помощи студентам

В Delphi описываю метод, который должен очистить некоторые поля объекта. Что-то вроде инициации. Удалять (деструктор) и создавать (конструктор) объект при этом нельзя.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
TMyData = class
…
Buffer: array of byte; //буфер с данными- динамический массив
N: Integer; // содержит номер последнего "полезного" байта в буфере
count: integer;  //количество принятых байт 
…
procedure Buffer_clean(); //очистить буфер. В идеале хочу очистить в одном методе  еще поля N и count
Var I:integer;
begin
for i := 0 to Length(Buffer) do
 
 Buffer[i]:=0;
end;

У меня задача написать метод, который очищает поле(-ля) объекта. При компиляции ошибка. Хочу очистить в одном методе еще поля N и count. Помогите или подскажите, где ошибаюсь.

@Plus · 08.10.2016, 23:58 **[ТС]**

На форме есть две кнопки «Открыть порт № 1» и «Открыть порт № 2». Каждая поодтедности создает экземпляр Bufer_Port1 и Bufer_Port2. Возможно, что пользователь будет работать только с одним портом ми тогда один из экземпляров Bufer_Port1 или из Bufer_Port2 не понадобиться . Можно конечно объявить массив

Buffer_Port:array[1..NumPorts] of TBuffer_Port;

И создавать всегда два экземпляра, когда открывается хоть один порт.
Как бы строчку 48

Memo3.Lines.Add(TData_port('Buffer_Port1 ').Print_Buffer); //РАБОТАЕТ

Заменить номер в имени экземпляра на

Memo3.Lines.Add(TData_port('Buffer_Port[i]').Print_Buffer);

@MyEternity · 09.10.2016, 10:37

1. Делаете Record вида "Клиентский буффер", или Buffer_Port.
2. На обе кнопки можно повесить один обработчик OnClick и разбирать кнопки по (Sender as TButton).Tag например.
3. Делаете массив Record-ов из пункта 1 в секции private/public/protected класса (в зависимости от того, понадобится ли вам его использовать где-то еще или нет).
4. При создании класса (в вашем случае это форма) выделяете память под массив.
5. При destroy класса очищаете память массива.
Таким образом у вас всегда будет создано 2 ваших Record с хранящейся информацией в них - это сильно упростит задачу. Останется только правильно наполнять/очищать записи (Record) при каких-то ваших действиях.

В целом, все это вам уже посоветовали в ветке выше, я лишь резюмирую.

@Plus · 09.10.2016, 22:43 **[ТС]**

Решение не новое (Классика). Сначала объявляем строковую переменную, а потом её передаем в качестве имени:

Delphi
1
2
3
4
5
6
Var s: AnsiString;
Buffer_Port1, Buffer_Port2: TData_port;   // Buffer_Port1 объект порта №1 класса  TData_port
Number_Port: Integer; // содержит индекс в имени порта SPortAx1  или SPortAx2
….
s:= 'Buffer_Port' + IntToStr(Number_Port);
 Memo3.Lines.Add(TData_port(s).Print_Buffer);

Добавлено через 2 часа 52 минуты
Неправильное решение! Компилятор не выдает ошибку. А работает неправильно!

@rdt · 10.10.2016, 23:45

Сообщение от Plus

Решение не новое (Классика). Сначала объявляем строковую переменную, а потом её передаем в качестве имени:

Plus, просто, не делайте так.

@Plus · 16.01.2017, 17:40 **[ТС]**

Есть законченный модуль TMy_Class_1 _Unit, в котором реализован объект. Отдельно работая все получается и хорошо и выполняется конструктор Create . Решил создать другой модуль TMy_Class_2_Unit, в котором будет свой класс, полем которого будет экземпляр Messages .
Как я понимаю при создании TMy_Class_2_Unit.Create, должен создать Messages автоматически, но он не создается пишет 'экземпляр НЕ создан'.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  TMy_Class_2_Unit = class(TObject)
  private
  public // Сначала объявляются переменные, только потом методы.
…    StatusID: Integer; // Режим состояния
    StatusStr: String; // текстовое описание  ошибки
    Messages: TMy_Class_1 _Unit; //Поле, указывающее на другой объект
…
    constructor Create();
  published
…
…
constructor TMy_Class_2_Unit.Create;
begin
//
StatusStr:= 'экземпляр  НЕ создан';
///Messages.Create;
if Messages <> nil then
    StatusStr:='экземпляр создан';     
end;

Помогите пожалуйста!

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Plus 0 / 0 / 0 Регистрация: 29.07.2015 Сообщений: 48
	08.10.2016, 23:58 [ТС]
	На форме есть две кнопки «Открыть порт № 1» и «Открыть порт № 2». Каждая поодтедности создает экземпляр Bufer_Port1 и Bufer_Port2. Возможно, что пользователь будет работать только с одним портом ми тогда один из экземпляров Bufer_Port1 или из Bufer_Port2 не понадобиться . Можно конечно объявить массив Buffer_Port:array[1..NumPorts] of TBuffer_Port; И создавать всегда два экземпляра, когда открывается хоть один порт. Как бы строчку 48 Memo3.Lines.Add(TData_port('Buffer_Port1 ').Print_Buffer); //РАБОТАЕТ Заменить номер в имени экземпляра на Memo3.Lines.Add(TData_port('Buffer_Port[i]').Print_Buffer); 0

@MyEternity 97 / 97 / 25 Регистрация: 25.04.2016 Сообщений: 525
	09.10.2016, 10:37
	1. Делаете Record вида "Клиентский буффер", или Buffer_Port. 2. На обе кнопки можно повесить один обработчик OnClick и разбирать кнопки по (Sender as TButton).Tag например. 3. Делаете массив Record-ов из пункта 1 в секции private/public/protected класса (в зависимости от того, понадобится ли вам его использовать где-то еще или нет). 4. При создании класса (в вашем случае это форма) выделяете память под массив. 5. При destroy класса очищаете память массива. Таким образом у вас всегда будет создано 2 ваших Record с хранящейся информацией в них - это сильно упростит задачу. Останется только правильно наполнять/очищать записи (Record) при каких-то ваших действиях. В целом, все это вам уже посоветовали в ветке выше, я лишь резюмирую. 0