Переменная с каким-то значением

[slavon-x86]

procedure perem;
var
i: integer;
begin
ShowMessage(IntToStr(i));
end;

Выводит какое-то значение ! Т.е. создаётся непустая переменная. Кто знает почему, и как с эти бороться !

P.s. - обнулять по типу i := 0 тупо и неразумно; А если у меня ТИП данных, где 100 таких переменных, мне что их все по очереди обнулять ? Проверял на Delphi 7 и Delphi 2005 !

 

[slavon-x86]

Какой такой тип?

Вот такой !

Type
TDataSpec = record
Avtive, PageControl, Count, ... тут штук 100 подобных переменных ..., Promo, Version: integer;
Client: TClientArray;
end;

vat
Data: TSpecData;

Почему?

Хм, много однако....

 

[slavon-x86]

И что видно если так: ShowMessage(IntToStr(Data.Active));?

440006

 

[slavon-x86]

Нет, не точно. Я писал вот так:

Memo1.Lines.Add(IntToStr(Data.Active));

 

[Yason]

slavon-x86
1. Сделай TDataSpec не record'ом, а классом, и в конструкторе инициализируй поля как хошь.
2. ZeroMemory(@data, sizeof(data))

 

[slavon-x86]

Первый способ меня устраивает, но я не знаю как это сделать !
Второй даёт утечку памяти в строках !

 

[Yason]

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

Кхм... Не знаешь -- читай. Матчасть правильно учить по

Ссылка скрыта от гостей

.

Второй даёт утечку памяти в строках !

А по подробнее? В каких строках, при каком использовании, можно с кодом.

 

[slavon-x86]

А по подробнее? В каких строках, при каком использовании, можно с кодом.

Вот сорс ZeroMemory:

procedure ZeroMemory(p:pointer;i:integer);
xor ecx,ecx
call FillChar
ret

В данном примере вызов процедуры FillChar проинициализирует строки пустыми значениями, такой подход был нормальным в ранних версиях Delphi и Borland Pascal, но недопустим в последних версиях, в которых тип string по умолчанию соответствует типу LongString и суть указатель. Если значения строк перед инициализацией были не пусты, то мы получим утечку памяти.

 

[slavon-x86]

Хотя я провёл тестирование и незаметил утечки...

type
Tzzz = record
s, s1, s2: string;
end;

var
Form1: TForm1;
counter: LongInt = 0;

implementation

uses Unit2;

{$R *.dfm}

procedure TestMemory;
var
protocol : Tzzz;

begin
randomize;

FillChar(protocol, SizeOf(protocol), 0);

protocol.s1 := IntToStr(random(999999));
protocol.s2 := IntToStr(random(999999));

if counter mod 1000 = 0 then Form1.Caption := IntToStr(counter);
inc(counter);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
TestMemory;
until 1 = 2;
end;

end.

 

[Yason]

Во-первых, AnsiString создаётся пустой.
Во-вторых, если строку нужно (пере)инициализировать заново, это делается безо всяких ZeroMemory:

s := '';

Применение ZeroMemory ещё можно придумать при работе с PChar, но AnsiString всё делает самостоятельно.

slavon-x86
Утечки памяти нет только потому, что Вы сначала создаёте protocol (неинициализированный), потом его зачищаете FillChar'ом, и только потом присваиваете осмысленные значения. После чего процедура заканчивается, protocol удаляется из стека вместе со своими полями, и никакой памяти не теряется.

А попробуйте в другом порядке

 protocol.s1 := IntToStr(random(999999));
protocol.s2 := IntToStr(random(999999));
FillChar(protocol, SizeOf(protocol), 0);

или сделайте protocol глобальной переменной. Потом запустите Task Manager, и посмотрите на потребление памяти.

P.S. Очень советую на время экспериментов repeat заменить на for с каким-нибудь скромным пределом, порядка сотни тысяч.

 

[Silver Wind]

Как вариант, чтобы не инициализировать каждое поле в записи по отдельности объяви типизированную константу в духе:

const
EmptyDataSpec: TDataSpec = (Avtive: 0; PageControl: 0; ...);

И используй в духе LocalDataSpec:=EmptyDataSpec;