home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / mergestu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  495 b   |  25 lines
  1. unit MergeStU;
  2.  
  3. interface
  4. uses LPaU, IMiU, IMaU;
  5. function MergeStr(A, B: string; Lngth: integer): string;
  6.  
  7. implementation
  8.  
  9. function MergeStr;
  10. var I:                 integer;
  11.     Ch,
  12.     Ch2:               char;
  13. begin
  14. if Lngth = 0 then Lngth := IMax(length(A),length(B));
  15. if Lngth < 0 then Lngth := IMin(length(A),length(B));
  16. A := LPad(A,Lngth);
  17. B := LPad(B,Lngth);
  18. for I := 1 to Lngth do
  19.     if A[I] = ' ' then
  20.        A[I] := B[I];
  21. MergeStr := LPad(A,Lngth);
  22. end;
  23.  
  24. end.
  25.