Ссылка на кусок pchar

[Kronos913]

const 
  s:pchar='1234_5678';

Где-то в программе мне понадобилось только '5678'

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

Отбракованные варианты, которые не были приняты компилятором

const
  p:pointer=@s[6]

const
  w:LongWord=LongWord(s)+6

[Arigato]

Вот так работает:

const
  s:pchar='1234_5678';
begin
  writeln(s+5);
  readln;
end.

[Kronos913]

types
  ppChar=^PChar;

Вот такого типа переменная входит в процедуру.

И для этого нужно сделать какую-то промежуточную константу, которая содержит это s+5

[Arigato]

Сообщение от Kronos913

И для этого нужно сделать какую-то промежуточную константу, которая содержит это s+5

Зачем это нужно? s+5 и так константа, так как s константа и 5 константа.

[northener]

Сообщение от Kronos913

ppChar=^PChar;

Сообщение от Kronos913

Вот такого типа переменная входит в процедуру.

Такого извращения я ещё не встречал! Указатель на указатель PChar.
Не взлетит ваша ракета, Kronos913, с такими извращениями.

[Arigato]

Сообщение от northener

Такого извращения я ещё не встречал!

Видимо, вы не открывали другие темы от Kronos913. Там и не такое извращение можно найти! Более того, отмечу, что кроме всевозможных извращений вы больше ничего в его темах и не найдете

[digitalis]

Ну это как-то разряжает сухую академичность осмысленных вопросов-ответов. "В каждой роте для потехи существуют зампотехи". А тут вот ... Ну ещё апологет супер-гипер-ультра-высокоуровневого языка (ну вы знаете). Да ещё был jura_k со своими мангами, затерялся где-то.

[Kronos913]

Сообщение от northener

Такого извращения я ещё не встречал! Указатель на указатель PChar.
Не взлетит ваша ракета, Kronos913, с такими извращениями.

делаю короткий тестовый код

Procedure aaa(const p:pchar);
begin
  Form1.Memo1.Lines.Add(IntToStr(Integer(@p)));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p:pchar;
begin
  p:='1';
  Memo1.Lines.Add(IntToStr(Integer(@p)));
  aaa(p);
end;

И в мемо оказываются два разных числа

Потому я и делаю в программе ссылку на pchar - чтобы гарантировать отсутствие лишнего дублирования строки

p.s. var - не подходит. Потому что часто ссылку нужно сделать на константу

[NetSpace]

не покатит скопировать всё, что после символа _ ?

memo1.Lines.Add(Copy(s,Pos('_',s)+1,Length(s)-Pos('_',s)));

[evg_m]

И в мемо оказываются два разных числа

а почему там должно быть одно, если выводите
адрес ПЕРЕМЕННОЙ integer(@p);
а не адрес строки pointer(p);