PChar: Ændre 'Urne' til 'Arne' er vel let nok?

prøv:

var
  pArne: pchar;
  bArne: string;
begin
  bArne:='Urne'; //eller pArne:= fx en TMemorystream.memory
  pArne:=PChar(bArne);
  pArne^:=#65;    //giver access violation, hvorfor??
  pArne[0]:= #65;  //giver access violation, hvorfor??

Hej arne_v,

det du foreslår har jeg (selvfølgelig) også prøvet. Det funker ikke.

Jeg tror jeg har misforstået noget temmeligt grundlæggende, jeg ved bare ikke hvad.

Jeg ville være vældigt glad hvis du kunne forklare det eller vise et eksempel som  virker.

Y.

det forstår jeg ikke - det virker fint hos mig

har du p og b præcis som jeg skitserede det ?

testet med:

program PCharTest;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  pArne: pchar;
  bArne: string;

begin
  bArne:='Urne';
  pArne:=PChar(bArne);
  pArne^:=#65;
  pArne[0]:= #65;
  Writeln(bArne);
end.

Hej Arne,

dette her bliver mere og mere mystisk.
I tråd med eksemplet ovenfor laver jeg en form med et memo på og bruger


var
  p: pchar;
  s: string;
begin
  s:= 'Urne';
  p:= pchar(s);
  p^:= #65; //dette giver AV
  p[0]:= #65 //det gør dette også
  p:= 'Arne'; //dette må man gerne
  memo1.lines.add(string(p));
end;


Eksemplet ovenfor giver fin kompilering, men access violation når programmet køres (EAccessViolation).
Jeg vil meget gerne have styr på dette her- er der mon et eller andet kompilerswitch jeg kan have sat forkert (bruger altid bare default).
Er der noget package, uses eller et eller andet mystisk jeg kan have overset?

Det er afprøvet med både D3 og D7 under XP.

Afventer håbefuldt.
VH
Y.

jeg er kommet lid videre !

procedure TForm1.Button1Click(Sender: TObject);

var
  p: pchar;
  s: string;

begin
  s:= 'Urne';
  p:= pchar(s);
  p^:= #65; //dette giver AV
  p[0]:= #65; //det gør dette også
  p:= 'Arne'; //dette må man gerne
  memo1.lines.add(string(p));
end;

fejler men

var
  p: pchar;
  s: string;

procedure TForm1.Button1Click(Sender: TObject);

begin
  s:= 'Urne';
  p:= pchar(s);
  p^:= #65; //dette giver AV
  p[0]:= #65; //det gør dette også
  p:= 'Arne'; //dette må man gerne
  memo1.lines.add(string(p));
end;

virker

d.v.s. at det virker når s er i heap og ikke på stack

følgende virker:

procedure TForm1.Button1Click(Sender: TObject);

var
  p: pchar;
  s: string;

begin
  s:= 'Urne';
  p:=StrAlloc(length(s)+1);
  StrCopy(p,@s);
  p^:= #65; //dette giver AV
  p[0]:= #65; //det gør dette også
  p:= 'Arne'; //dette må man gerne
  memo1.lines.add(string(p));
end;

Hej Arne.

Det var helt uventet. Hvem  skulle have troet det?! Jeg kan ikke finde noget om dette i help-filerne noget sted.
For lige at præcisere, jeg gætter på (men kan ikke teste det her) at det er p (og ikke s) der skal være i heap'en, idet det jo er p der manipuleres.

Tusind tak for hjælpen - læg lige et svar.
Y.

p er bare en pointer som peger på s

og det er s som skal ligge i heap så p peger på noget i heap

jeg kan heller ikke helt gennemskue logikken

jeg kan bare se hvad der virker og hvad der ikke virker

StrAlloc og StrCopy må være den rigtige måde

og et svar

Det virker egentlig fjollet hvis der er forskel i adgangsrettighederne på heap og stack under disse forhold. Prøver om jeg kan finde noget på nettet om det. Hvis du finder noget så skriv lige et par adresser her...

Y.