ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / record helper for на тип Pointer
19 сообщений из 19, страница 1 из 1
record helper for на тип Pointer
    #39681029
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
Создаю структуру, делаю на неё Pointer. Этот Pointer указываю в record helper for X в итоге ничего не работает, хотя Self определён.

PTest. не имеет никаких GetX

Это баг?

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
  PTest = ^TTest;

  TTest = record
    X: Integer;
  end;

  TTestHelper = record helper for PTest
  public
    function GetX: Integer; inline;
  end;


...

[SRC delphi]function TTestHelper.GetX: Integer;
begin
  Result := Self.X;
end;


[/SRC]



Кстати, такой код он считает вполне валидным
Код: pascal
1.
2.
3.
4.
function TTestHelper.GetX: char;
begin
  Result := ^X;
end;
...
Рейтинг: 0 / 0
30.07.2018, 13:21
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681069
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Гирлионайльдо,

А зачем такие извращения? Почему бы для TTest не сделать?
...
Рейтинг: 0 / 0
30.07.2018, 13:58
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681074
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Vasilisk_
Участник
alekcvpА зачем такие извращения? Почему бы для TTest не сделать?+1

А если так?
Код: pascal
1.
2.
3.
4.
function TTestHelper.GetX: Integer;
begin
  Result := Self^.X;
end;
...
Рейтинг: 0 / 0
30.07.2018, 14:09
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681075
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
alekcvp,

Хочется сделать нормальный аналог String (Он ведь тоже Pointer, только как то по умному определён)

В общем, строки в 4 гб захотелось! Надоел этот сраный EOutOfMemory со своим MaxInt в 2147483647


Пока пришёл к выводу, что самое лучшее. Это определить так
Код: pascal
1.
2.
3.
  TMemoryString = array of Byte;

  TMemoryStringHelper = record helper for TMemoryString



Выделяем нужную длину, пишем в неё структуру. А дальше сама строка
Код: pascal
1.
2.
3.
4.
5.
6.
7.
  // Sizeof == 16
  TSSEString = record
    CurrLength, MaxLength: NativeUInt; // Текущая используемая длина. И максимально выделанная (Аналог StringBuilder)
    CodePage: Word; // Текущая кодировка 
    elemSize: Byte; // Тип символа.
    Ref: Cardinal; // Количество ссылок
  end;
...
Рейтинг: 0 / 0
30.07.2018, 14:13
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681077
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
_Vasilisk_,

Не определён.
...
Рейтинг: 0 / 0
30.07.2018, 14:14
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681080
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Гирлионайльдо,

А чего UINT а не int64?
...
Рейтинг: 0 / 0
30.07.2018, 14:19
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681085
Гирлионайльдо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гирлионайльдо
Участник
rgreat,

По сути, можно и UInt64. Только он 8 ... И над этим типом, сложно работать 32 битным процессором.

По этому NativeUInt ибо манипуляция происходит в два раза быстрее.


И если что, то можно будет создать доп тип, если нужно будут строки более 4 гб
...
Рейтинг: 0 / 0
30.07.2018, 14:28
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681094
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
ГирлионайльдоХочется сделать нормальный аналог String
...
Рейтинг: 0 / 0
30.07.2018, 14:47
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681095
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Василий 2
Участник
rgreatГирлионайльдо,

А чего UINT а не int64?
Ну и что будет делать 32-разрядная софтина со строками больше 4 Гб?
...
Рейтинг: 0 / 0
30.07.2018, 14:47
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681098
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
ГирлионайльдоВ общем, строки в 4 гб захотелось!а ничего, что без специального ключа ты не выделишь непрерывный кусок памяти объемом даже куда меньше, чем MaxInt?
...
Рейтинг: 0 / 0
30.07.2018, 14:51
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681101
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Квейд
Участник
Василий 2rgreatГирлионайльдо,

А чего UINT а не int64?
Ну и что будет делать 32-разрядная софтина со строками больше 4 Гб?
пусть автор сначала расскажет, как он планирует оперировать строками больше 4 Гб в 32-разрядном режиме
...
Рейтинг: 0 / 0
30.07.2018, 14:52
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681124
schi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
schi
Участник
В древнем Китае желающим странного отрубали голову. Просто и надежно.
...
Рейтинг: 0 / 0
30.07.2018, 15:20
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681152
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Гирлионайльдоrgreat,

По сути, можно и UInt64. Только он 8 ... И над этим типом, сложно работать 32 битным процессором.

По этому NativeUInt ибо манипуляция происходит в два раза быстрее.


И если что, то можно будет создать доп тип, если нужно будут строки более 4 гб
А какой смысл в UInt64 для х86?
Это только для х64.
...
Рейтинг: 0 / 0
30.07.2018, 15:56
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681197
Cobalt747
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cobalt747
Участник
rgreatА какой смысл в UInt64 для х86?
Это только для х64.
На вскидку - обмен данными с 64-битным приложением (через пайп/сокет/файл/http/ftp...)
...
Рейтинг: 0 / 0
30.07.2018, 16:59
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681215
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Cobalt747rgreatА какой смысл в UInt64 для х86?
Это только для х64.
На вскидку - обмен данными с 64-битным приложением (через пайп/сокет/файл/http/ftp...)
Попрос был в контексте задачи топикстартера.

Для чего нужен Int64 вообще я в курсе. ;)
...
Рейтинг: 0 / 0
30.07.2018, 17:28
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681243
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
ГирлионайльдоКстати, такой код он считает вполне валидным
Код: pascal
1.
2.
3.
4.
function TTestHelper.GetX: char;
begin
  Result := ^X;
end;



^X или @X ???

Если второе - то это потому, что по умолчанию пойнтеры не типизированные
http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Type-checked_pointers_(Delphi)
...
Рейтинг: 0 / 0
30.07.2018, 18:03
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681246
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Гирлионайльдо
Код: pascal
1.
2.
3.
4.
5.
6.
7.
  // Sizeof == 16
  TSSEString = record
    CurrLength, MaxLength: NativeUInt; // Текущая используемая длина. И максимально выделанная (Аналог StringBuilder)
    CodePage: Word; // Текущая кодировка 
    elemSize: Byte; // Тип символа.
    Ref: Cardinal; // Количество ссылок
  end;



На x64 будет SizeOf = 24

Кстати, ты бы его сразу проверял в коде, завёл бы например метод в record'e.
Жаль, что у рекордов ,в отличие от классов, нет конструкторов типа....
...
Рейтинг: 0 / 0
30.07.2018, 18:08
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681248
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
ГирлионайльдоPTest. не имеет никаких GetX
_Vasilisk_
Код: pascal
1.
2.
3.
4.
function TTestHelper.GetX: Integer;
begin
  Result := Self^.X;
end;


ГирлионайльдоНе определён.

Кто на ком стоял ?

у тебя неопределён PTest.GetX - или у тебя неопределён X внутри PTest.GetX ?
...
Рейтинг: 0 / 0
30.07.2018, 18:10
| Ответить | Цитировать | Написать  
record helper for на тип Pointer
    #39681250
Arioch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arioch
Участник
Гирлионайльдо
Код: pascal
1.
2.
3.
4.
  TTestHelper = record helper for PTest
  public
    function GetX: Integer; // без inline;
  end;



или вообще просто вот так

Код: pascal
1.
2.
3.
4.
5.
6.
  TTest = record
  private
    X: Integer;
  public
    property GetX: integer read X;
  end;



Другими словами - на хрен тебе тут вообще хелперы?
...
Рейтинг: 0 / 0
30.07.2018, 18:12
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / record helper for на тип Pointer
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39681152&tid=2040577]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 2ms
check topic access:
 3ms
track hit:
 174ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 253ms
total:  533ms
созд. / загр.: 533ms
x
x
Закрыть


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