モナーの *やさしい* Delphi質問スレ Ver.5
■ このスレッドは過去ログ倉庫に格納されています
0736デフォルトの名無しさん
NGNGprocedure Hoge(const Value: Integer);
var
P: PInteger;
begin
P := @Value;
P^ := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
I := 100;
Hoge(I);
Caption := IntToStr(I);
end;
■ このスレッドは過去ログ倉庫に格納されています