А случайно нет ли в паскале штатной возможности передать указатель

Question

Delphi & Lazarus

zamtmn

А случайно нет ли в паскале штатной возможности передать указатель

и количество туда где array of в качестве аргумента?

#lazarus #programming #russian

0

19.05.2024

25 ответов

115 просмотров

zamtmn Автор вопроса

имею ввиду выполнение program project1; {$mode delphi}{$H+} uses gvector; type TTest2=TVector<integer>; TDummyArr=array[0..0]of integer; PTDummyArr=^TDummyArr; procedure WriteArgs(const Args:array of integer); var i:integer; begin for i:=low(args) to high(args) do writeln(args[i]); end; var arr:TTest2; begin arr:=TTest2.Create; arr.PushBack(1); arr.PushBack(2); arr.PushBack(3); arr.PushBack(4); WriteArgs(PTDummyArr(arr.Mutable[1])^[0..1]); readln; end. и подобного без "страшных" кастований

0

6 месяцев назад

notme

zamtmn
имею ввиду выполнение program project1; {$mode del...

А это вроде чисто FPC'шная фишка, такой [a..b] кусок передавать

0

6 месяцев назад

zamtmn Автор вопроса

notme
не ответ на вопрос, но просто.. вчера в какой-то с...

да. удобно передавать куски без копирования. но там где физического доступа к массиву нет - приходится выкручиваться. неплохо бы получить законный способ

0

6 месяцев назад

zamtmn Автор вопроса

notme
А это вроде чисто FPC'шная фишка, такой [a..b] ку...

хз. у дельфистов надо интересоваться

0

6 месяцев назад

Александр (Rouse_) Багель

notme
не ответ на вопрос, но просто.. вчера в какой-то с...

Немного не так, там адрес буфера и индекс последнего элемента, но это CompilerMagic и руками такое провернуть будет сложновато

0

6 месяцев назад

Boris Usievich

notme
не ответ на вопрос, но просто.. вчера в какой-то с...

array of x в параметре и тип array of x это 2 разные вещи

0

6 месяцев назад

Александр (Rouse_) Багель

Boris Usievich
array of x в параметре и тип array of x это 2 ра...

Насколько я помню - да

0

6 месяцев назад

zamtmn Автор вопроса

Boris Usievich
array of x в параметре и тип array of x это 2 ра...

да, мы в курсе))

0

6 месяцев назад

notme

Boris Usievich
array of x в параметре и тип array of x это 2 ра...

Да

0

6 месяцев назад

notme

zamtmn
да, мы в курсе))

Я вот до вчерашнего дня не был в курсе )

0

6 месяцев назад

zamtmn Автор вопроса

notme
Я вот до вчерашнего дня не был в курсе )

но сегодня ты уже был в курсе))

0

6 месяцев назад

notme

Boris Usievich
array of x в параметре и тип array of x это 2 ра...

Ну а что Си++ думает по этому поводу? 😄 Есть чему тут повозмущаться? Типа что пишется одинаково, выглядит одинаково, но совершенно разное!

0

6 месяцев назад

Boris Usievich

notme
Ну а что Си++ думает по этому поводу? 😄 Есть чему ...

ничего, в плюсах тип не зависит от того в параметрах он или нет

0

6 месяцев назад

zamtmn Автор вопроса

notme
Ну а что Си++ думает по этому поводу? 😄 Есть чему ...

нечему тут возмущаться. это отличная фича))

0

6 месяцев назад

zamtmn Автор вопроса

Boris Usievich
ничего, в плюсах тип не зависит от того в параметр...

а это не тип. это синтаксис переменного числа аргументов

0

6 месяцев назад

notme

zamtmn
имею ввиду выполнение program project1; {$mode del...

Стикер

0

6 месяцев назад

Hemul GM

Ну, я не пробовал такое ни разу

0

6 месяцев назад

notme

zamtmn
имею ввиду выполнение program project1; {$mode del...

https://www.freepascal.org/docs-html/rtl/system/slice.html

0

6 месяцев назад

zamtmn Автор вопроса

notme
https://www.freepascal.org/docs-html/rtl/system/sl...

она скопирует

0

6 месяцев назад

zamtmn Автор вопроса

zamtmn
она скопирует

или нескопирует?

0

6 месяцев назад

notme

zamtmn
она скопирует

Смотрю по отладчику - копирования нету

0

6 месяцев назад

zamtmn Автор вопроса

notme
Смотрю по отладчику - копирования нету

program project1; {$mode delphi}{$H+} uses gvector; type TTest2=TVector<integer>; TDummyArr=array[0..0]of integer; PTDummyArr=^TDummyArr; procedure WriteArgs(const Args:array of integer); var i:integer; begin for i:=low(args) to high(args) do writeln(args[i]); end; var arr:TTest2; begin arr:=TTest2.Create; arr.PushBack(1); arr.PushBack(2); arr.PushBack(3); arr.PushBack(4); WriteArgs(PTDummyArr(arr.Mutable[1])^[0..1]); WriteArgs(slice(PTDummyArr(arr.Mutable[1])^,2));//так работает WriteArgs(slice(PInteger(arr.Mutable[1]),2));//а хочется так(( readln; end.

0

6 месяцев назад

notme

zamtmn
program project1; {$mode delphi}{$H+} uses gvect...

Идею понял, тут немного не то, но руками хоть не надо тип создавать: WriteArgs(slice(PIntegerArray(arr.Mutable[1])^,2));

0

6 месяцев назад

notme

notme
Идею понял, тут немного не то, но руками хоть не н...

В Generic интересно получится обернуть - универсальный массив создать?

0

6 месяцев назад

notme · Accepted Answer

notme

zamtmn
имею ввиду выполнение program project1; {$mode del...

не ответ на вопрос, но просто.. вчера в какой-то статье читал, возможно у GunSmoker'а, что array of Type на самом деле неявно передаётся как два параметра: указатель и размер

0

6 месяцев назад

169 похожих чатов

А случайно нет ли в паскале штатной возможности передать указатель

25 ответов

Похожие вопросы