Jonny wrote:

> 리스트박스에서 스트링리스트들을 읽어 올때 스페이스 다음 부터 읽을 수 없을 까요...?

> 초보라서 잘 모르겠네요.... 부탁 드립니다.

> 예를 들어 리스트박스에

> C:temp a.tmp a.tmp

> C:document doc.doc ---> doc.doc

> c: config.sys config.sys

>

> 감사합니다....



for루프로 문자열을 한자씩 읽어들여서.. 스페이스문자가 발견되면 나머지 문자열을

읽어들이면 되겠네요.



for i:0 to StrSize-1 to do

begin

tmp:=copy(Str, ...);

if tmp=#32 then

SpacePos:=pos(......)

end;



for SpacePos to .. do

....



머.. 이런식이 되겠네요..

리스트박스1에서 리스트박스2로 스페이스 이후를 옮기는 예제입니다..

너무 긴가요..^^; ...응용하시면 짧게 할수도..



procedure TFormCommon.bbtnAcceptClick(Sender: TObject);

var i , istart, iend: integer;

stemp :string;

begin

for i := 0 to ListBox1.Items.Count -1 do begin

istart := pos(' ', ListBox1.Items[i]);

iend := length(ListBox1.Items[i]) - istart + 1;

stemp := copy(ListBox1.Items[i],istart, iend);

ListBox2.Items.add(trim(stemp));

end;

end;





Jonny wrote:

> 리스트박스에서 스트링리스트들을 읽어 올때 스페이스 다음 부터 읽을 수 없을 까요...?

> 초보라서 잘 모르겠네요.... 부탁 드립니다.

> 예를 들어 리스트박스에

> C:temp a.tmp a.tmp

> C:document doc.doc ---> doc.doc

> c: config.sys config.sys

>

> 감사합니다....

안녕하세요

청개구리 남기석( http://www.delphitravel.com )입니다.



어제도 이 비슷한 걸 질문하신 분이 있었는데....



Pos 를 이용하시면 가능합니다...



var

iPos : integer;

sTemp : string;

sStr : string;

begin

sTemp := ListBox1.Items[0]; // 'C:temp a.tmp'

iPos := Pos( ' ', sTemp ); // Space가 있으면 Space의 위치를 가져온다.

if iPos <> 0 then // iPos 가 0 이면 Space가 없다는 얘기...

sStr := Copy( sTemp, iPos+1, Length(sTemp)-iPos ) // Space 다음부터 Copy

else

sStr := sTemp; // Space가 없으면... sTemp를 그냥 가져 온다...



ShowMessage( sStr );

end;



제 이름으로 검색해 보시면...

Token 이라는 글이 제목에 들어가 있는 답변이 있을겁니다.

그것도 참고하세요....



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

Jonny wrote:

> 리스트박스에서 스트링리스트들을 읽어 올때 스페이스 다음 부터 읽을 수 없을 까요...?

> 초보라서 잘 모르겠네요.... 부탁 드립니다.

> 예를 들어 리스트박스에

> C:temp a.tmp a.tmp

> C:document doc.doc ---> doc.doc

> c: config.sys config.sys

>

> 감사합니다....