FDELPHI 6
ポインタ型へのキャスト

みなさん、こんにちは。

Delphi1 で、以下のようなプログラムを書こうとしました。


function foo(p1: PChar; p2:PChar):Boolean;
begin
  Result := false;
  if ((p1 - p2) mod 2) = 0 then Result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var str: String;
    Index: Integer;
begin
  Index := 2;
  str := 'abc';
  if (Index > 2) and foo(PChar(Str), PChar(Str)+2) then
    Dec(Index, 2)
  else
    Inc(Index);
end;


ところが PChar(str) のところで、「型キャストが間違っています」というメッ
セージが出てしまいました。でも、Ｄ４だと、なんてことなくコンパイルできて
しまうんですよね。

単に文字列のアドレスを得たいだけなんですが、いったいどのように書けばよろ
しいのでしょうか。何が悪いのかお分かりの方、ご教示いただけると幸いです。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき