喫茶XRAYトップページ


[12240] 絶対アドレス-absolute 指令返信 削除
2018/9/8 (土) 11:04:59 Mr.XRAY
[ UDPで数値データを送りたいのですが ]
http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201809/18090003.txt

> aryStr   : string absolute aryByte;

こういうのであれば可能ですね.

procedure TForm1.Button2Click(Sender: TObject);
const
  ArySize = 26;
var
  aryByte : array [0..ArySize - 1] of byte;
  aryStr  : array [0..ArySize - 1] of AnsiChar absolute aryByte;
  LIndex  : Integer;
begin
  //バイト配列にASCII文字バイト値を代入
  //A-Zの文字
  for LIndex := Low(aryByte) to High(aryByte) do begin
    aryByte[LIndex] := $41 + Byte(LIndex);
  end;

  //absoluteなのでChar配列にバイトデータの文字が入っている
  Memo1.Lines.Add(string(aryStr));
end;

[参考]
変数(Delphi)- 絶対アドレス - RAD Studio
http://docwiki.embarcadero.com/RADStudio/Berlin/ja/%E5%A4%89%E6%95%B0%EF%BC%88Delphi%EF%BC%89#.E7.B5.B6.E5.AF.BE.E3.82.A2.E3.83.89.E3.83.AC.E3.82.B9



INCM/CMT
Cyclamen v3.82