- 648 名前：デフォルトの名無しさん mailto:sage [2009/06/22(月) 16:23:41 ]
- 楽しい。
type
TRecHoge = record
X: Integer;
Answer: string;
end;
function Hoge(value: Integer): TRecHoge;
var
returnValue: TRecHoge;
begin
if value = 1 then begin
returnValue.Answer := '戻り値をセットしました。';
Result := returnValue;
end;
end;
procedure HogeCall;
var
buf: TRecHoge;
begin
buf := Hoge(0);
ShowMessage(buf.Answer);
buf := Hoge(1);
ShowMessage(buf.Answer);
buf := Hoge(0);
ShowMessage(buf.Answer);
end;
