Очистить Record

[Shouldercannon]

Есть

type
  TMyRecord = Record
    s: String;
    I: Integer;
  end;
...
var
  MyRecord: TMyRecord;
...
procedure TFormMain.BFill5Click(Sender: TObject);
begin
  MyRecord.s := 's: 5';
  MyRecord.I := 5;
end;

procedure TFormMain.BShow5Click(Sender: TObject);
var
  s: String;
begin
  if MyRecord.s <> '' then s := s + #13#10 + Format('%s = %d', [MyRecord.s, MyRecord.I]);
  ShowMessage(s);
end;

Очищаю так

Finalize(MyRecord);

Хотел использовать

FillChar(MyRecord, SizeOf(MyRecord), 0);

но вычитал, что будет утечка памяти.
Как правильно очистить Record?

[evg_m]

Как правильно очистить Record?

так же как и очистить такие переменные

var
    s: String;
    I: Integer;

т.е. "очистить" по-отдельности ее составляющие в соответствии с "правилами очистки" таких переменных

[Aliens_wolfs]

MyRecord: TMyRecord уже у вас объявлен в памяти
FillChar(MyRecord, SizeOf(MyRecord), 0); Не на какую память не повлияет
Для вашего спокойствия можно так
FillChar(Pointer(MyRecord)^, SizeOf(TMyRecord), 0);
либо так
Finalize(Pointer(MyRecord)^);

А если бы вы сами выделяли память например так

type
pMyRecord = ^TMyRecord; 
  TMyRecord = Record
    s: String;
    I: Integer;
  end;

var
MyRecord: pMyRecord;
begin
New(MyRecord);
//То чистить нужно так
FillChar(MyRecord^, SizeOf(TMyRecord), 0);
либо так
Finalize(MyRecord^);

[Аватар]

FillChar(MyRecord, SizeOf(MyRecord), 0); Не на какую память не повлияет

Еще как повлияет. Забьет нулем указатель на длинную строку, а сама строка в утечки памяти))

Очищаю так

твой record сам корректно очистится при уходе из зоны видимости. Или см #2

[Aliens_wolfs]

Ну тогда так для строк

SetLength(MyRecord.s, 0);

a для числовых так чтобы не очищать большую кучу числовых параметров по отдельности

FillChar(MyRecord, SizeOf(MyRecord), 0);

[Serge_Bliznykov]

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

Ну тогда так для строк

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

a для числовых так

что подтверждает сказанное выше:

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

т.е. "очистить" по-отдельности ее составляющие в соответствии с "правилами очистки" таких переменных

p.s. структуру record заполняет программист в процессе написания программы.
он и обязан следить за корректностью заполнения и очистки.
И использовать "хакерские" способы очистить память нужно крайне осторожно и аккуратно. (а лучше вообще не использовать )

в данном случае вполне достаточно:

  MyRecord.s := '';
  MyRecord.I := 0;

[Aliens_wolfs]

в данном случае вполне достаточно:
Код:
MyRecord.s := '';
MyRecord.I := 0;

Так а если много переменных к примеру 20?
Ну а со строковыми согласен в ручную их обычно мало бывает
По отдельности чистить много переменных это запара и что то можно пропустить.
Тогда наверное лучше задавать самому в память MyRecord и ложить например в TList и TListObject для контроля и массива, а потом ее просто уничтожать

type
pMyRecord = ^TMyRecord; 
  TMyRecord = Record
    s: String;
    I: Integer;
  .......куча доп. переменных
  end;

var
MyRecord: pMyRecord;
begin
New(MyRecord);

//Уничтожение
dispose(MyRecord);

[evg_m]

Так а если много переменных к примеру 20?

и надо делать много раз(а иначе зачем очищать?)
написать для этого

procedure ClearMyRecord(var work: MyRecord);

или в НЕКОТОРЫХ случаях возможно и так

function EmptyRecord: MyRecord;

ЕСЛИ... присвоение "пустой" записи СМОЖЕТ корректно очистить внутренние объекты.

Тогда наверное лучше задавать самому в память MyRecord а потом ее просто уничтожать

уничтожение самого объекта(памяти для его хранения) не приводит к уничтожению памяти внутренних объектов.

Забьет нулем указатель на длинную строку, а сама строка в утечки памяти))

только теперь не забьет, а просто потеряет.

p.s. структуру record заполняет программист в процессе написания программы.
он и обязан следить за корректностью заполнения и очистки.

от очистки внутренних объектов ничто не избавит.

[Aliens_wolfs]

написать для этого
Код:
procedure ClearMyRecord(var work: MyRecord);

Согласен но все же можно пропустить кое какие переменные, когда их много и что то добавляешь в ходе программирования, забудешь в эту чистку добавить переменную, это уже проверенно. Я бы тогда как в посте #5 написал для строковых по отдельности их обычно мало, а для всего остального FillChar

Забьет нулем указатель на длинную строку, а сама строка в утечки памяти))

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

[evg_m]

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

а как очистить( в смысле освободить память) "простую" целочисленную переменную.

Согласен но все же можно пропустить кое какие переменные, когда их много

это работает в обе стороны

и что то добавляешь в ходе программирования

вот и добавили строку.
был FillChar -- получили описанное выше.

изменили структуру --> изменили процедуру очистки.

именно поэтому(не только) и появились классы (структура ВМЕСТЕ с процедурами для их обработки).