home *** CD-ROM | disk | FTP | other *** search
/ Prima Shareware 3 / DuCom_Prima-Shareware-3_cd1.bin / PROGRAMO / PASCAL / STRINGS / READ.ME next >
Encoding:
Text File  |  1991-04-28  |  2.3 KB  |  87 lines
  1.         Roz¿í⌐ení procedur a funkcí pro práci s ⌐etêzci
  2.         -----------------------------------------------
  3.     
  4. Tato jednotka obsahuje nêkteré roz¿i⌐ující funkce a procedury
  5. pro práci s ⌐etêzci pro Turbo Pascal 4.0. Kvûli rychlosti byla
  6. napsána v assembleru.
  7.  
  8. Pokud se vám poda⌐í najít nêjaké chyby, prosím informujte mne o
  9. nich p⌐es BROGA forum nebo EASYPLEX.
  10.  
  11.            Jan St Martin
  12.  
  13.  
  14. ----------------------------------------------------------------
  15.  
  16.  ExtractForCount
  17.  
  18. Deklarace
  19. target_str := 
  20.   ExtractForCount(source_string, sizeof(target_string, start_pos)
  21.  
  22. Popis:
  23.     Tato funkce p⌐enese 'n' znakû ze zdrojového do cílového
  24. ⌐etêzce. P⌐ená¿ené znaky zaçínají ukazatelem start_pos ve
  25. zdrojovém ⌐etêzci. Po p⌐enesení jsou p⌐íslu¿né znaky vypu¿têny
  26. ze zdrojového ⌐etêzce.
  27.  
  28.   ExtractToChar
  29.  
  30. Deklarace
  31. target_str := 
  32.   ExtractToChar(source_str, sizeof(target_str), search_char)
  33.     
  34. Popis:
  35.     Tato funkce p⌐ená¿í znaky ze zdrojového do cílového
  36. ⌐etêzce aæ do té doby, dokud nenalezne znak stejnÿ se
  37. search_char. Jakmile je tento znak nalezen, p⌐enos skonçí,
  38. p⌐içemæ se search_char nep⌐ená¿í. P⌐enesené znaky jsou vypu¿têny
  39. ze zdrojového ⌐etêzce. 
  40.  
  41.   Translate
  42.  
  43. Deklarace
  44.   Translate(str_to_translate, translate_table);
  45.  
  46. Popis:
  47.     Tato procedura p⌐eloæí ⌐etêzec str_to_translate podle
  48. 256-znakové p⌐ekladové tabulky translate_table. P⌐ekladová tabulka
  49. je 256 bajtû dlouhá.
  50.  
  51.   PadLeft
  52.  
  53. Deklarace
  54.   PadLeft(string, sizeof(string), new_length, pad_char);
  55.  
  56. Popis:
  57.     Tato procedura vkládá znak pad_char na první pozici
  58. ⌐etêzce tak dlouho, dokud se jeho délka nerovná new_length nebo
  59. dokud ⌐etêzec nedosáhne své maximální moæné délky.
  60.  
  61.   PadRight
  62.  
  63. Deklarace
  64.   PadRight(string, sizeof(string), new_length, pad_char);
  65.  
  66. Popis:
  67.     Tato procedura vkládá znak pad_char na poslední pozici
  68. ⌐etêzce tak dlouho, dokud se jeho délka nerovná new_length nebo
  69. ⌐etêzec nedosáhne své maximální délky.
  70.  
  71.   Uppercase
  72.  
  73. Deklarace
  74.   target_str := Uppercase (source_str);
  75.  
  76. Popis:
  77.     Tato funkce konvertuje kaædÿ znak v rozsahu 'a..z' ze
  78. zdrojového ⌐etêzce source_string na p⌐íslu¿né velké písmeno a
  79. umístí ho do cílového ⌐etêzce target_string. 
  80.  
  81.   StringOf
  82.  
  83. Deklarace
  84.   target_str := StringOf (pad_char, string_len);
  85.  
  86. Popis:
  87.     Tato funkce vytvo⌐í ⌐etêzec obsahující pad_char.