ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Наполняемость переменной при декларации
9 сообщений из 34, страница 2 из 2
  2  все
Наполняемость переменной при декларации
    #39943754
ВсеРазумный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВсеРазумный
Гость
Kazantsev Alexey

1. Переменные класса - это глобальные переменные. Они инициализируются всегда.
2. Но ты то о полях объекта , а они тоже инициализируются всегда.


Однако объект сам себя не создаст. И объекту не нужно в будущем "adoSave<>Nil" проверять на создание. Так как автор не контролирует - то, что у него в программе. И следовательно лепит костыли.


Kazantsev Alexey

Parser error.


Код: pascal
1.
2.
3.
4.
5.
SetLength(x, n);

...

GetMem(x, N);



Да хоть тот же
Код: pascal
1.
facility := TClass.Create;



Является ручной инициализацией динамических данных, вложенных в класс (Например конструктор) который в будущем следует удалить.
...
Рейтинг: 0 / 0
03.04.2020, 23:59
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943755
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealon(Ruslan)
Участник
 
Kazantsev Alexey
Delphi: МИН НЕТ!

Не знаю, соберётся-ли на Delphi 7, но проверь:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

procedure test2;
var
 i : Integer;
begin
 writeln(Integer(@i));
end;
procedure test;
var
 i : Integer;
begin
 test2;
 writeln(Integer(@i));
end;
var
t : Integer;
begin

 writeln(Integer(@datamark));
 writeln(Integer(@t));
 test;
 readln;

end.


rgreat
Kazantsev Alexey,

Только "System." пришлось убить.

Код: plaintext
1.
2.
3.
4231316
4237208
1703760
1703768


Kazantsev Alexey
rgreat
Только "System." пришлось убить.

Логично :)

Результат говорит о том, что переменные декларированные в теле основного модуля являются глобальными. А вот почему семёрка их не обнуляет...


во вы парни угораете на карантин
очень интересно зачем вам понадобилось вывести адреса переменных
...
Рейтинг: 0 / 0
04.04.2020, 00:03
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943759
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
ВсеРазумный
Однако объект сам себя не создаст.

Однако, речь о дефолтной инициализации переменных.
kealon(Ruslan)
зачем вам понадобилось вывести адреса переменных

Ну дык... Наглядная демонстрация, что стековые переменные находятся далеко от сегмента данных, и интересующая нас переменная лежит именно в сегменте данных.
...
Рейтинг: 0 / 0
04.04.2020, 00:10
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943771
ВсеРазумный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВсеРазумный
Гость
Kazantsev Alexey
Однако, речь о дефолтной инициализации переменных.


О какой инициализации идёт речь? Это обычный GetMem + FillChar с определённым StorageSize, а в куче процедур у нас стэк обычный.
...
Рейтинг: 0 / 0
04.04.2020, 00:49
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943773
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
ВсеРазумный
О какой инициализации идёт речь?

О дефолтной. В этом топике. Няшик.
...
Рейтинг: 0 / 0
04.04.2020, 00:52
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943774
ВсеРазумный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВсеРазумный
Гость
Kazantsev Alexey,

Мне кажется вы опять тут занимаетесь ерундой, чистой воды. По этому я вам сейчас подкину интересную магию

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  c = class
  public
    Test: integer;
    procedure Call1;
    procedure Call2;
    procedure Call3;
  end;

procedure c.Call1;
begin
  writeln(NativeUint(@Test));
end;

procedure c.Call2;
var
  Test5454: integer;
begin
  Test5454 := 45;
  writeln('Call2 ' + NativeUint(@Test5454).ToString + ' : ' + Test5454.ToString);
end;

procedure c.Call3;
var
  Test0: integer;
begin
  writeln('Call3 ' + NativeUint(@Test0).ToString + ' : ' + Test0.ToString);
  writeln(NativeUint(@Test));
end;

var
  t: c;

begin
  try
    t := c.Create;
    t.Call1;
    t.Call2;
    t.Call3;

  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.




38307908
Call2 1703720 : 45
Call3 1703720 : 45
38307908


Задаём в функции Call2 переменную Test5454 со значением 45 и вызываем Call3 и выводим значение переменной Test0

Ну а дальше получаем по губе мусором
...
Рейтинг: 0 / 0
04.04.2020, 00:56
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943776
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
ВсеРазумный
По этому я вам сейчас подкину интересную магию

Это не магия, это основы, о которых тут уже писали .
...
Рейтинг: 0 / 0
04.04.2020, 01:14
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943777
ВсеРазумный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВсеРазумный
Гость
Kazantsev Alexey,

Усложним пример

 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils;

type
  c = class
  public
    IsChainTmp: Boolean;
    procedure Call1(IsChain: Boolean = false);
    procedure Call2;
    procedure Call3;
    procedure Test;
  end;

procedure c.Test;
begin

end;

procedure c.Call1;
var
  Test0: integer;
begin
  Randomize;
  Test0 := Random(100) + 1;
  writeln('Test = ' + NativeUint(@IsChainTmp).ToString);
  writeln('Self = ' + NativeUint(@self).ToString);

  IsChainTmp := IsChain;
  if IsChainTmp then
    Call2;

  writeln('Test0(Call1) = ' + NativeUint(@Test0).ToString + ' : ' + Test0.ToString);
end;

procedure c.Call2;
var
  Test1: integer;
begin
  Randomize;
  Test1 := Test1 * Random(50) + 1;
  writeln('Test1(Call2) = ' + NativeUint(@Test1).ToString + ' : ' + Test1.ToString);

  if IsChainTmp then
    Call3;
end;

procedure c.Call3;
var
  Test2: integer;
begin
  writeln('Test2(Call3) = ' + NativeUint(@Test2).ToString + ' : ' + Test2.ToString);
end;

var
  Global: integer;

  t: c;

begin
  try

    writeln('Global ' + NativeUint(@Global).ToString + ' : ' + Global.ToString);

    t := c.Create;
    t.Call1;
    t.Call2;
    t.Call3;

    t.Call1(true);
    t.Call3;

  except
    on E: Exception do
      writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

end.




Global 4356316 : 0

Test = 37980228
Self = 1703704

Test0(Call1) = 1703696 : 40

Test1(Call2) = 1703700 : 1
Test2(Call3) = 1703700 : 1

Test = 37980228
Self = 1703704

Test1(Call2) = 1703628 : 568830241
Test2(Call3) = 1703584 : 37922016

Test0(Call1) = 1703696 : 48

Test2(Call3) = 1703700 : 16777216
...
Рейтинг: 0 / 0
04.04.2020, 01:22
| Ответить | Цитировать | Написать  
Наполняемость переменной при декларации
    #39943778
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
ВсеРазумный
Усложним пример

Могу тебе предыдущую ссылку ещё раз дать. Надо? Адреса стековых переменных меняются? Ну так и вложенность вызовов меняется.
...
Рейтинг: 0 / 0
04.04.2020, 01:37
| Ответить | Цитировать | Написать  
9 сообщений из 34, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Наполняемость переменной при декларации
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&startmsg=39943754&tid=2038432]:
 0ms
get settings:
 10ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 13ms
get forum data:
 4ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 217ms
total:  383ms
созд. / загр.: 383ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]