1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  s: string;
  p: pchar;
begin
  s := 'test';
  p := pchar(s);

  if pointer(p) = pointer(s) then showmessage('gleich');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Var
 S : String;
 P : PChar;
begin
 S := 'abcdefg'; // hardcoded
 P := PChar(S);  // hier wird eine Kopie erstellt
 S[2] := 'B';
 ShowMessage(P); // abcdefg

 S := 'abcd';    // hardcoded
 S := S + 'efg'; // hier wird eine Kopie des Strings erstellt (mit GetMem)
 P := PChar(S);  // hier gibt's keine erneute Kopie mehr
 S[2] := 'B';
 ShowMessage(P); // aBcdefg
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

var
  p1,
  p2,
  p3,
  p4: pointer;
  pc: pchar;
  s : string;
  c1,
  c2: char;
begin
{
pc ist unsere variable, die den zeiger kennt.

daß pc vom typen pchar also der enthaltene zeiger auf einen char zeigt, ist dabei unerheblich.

@pc gibt den offset auf die variable p, also unseren eigentlichen pointer auf pc.
pointer(pc) macht nen typcast in diesem fall und gibt uns den zeiger auf den char zurück.
also gilt pchar(pointer(pc)) = pc;
}
  s := 'TEST';

  pc := pchar(s);

  // p1 = p2 -> p1^ = p2^ = s[1];
  p1 := pointer(s); // zeiger von s -> char(p1^) = 'T'
  p2 := pointer(pc); // zeiger von pc -> char(p2^) = 'T'

  p3 := @s; // offset
  if p1 = pointer(p3^) then showmessage('gleich');
  p4 := @pc; // offset
  if p2 = pointer(p4^) then showmessage('gleich');

  // hier der beweis, daß der wert in der variable verändert wird,
  // aber der offset von pc nicht
  inc(pc);
  if @pc = p4 then showmessage('gleich');

  // ergo muß der compiler nix machen außer pc wie eine normale variable
  // z.B. integer, string etc. zu behandeln
end;					

1:
2:

S := S + #0;
p := @S[1];					

1:
2:

S := 'Hallo '+A+' und '+B+' '+IntToStr(I);
S := Format('Hallo %s und %s %d',[A,B,I]);					

1:
2:
3:

Zahl1 := StrToInt (copy (zeile,1,10));
Zahl2 := StrToInt (copy (zeile,11,10));
Zahl3 := StrToInt (copy (zeile,21,10));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

SemikolonPos := pos (';',Zeile);
HilfStr := copy (zeile,1,SemikolonPos-1); // String bis zum ersten Semikolon umkopieren
Zahl1 := StrToInt (copy (HilfStr,1,10));
delete (zeile,1,SemikolonPos);            // bereits umgewandelten TeilString entfernen.

SemikolonPos := pos (';',Zeile);
HilfStr := copy (zeile,1,SemikolonPos-1); 
// String bis zum jetzt ersten Semikolon umkopieren
Zahl2 := StrToInt (copy (HilfStr,1,10));
delete (zeile,1,SemikolonPos);            // bereits umgewandelten TeilString entfernen.

SemikolonPos := pos (';',Zeile);
HilfStr := copy (zeile,1,SemikolonPos-1); 
// String bis zum jetzt ersten Semikolon umkopieren
Zahl3 := StrToInt (copy (HilfStr,1,10));
delete (zeile,1,SemikolonPos);            // bereits umgewandelten TeilString entfernen.