home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l224 / 2.img / CHAPXMPL.ZIP / XCHANGE.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-10-29  |  1.1 KB  |  42 lines
  1. program TextExchange;
  2.  
  3. type
  4.   EmployeeRecord = record
  5.                      Name    :  string [30];
  6.                      Address :  string [30];
  7.                      City    :  string [15];
  8.                      State   :  string [2];
  9.                      Zip     :  string [10];
  10.                     end ;
  11. var
  12.   OldEmployee, NewEmployee : EmployeeRecord;
  13.  
  14. {$F+}
  15.  
  16. procedure Exchange(var var1,var2; count : word); external;
  17. {$L XCHANGE.OBJ}
  18. {$F-}
  19. begin
  20.   with OldEmployee do
  21.   begin
  22.     Name := 'John Smith';
  23.     Address := '123 F Street';
  24.     City := 'Scotts Valley';
  25.     State := 'CA';
  26.     Zip := '90000-0000';
  27.   end;
  28.   with NewEmployee do
  29.   begin
  30.     Name := 'Mary Jones';
  31.     Address := '9471 41st Avenue';
  32.     City := 'New York';
  33.     State := 'NY';
  34.     Zip := '10000-1111';
  35.   end;
  36.   Writeln('Before: ',OldEmployee.Name,'  ',NewEmployee.Name);
  37.   Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
  38.   Writeln('After:  ',OldEmployee.Name,'  ',NewEmployee.Name);
  39.   Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
  40.   Writeln('After:  ',OldEmployee.Name,'  ',NewEmployee.Name);
  41. end.
  42.