Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- void connect_default(int* errorcode)
- {
- // Connects the default user and places any error code in errorcode
- }
- void connect(char user[129], char password[129], int* errorcode)
- {
- // Connects the given user and places any error code in errorcode
- }
- program pascaltest(INPUT, OUTPUT);
- procedure connect_default(var errorcode: integer); external;
- var
- errorcode : integer := 0;
- begin
- connect_default(errorcode);
- if errorcode <> 0 then
- writeln('Failed to connect with error code ', errorcode);
- end.
- program pascaltest(INPUT, OUTPUT);
- procedure connect(user : string, password : string, var errorcode: integer); external;
- var
- errorcode : integer := 0;
- begin
- connect('MyUser', 'MyPassword', errorcode);
- if errorcode <> 0 then
- writeln('Failed to connect with error code ', errorcode);
- end.
Add Comment
Please, Sign In to add comment