°í¼ö´Ôµé Áú¹® ÇϳªÇÒ°Ô¿ä.
Á¦°¡ Áö±Ý ¹®ÀÚ¿¡ ÄÞ¸¶(',')°¡ ÀÖÀ¸¸é ´ÙÀ½ ÁÙ·Î ¹Ù²Ù´Â °É ¸¸µé°í ½Í½À´Ï´Ù.
ÇÏ´Ù°¡ ¾ÈµÅ¼ ÀÌ·¸°Ô Áú¹®À» µå¸³´Ï´Ù.
¿¹¸¦ µé¾î¼ °ªÀÌ abcd,efgÀ̸é
abcd,
efg
ÀÌ·¸°Ô ¸»ÀÔ´Ï´Ù.
var
i, j : integer;
k : string
begin
k := 'abcd,efg'
for i = 0 to Length(k) do
begin
j := Pos( ',', k);
if ( j > 0 ) and
Insert( #13#10, k, j );
end;
end;
´ç¿¬È÷ ¿Ï¼ºÀº ¾Æ´Ï°í, ¾îÁ¦ºÎÅÍ 24½Ã°£ ÀÌ°ÍÀú°Í Çغ¸¾Æµµ ¾ÈµÇ¼ ÀÌ·¸°Ô ¿Ã¸³´Ï´Ù
Ä£ÀýÇÑ ´äº¯ ºÎŹµå¸³´Ï´Ù °í¼ö´Ôµé.