안녕하세요. 최용일입니다.



var

Index: Integer;

begin

Index := Pos('구 ', Edit3.Text); // Edit3.Text = '서울시 도봉구 쌍문동'



// Edit1.Text = '서울시 도봉구'

Edit1.Text := Copy(Edit3.Text, 1, Index + 1);



// Edit2.Text = '쌍문동'

Edit2.Text := Copy(Edit3.Text, Index+ 3, Length(Edit3.Text) - Index);

end;



^^ 항상 즐코하세요.



올랭이 wrote:

> 예를 들어 다음과 같은 화면이 있을때....

> --------------------------

> edit1 edit2 :

> button1 button2 :

> edit3 :

> -------------------------

> 위와 같이 있을때 edit1(서울시 도봉구)과 edit2(쌍문동)을 입력하고

> button1을 누르면 edit3에 들어갑니다.(물론 이거야 쉽지요..)

>

> 근데 문제는 button2를 누르면 이것(서울시 도봉구 쌍문동)을 분리 해서

> 다시 edit1과 edit2에 넣어 주는 거에요...............

>

> 요건 정말로 고수님들 아님 힘들것 같네요...

> 부디 좋은 답변을...

감사합니다.

매번 이렇게 신세만 지는 군요...

정말로 고맙구요...

다음(?)에도 부탁드립니다..



글구, 참 형식이 매우 궁금 하거든요...



pos의 형식이랑,,,

copy의 형식이요...



이것두 부탁드립니다.

안녕하세요. 최용일입니다.



헬프에 보시면 자세히 나와 있습니다.



// S에서 Substr을 찾아서 그 위치를 알려준다.

function Pos(Substr: string; S: string): Integer;



// S의 Index번째부터 Count갯수만큼 잘라서 돌려준다.

function Copy(S; Index, Count: Integer): string;



^^ 항상 즐코하세요.



올랭이 wrote:

> 감사합니다.

> 매번 이렇게 신세만 지는 군요...

> 정말로 고맙구요...

> 다음(?)에도 부탁드립니다..

>

> 글구, 참 형식이 매우 궁금 하거든요...

>

> pos의 형식이랑,,,

> copy의 형식이요...

>

> 이것두 부탁드립니다.