モナーの *やさしい* Delphi質問スレ Ver2
■ このスレッドは過去ログ倉庫に格納されています
0449432
NGNGtype
PRec = ^TRec;
TRec = packed record
aaa,bbb : char;
end;
procedure TForm1.SetEditStr(const Value: string);
var
Rec : PRec;
A : string;
begin
A := 'HOGE';
Rec := @A[1];
ShowMessage(Rec.aaa);
やっぱりpacked忘れないでね（詳しくはHELPを
■ このスレッドは過去ログ倉庫に格納されています