Guest User

Untitled

a guest
Mar 22nd, 2018
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.82 KB | None | 0 0
  1. void connect_default(int* errorcode)
  2. {
  3. // Connects the default user and places any error code in errorcode
  4. }
  5.  
  6. void connect(char user[129], char password[129], int* errorcode)
  7. {
  8. // Connects the given user and places any error code in errorcode
  9. }
  10.  
  11. program pascaltest(INPUT, OUTPUT);
  12. procedure connect_default(var errorcode: integer); external;
  13.  
  14. var
  15. errorcode : integer := 0;
  16.  
  17. begin
  18. connect_default(errorcode);
  19. if errorcode <> 0 then
  20. writeln('Failed to connect with error code ', errorcode);
  21. end.
  22.  
  23. program pascaltest(INPUT, OUTPUT);
  24. procedure connect(user : string, password : string, var errorcode: integer); external;
  25.  
  26. var
  27. errorcode : integer := 0;
  28.  
  29. begin
  30. connect('MyUser', 'MyPassword', errorcode);
  31. if errorcode <> 0 then
  32. writeln('Failed to connect with error code ', errorcode);
  33. end.
Add Comment
Please, Sign In to add comment