home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 6.ddi / TASMEXMP.ZIP / VAREXCH.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-10  |  1.1 KB  |  39 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. procedure Exchange(var Var1,Var2; Count : Word); far; external;
  15. {$L XCHANGE.OBJ}
  16. begin
  17.   with OldEmployee do
  18.   begin
  19.     Name := 'John Smith';
  20.     Address := '123 F Street';
  21.     City := 'Scotts Valley';
  22.     State := 'CA';
  23.     Zip := '90000-0000';
  24.   end;
  25.   with NewEmployee do
  26.   begin
  27.     Name := 'Mary Jones';
  28.     Address := '9471 41st Avenue';
  29.     City := 'New York';
  30.     State := 'NY';
  31.     Zip := '10000-1111';
  32.   end;
  33.   Writeln('Before: ',OldEmployee.Name,'  ',NewEmployee.Name);
  34.   Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
  35.   Writeln('After:  ',OldEmployee.Name,'  ',NewEmployee.Name);
  36.   Exchange(OldEmployee,NewEmployee,sizeof(OldEmployee));
  37.   Writeln('After:  ',OldEmployee.Name,'  ',NewEmployee.Name);
  38. end.
  39.