Wolfgang Chien's Homepage | Delphi¾Ç²ßµ§°O - °Ýµª½g |
DELPHI¬O§_¦³¹³VB¤@¯ëRIGHT,LEFT,MIDµ¥«ü¥O,·Ð½Ð¸Ñµª,ÁÂÁÂ!
Copy() À³¸Ó¬O¹ïÀ³ VB Mid$() ªº¨ç¼Æ, ¦Ü©ó Right$(), Left$(), ¥i¥H¥Î Copy() ÅܤƥX¨Ó. ±z¥i¥H°Ñ¦Ò¥H¤Uªºµ{¦¡¬q:
(* -------------------------------------------------- *) (* RightStr (* ======= (* ¨ú¦r¦êªº¥kÃäY¤z¦r¤¸ (* -------------------------------------------------- *) function RightStr(const sAString: string; iCount: integer): string; var iLen: integer; begin iLen := Length(sAString); if iCount > iLen then iCount := iLen; Result := Copy(sAString, iLen - iCount + 1, iCount); end; { RightStr } (* -------------------------------------------------- *) (* LeftStr (* ======= (* ¨ú¦r¦êªº¥ªÃäY¤z¦r¤¸ (* -------------------------------------------------- *) function LeftStr(const sAString: string; const iCount: integer): string; begin Result := Copy(sAString, 1, iCount); end; { LeftStr }
¦pªG±zn¥H¤¤¤å¦r¬°³æ¦ì, ¦b 2.0 ¤¤¤åÀ³¥Î²Õ¥ó¤¤¤]¦³ AnsiStrCCopy()»PAnsiCopy()¥i¥HÀ³¥Î.
³oÃþ¦r¦ê¨ç¼Æ(¹³¬OPadR, PadL)¦Û¤v½m²ß¼g¼g¬Ý¨ä¹ê¤]®¼¦³½ìªº; ¦pªG«æµÛn¥Î, Ãþ¦ü³o¼Ë¤lªº¦r¦ê³B²z¨ç¼ÆÀ]¦bºô¸ô¤W¤£¤Ö, ¨Ò¦p Delphi 2.0 ²`«×¾úÀI´N¦³¤@Ó¥s°µ XProc ªºÀÉ®×, ùØÀY´N¦³«Ü¦h.
º¶ | ¾Ç²ßµ§°O | ¥DÃD¤½¶é | ³nÅé¤U¸ü | Ãö©ó¥»¯¸ | °Q½×«H¸s | ¬Û¬ù¤U¦¸ |