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

Код: pascal
1.
2.
3.
4.
5.
TRec1 = packed record
  A: Byte;
  B: Integer;
  C: array[1..5] of Char;
end;



Есть необходимость в выражениях использовать константы размеров полей этой записи.
Но такие конструкции не работают:
Код: pascal
1.
2.
3.
SizeOf(TRec1.A)
SizeOf(TRec1.B)
SizeOf(TRec1.C)



Работает, например, так:
Код: pascal
1.
2.
3.
4.
PRec1 = ^TRec1;
SizeOf(PRec1(nil).A)
SizeOf(PRec1(nil).B)
SizeOf(PRec1(nil).C)


Но как-то выглядит слегка коряво...

Подскажите пожалуйста, как можно "красиво" получать размер полей записи?
...
Рейтинг: 0 / 0
20.07.2017, 11:10:14
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492168
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
MikhalichПодскажите пожалуйста, как можно "красиво" получать размер полей записи?
Сначала объяви переменную с рекордом и её и измеряй.
...
Рейтинг: 0 / 0
20.07.2017, 11:17:36
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492177
Mikhalich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhalich
Гость
wadmanСначала объяви переменную с рекордом и её и измеряй.Фактически я именно это и делаю в конструкции вида
Код: pascal
1.
SizeOf(PRec1(nil).A)
...
Рейтинг: 0 / 0
20.07.2017, 11:23:20
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492205
Q640
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q640
Гость
Код: pascal
1.
2.
3.
4.
5.
6.
procedure TForm1.Button7Click(Sender: TObject);
type TRec1 = packed record A: Byte; B: Integer; C: array[1..5] of Char; end;
var Rec1: TRec1;
begin
ShowMessage(Format('A~%d, B-%d, C~%d', [SizeOf(Rec1.A), SizeOf(Rec1.B), SizeOf(Rec1.C)]));
end;
...
Рейтинг: 0 / 0
20.07.2017, 11:50:05
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492212
Mikhalich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhalich
Гость
Q640,
Именно это я и делаю. Только в моем варианте не нужно заморачиваться с объявлением переменной.
PRec1(nil) - это фактически переменная, нулевой указатель на структуру типа TRec1.
...
Рейтинг: 0 / 0
20.07.2017, 11:57:16
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492227
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
MikhalichНо как-то выглядит слегка коряво...
так тебе "шашечки или ехать?"
...
Рейтинг: 0 / 0
20.07.2017, 12:08:33
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492230
Mikhalich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhalich
Гость
Доктак тебе "шашечки или ехать?"
 
Я уже еду.... А теперь хочу шашечки, блекджек, шл...х, коктейль и музыку.
...
Рейтинг: 0 / 0
20.07.2017, 12:13:51
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492239
Q640
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q640
Гость
Мне кажется вы как раз заморочились намного больше чем было бы с объявлением переменной...
Ну объявили бы и всё, не будете использовать - она соптимизируется вникуда... Нулевые указатели, блин. С:
...
Рейтинг: 0 / 0
20.07.2017, 12:17:55
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492250
Mikhalich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhalich
Гость
Q640Мне кажется вы как раз заморочились намного больше чем было бы с объявлением переменной...
Ну объявили бы и всё, не будете использовать - она соптимизируется вникуда... Нулевые указатели, блин. С:
Чтобы объявить переменную, нужно лезть черт знает куда по коду.
Нужно помнить название переменной (или постоянно смотреть как она называется). Т.е. заметное количество телодвижений.
Если мы таким образом используем переменную, то память под нее все равно будет выделяться? А если там большие массивы, то этот факт не есть гут.
Поэтому хочу какую-нибудь простую и приятную конструкцию типа SizeOf(Integer).
...
Рейтинг: 0 / 0
20.07.2017, 12:27:37
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492260
Q640
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Q640
Гость
Не будет.
И я объявил прямо над местом где понадобилось узнать размер, никуда не "лазил". С:
...
Рейтинг: 0 / 0
20.07.2017, 12:35:50
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492263
чччД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД
Участник
Mikhalich,

ну, вот так. Все в соответствии с описанием:
System.SizeOf FunctionReturns the number of bytes occupied by a variable or type.

Т.е., подавай либо экземпляр, либо "чистый тип".

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
type
  TA5C = array[1..5] of Char;
  TRec1 = record
    A: Byte;
    B: Integer;
    C: TA5C;
  end;
begin
  ShowMessageFmt('A~%d, B-%d, C~%d', [SizeOf(Byte), SizeOf(Integer), SizeOf(TA5C)]);
end;


...

В общем-то, твое желание работать с именами полей, а не с их типом, понятно: тип поля может измениться. Но - "так сделано", "люминь", "можете жаловаться" (по выбору)...
...
Рейтинг: 0 / 0
20.07.2017, 12:38:47
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492316
Mikhalich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhalich
Гость
Q640Не будет.
И я объявил прямо над местом где понадобилось узнать размер, никуда не "лазил". С:
А код между разделом "var" и местом, "где все это дело приспичило" просто не существует? У меня там много букавок.

И ассемблер говорит такую загадочную вещь:
для
Код: pascal
1.
C: array[1..5] of Char;


Код: sql
1.
add esp,-$10


для
Код: pascal
1.
C: array[1..10] of Char;


Код: sql
1.
add esp,-$1c
...
Рейтинг: 0 / 0
20.07.2017, 13:11:32
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492317
Mikhalich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mikhalich
Гость
чччДНо - "так сделано", "люминь", "можете жаловаться" (по выбору)...
Тогда в пичали пойду за горькой.....
...
Рейтинг: 0 / 0
20.07.2017, 13:12:15
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492550
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
MikhalichQ640Не будет.
И я объявил прямо над местом где понадобилось узнать размер, никуда не "лазил". С:
А код между разделом "var" и местом, "где все это дело приспичило" просто не существует? У меня там много букавок.

И ассемблер говорит такую загадочную вещь:
для
Код: pascal
1.
C: array[1..10] of Char;


Код: sql
1.
add esp,-$1c

Ага, как интересно

У меня вот так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TForm1.FormCreate(Sender: TObject);
var
  C: array[1..10] of Char;
begin
  ShowMessage(SizeOf(C).ToString)
end;


005C9C9B 83C4DC           add esp,-$24
...
Рейтинг: 0 / 0
20.07.2017, 17:19:30
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492960
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Квейд,

потому что у тебя там ещё переменная типа string

Закомментируй ShowMessage - будет примерно так же
...
Рейтинг: 0 / 0
21.07.2017, 13:58:32
| Ответить | Цитировать | Написать  
Можно ли получить размер поля записи?
    #39492993
Bred eFeM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bred eFeM
Участник
Mikhalich, "красиво"!
Код: pascal
1.
2.
3.
4.
5.
6.
{ TMyRecord }

class function TMyRecord.SizeOf(const aFildName:String): Integer;
begin
 Result := TRTTIContext.Create.GetType(TypeInfo(TMyRecord)).GetField(aFildName).FieldType.TypeSize;
end;



Есть необходимость в выражениях использовать константытак используй!
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
 TMyRecord = record
   private type
    TMyA = Integer;
    TMyB = Double;
   const
    cA = SizeOf(TMyA);
    cB = SizeOf(TMyB);
   public
    A : TMyA;
    B : TMyB;
 end;
...
Рейтинг: 0 / 0
21.07.2017, 14:57:53
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Можно ли получить размер поля записи?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39492168&tid=2042006]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 61ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 212ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


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