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

procedure TForm1.SkipSpaces(var locPtr: PChar);
begin

  if not assigned( locPtr ) then
    raise exception.Create('Pointer NULL');

  while (assigned(locPtr)) and (isSpace(Byte(locPtr^))) do
    locPtr := PChar ( locPtr + SizeOf(Char) );

end;					

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

Function PointToElement(var locPtr: PChar): Boolean;
begin
  result := False;
  for i:=Low(Ar) to High(Ar) do
   if @locPtr^ = @Ar[i] then begin
      result := True;
      Break;
  end;
end;
  
  // if (@locPtr^ >= @Ar[Low(Ar)]) AND (@Ar[High(Ar)] >= @locPtr^) then
  // Diese Variante Funktionierte aufgrund der Operatoren nicht (kam man soviel ich weiß
  // in Delphi nicht selbst überladen bzw. implementieren), man könnte allerdings den
  // Zeiger in eine Int typecasten und die Dezimalwertigkeit in einer Menge überprüfen
  // möglicherweise eine alternative					

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:

var
  test: array of char;
  pc: pchar;
  i: integer;
begin
  setlength(test, 2);
  test[0] := 'H';
  test[1] := 'i';

  pc := @test[0];

  for i := Low(test) to high(test) do
  begin
    if pchar(@test[i]) = pc then begin
      showmessage('valid');
    end;
    inc(pc);
  end;

  pc := @test[0];

  if (pc >= pchar(@test[low(test)])) and (pc <= pchar(@test[high(test)])) then
  begin
    showmessage('works');
  end;
end;