喫茶XRAY [Mr.XRAY掲示板]

本当にゴメンナさい．
Char 型の動的配列の初期化のコード，間違えていました．
Pointer を使用する説明を書いておこう思ってコードを眺めていて気づきました．
みんな私が悪いんです．みんな私のせいなんです．

//=============================================================================
//  Char型の動的配列の初期化の確認
//  正しいコード
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LString  : String;
  LpBuffer : TCharArray;
  LText    : string;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;

  LString  := '日本語 ABC';
  LpBuffer := LString.ToCharArray;

  FillChar(Pointer(LpBuffer)^, Length(LpBuffer) * SizeOf(Char), #0);

  for LIndex := 0 to Length(LpBuffer) - 1 do begin
    LText := IntToStr(LIndex) + ' : ' + LpBuffer[LIndex];
    Memo1.Lines.Add(LText);
  end;
end;

//=============================================================================
//  Char型の動的配列の初期化の確認
//  FillChar関数の使用方法が間違っているコード
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LString  : String;
  LpBuffer : TCharArray;
  LText    : string;
  LIndex   : Integer;
begin
  Memo1.Lines.Clear;

  LString  := '日本語 ABC';
  LpBuffer := LString.ToCharArray;

  FillChar(Pointer(LpBuffer)^, SizeOf(LpBuffer), #0);

  for LIndex := 0 to Length(LpBuffer) - 1 do begin
    LText := IntToStr(LIndex) + ' : ' + LpBuffer[LIndex];
    Memo1.Lines.Add(LText);
  end;
end;