home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / fixnamu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  678 b   |  34 lines
  1. unit FixNamU;
  2.  
  3. interface
  4. uses Def, StriU;
  5. procedure FixName( var Temp: S40);
  6.  
  7. implementation
  8.  
  9. procedure FixName;                         (* change last name first to *)
  10. var Komma,                                 (* first name first *)
  11.     Start,
  12.     Final,
  13.     X,
  14.     I:                  integer;
  15.     Hold:               S40;
  16. begin
  17. Temp := Strip(Temp);
  18. X := pos(';',Temp);
  19. if X <> 0 then
  20.    begin
  21.    Komma := X;
  22.    Final := ord(Temp[0]);
  23.    (* dec(Final); *)
  24.    Start := succ(Komma);
  25.    Hold := Strip(copy(Temp,Start,Final+1-Start)) + ' ' +
  26.            Strip(copy(Temp,1,pred(Komma)));
  27.    Temp := '';
  28.    Temp := Strip(Hold);
  29.    end;
  30. end;
  31.  
  32. end.
  33. 
  34.