home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1998 March / pcx19_9803.iso / PC-XUSER / PC-XUSER.10 / OOP / CONVSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-10-15  |  1.2 KB  |  37 lines
  1. {*********************************************************}
  2. {                                                         }
  3. {   A program forráskódja az IDG - PCX szerkesztôségének, }
  4. {   és Bérczi László-nak a tulajdona.                     }
  5. {   A forráskód a kereskedelmi célokat kivéve szabadon    }
  6. {                    terjeszthetô !                       }
  7. {                                                         }
  8. {   PC-X User (c) 1997, november                          }
  9. {*********************************************************}
  10. program ConvertStringToCharArray;
  11.  
  12. procedure CopyStringToTMemo(AText: String; var ArraysLength: Word; var CharArray);
  13.  
  14.   function Min(A, B: Word): Word;
  15.   begin
  16.     if A < B then Min:=A
  17.              else Min:=B;
  18.   end;
  19.  
  20. var MinLen: Word;
  21. begin {IN: ArraysLength = SizeOf(CharArray), OUT = Length(AText) !!!}
  22.   MinLen:=Min(Word(Ord(AText[0])), ArraysLength);
  23.   ArraysLength:=MinLen;
  24.   Move(Mem[Seg(AText):Ofs(AText)+1], CharArray, MinLen);
  25. end;
  26.  
  27. var
  28.   A: Array[1..10] of Char;
  29.   S: String;
  30.   W: Word;
  31.  
  32. BEGIN
  33.   S:='Berczi Laszlo alias R4s';
  34.   W:=SizeOf(A);
  35.   CopyStringToTMemo(S, W, A); {IN : W SizeOf(CharArray)
  36.                                OUT: W Length of chars in CharArray}
  37. END.