Question

How to return multiple values from a function in Pascal

Answer 1

program ReturnMultipleValues;

type
    UserInfo = record
        Name: String;
        Age: Integer;
        Email: String;
    end;

function GetUserInfo(): UserInfo;
var
    info: UserInfo;
begin
    info.Name := 'Emma';
    info.Age := 42;
    info.Email := 'emma@email.com';
    GetUserInfo := info;
end;

var
    user: UserInfo;
begin
    user := GetUserInfo();
    WriteLn('Name: ', user.Name);
    WriteLn('Age: ', user.Age);
    WriteLn('Email: ', user.Email);
end.



(*
run:

Name: Emma
Age: 42
Email: emma@email.com

*)

 

70+ SQL courses for beginners and professionals