const zur Laufzeit zuweisen

[The-X]

oder mit ein wenig Zeiger-Biege-Kunst

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

Type
  PString=^String;

Const
  S:string ='this is not a test';

var
  T:PString;

begin
  T:=@S;
  Delete(T^,9,4);
  Writeln(S);
  Readln;
end.

Ausgabe: "this is a test"