home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / TAUSTAUS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-09  |  1.2 KB  |  43 lines
  1. program TestAustausch ;
  2.  
  3. type
  4.   ArbeiterInfo = record
  5.                    Name     : STRING[30] ;
  6.                    Adresse  : STRING[30] ;
  7.                    Stadt    : STRING[15] ;
  8.                    Land     : STRING[2] ;
  9.                    Telefon  : STRING[10] ;
  10.                  end ;
  11.  
  12. var
  13.   Arbeiter1, Arbeiter2 : ArbeiterInfo ;
  14.  
  15. {$F+}
  16.  
  17. procedure Austausch ( VAR Var1, Var2 ; Anzahl : WORD ) ; external ;
  18. {$L AUSTAUS.OBJ}
  19. {$F-}
  20. begin
  21.   with Arbeiter1 DO
  22.     begin
  23.       Name := 'Erwin Neger' ;
  24.       Adresse := 'Siebernbuschstr. 43' ;
  25.       Stadt := 'Rosenheim 66' ;
  26.       Land := '09' ;
  27.       Telefon := '7812165' ;
  28.     end ;
  29.   with Arbeiter2 DO
  30.     begin
  31.       Name := 'Trude Müller' ;
  32.       Adresse := 'Feldwegerich 2' ;
  33.       Stadt := 'Biensheim 4' ;
  34.       Land := '02' ;
  35.       Telefon := '3214432';
  36.     end ;
  37.   WriteLn ( 'Vorher: ', Arbeiter1.Name, '  ', Arbeiter2.Name ) ;
  38.   Austausch ( Arbeiter1, Arbeiter2, sizeof ( Arbeiter1 ) ) ;
  39.   WriteLn ( 'Vorher: ', Arbeiter1.Name, '  ', Arbeiter2.Name ) ;
  40.   Austausch ( Arbeiter1, Arbeiter2, sizeof ( Arbeiter1 ) ) ;
  41.   WriteLn ( 'Vorher: ', Arbeiter1.Name, '  ', Arbeiter2.Name ) ;
  42. end.
  43.