喫茶XRAYトップページ
[12240]
絶対アドレス-absolute 指令
返信
削除
2018/9/8 (土) 11:04:59
Mr.XRAY
[ UDPで数値データを送りたいのですが ]
http://
madia.
world.
coocan.
jp/
cgi-
bin/
DelphiBB
S/
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.
embarcad
ero.
com/
RADStudi
o/
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