안녕하세요

청개구리 남기석입니다.



폼에 버튼하나와 리스트박스 하나를 올려 놓고

버튼 클릭시에 다음과 같이 코딩하세요...

실행해 보시면 Space 단위로 잘려서 ListBox1에 입력된 것을

볼수 있을 것입니다.

더 좋은 방벙이 있을 것도 같은데...졸려서리....더는 생각이 안 나는군요...



행복하세요...



procedure TForm1.Button1Click(Sender: TObject);

var

sTemp : string;

sToken : string;

iPos : integer;

begin

sTemp := InputBox('입력하세요', '자료를 입력하세요', '');



Repeat

iPos := pos( ' ', sTemp );

if iPos = 0 then

begin

iPos := Length( sTemp );

sToken := sTemp;

end else

sToken := Copy( sTemp, 1, iPos-1 );



ListBox1.Items.Add( sToken );



Delete( sTemp, 1, iPos );



until Trim(sTemp) = '';

end;



================================================================================



metald. wrote:

> inputbox로 받은 문자열을 space단위로 token하고 싶은데

> 어떻게 하면 될지 난감하군요.

>

>