構造体を返す関数

明解Ｃ言語 入門編 > 12. 構造体 >

構造体を返す関数

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;
type

    TStudent = record

        name:   String;

        height: Integer;

        weight: Real;

end;
function hiroko(name:String; height:Integer; weight:Real):TStudent;

begin

    result.name   := name;

    result.height := height;

    result.weight := weight;

end;
procedure main();

var

    sanaka: TStudent;

begin

    Writeln(Format('氏名：%s', [sanaka.name]));

    Writeln(Format('身長：%d', [sanaka.height]));

    Writeln(Format('体重：%f', [sanaka.weight]));

    Writeln('');
    sanaka := hiroko('Sanaka', 175, 60.5);
    Writeln(Format('氏名：%s', [sanaka.name]));

    Writeln(Format('身長：%d', [sanaka.height]));

    Writeln(Format('体重：%f', [sanaka.weight]));

end;
begin

    main;

end.

実行結果

S:\>lesson095\project1.exe

氏名：

身長：1245120

体重：0.00
氏名：Sanaka

身長：175

体重：60.50