|
ｿｽ@ｿｽｿｽrecordｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Red 2010/02/23(ｿｽｿｽ) 10:36:11
recordｿｽ^ｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽLｿｽﾌようｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
Bag.Valueｿｽｿｽ0ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
BagResetｿｽｿｽﾊゑｿｽｿｽﾄゑｿｽABag.Value=123ｿｽﾌままのようｿｽﾅゑｿｽｿｽB
ｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽｿｽｿｽLｿｽﾅはどゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
type
TBag = record
Value: integer;
end;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private ｿｽ骭ｾ }
Bag: Tbag;
procedure BagReset(B: TBag);
public
{ Public ｿｽ骭ｾ }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BagReset(B: TBag);
begin
B.Value := 0;
caption := inttostr(Bag.Value);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Bag.Value := 123;
BagReset(Bag);
end;
Red 2010/02/23(ｿｽｿｽ) 10:39:01
ｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽAｿｽﾂ具ｿｽｿｽﾍ、WinXP Delphi6 PersonalｿｽﾅゑｿｽｿｽB
Quest 2010/02/23(ｿｽｿｽ) 11:15:51
procedure BagReset(B: TBag);
ｿｽｿｽｿｽｿｽｿｽ
procedure BagReset(var B: TBag);
ｿｽﾉゑｿｽｿｽｿｽｿｽOKｿｽﾅゑｿｽｿｽB
Red 2010/02/23(ｿｽｿｽ) 11:27:54
Questｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾗ具ｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽ@ｿｽがｿｽｿｽｿｽｿｽﾎゑｿｽｿｽwｿｽｿｽｿｽ閧ｦｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
