보통 이런 기능을 필요로 하는 프로그램들이 종종 있습니다.

아래에서 얘기한것 처럼 FindComponent를 사용하는 것이 가장 일반적이구요,

다음과 같은 방법을 사용할 수도 있습니다.



TForm1 class의 private에 다음과 같이 선언합니다.



EditList: array [0..1, 1..9] of TEdit;



그리고 FormCreate 이벤트에서 다음과 같이 코딩합니다.



procedure TForm1.FormCreate(Sender: TObject);

var

i; Integer;

begin

for i := 1 to 2 do

for j := 1 to 9 do

EditList[i, j] := TEdit(FindComponent('Edit1' + IntToStr(i)));

end;



사용할 때는 다음과 같이 하면 됩니다.



for i := 0 to 9 do

begin

bae[0,i]:= EditList[0, i].Text;

bae[1,i]:= EditList[1, i].Text;

end;



초보유저 wrote:

> 이런것도 될런지 모르겠네요..

> edit11,edit12,edit13....//번호

> edit21,edit22,edit23....//이름

> 박스가 이렇게 있는데 데이터를 배열에 넣으려고 함니다.

> 아래와 같은 방법으로 하니까 인식을 못하더군요.asp에서 이런 비슷한게 있어서 해보았는데 다른 방법이 있습니까? 아니면 안되는 것입니까?

> 고수님들의 명쾌한 답볍을 부탁드립니다.

>

> 소스>>>>

>

> for i := 0 to 9 do

> begin

> bae[0,i]:= edit1 +'i'.text;

> bae[1,i]:= edit2 +'i'.text;

> end;

>

>

초보유저 wrote:

> 이런것도 될런지 모르겠네요..

> edit11,edit12,edit13....//번호

> edit21,edit22,edit23....//이름

> 박스가 이렇게 있는데 데이터를 배열에 넣으려고 함니다.

> 아래와 같은 방법으로 하니까 인식을 못하더군요.asp에서 이런 비슷한게 있어서 해보았는데 다른 방법이 있습니까? 아니면 안되는 것입니까?

> 고수님들의 명쾌한 답볍을 부탁드립니다.

>

> 소스>>>>

>

> for i := 0 to 9 do

> begin

> bae[0,i]:= edit1 +'i'.text;

> bae[1,i]:= edit2 +'i'.text;

> end;

>

>



bae[0,i] := TEdit(FindComponent('Edit1' + IntToStr(i))).Text;

컴포넌트를 배열식으로 인식하려면 Tag라는 속성을 사용하시면 됩니다.

혹시 VB써 보셨으면 컴포넌트를 복사해서 붙여넣을 때 배열식으로 생성하는게 있죠?

델파이에서는 Tag라는 속성을 사용하면 인식시킬수 있습니다.



아래의 소스는 메뉴의 Tag속성을 사용하여 선별해 내는 소스 입니다.

간단한 소스이니 보시면 금방 이해하실거예요..

우선 오브젝트 인스펙터에서 Tag속성을 먼저 지정해 주는거 잊지마시고요.. ^^



var

M: TMenuItem;

begin

m:= TMenuItem(Sender);

case m.Tag of

0: begin

Form1.Color := clRed;

end;

1: begin

Form1.Color := clGreen;

end;

2: begin

Form1.Color := clBlue;

end;

3: begin

Form1.Color := clYellow;

end;

end;





sk3958 wrote:

> 초보유저 wrote:

> > 이런것도 될런지 모르겠네요..

> > edit11,edit12,edit13....//번호

> > edit21,edit22,edit23....//이름

> > 박스가 이렇게 있는데 데이터를 배열에 넣으려고 함니다.

> > 아래와 같은 방법으로 하니까 인식을 못하더군요.asp에서 이런 비슷한게 있어서 해보았는데 다른 방법이 있습니까? 아니면 안되는 것입니까?

> > 고수님들의 명쾌한 답볍을 부탁드립니다.

> >

> > 소스>>>>

> >

> > for i := 0 to 9 do

> > begin

> > bae[0,i]:= edit1 +'i'.text;

> > bae[1,i]:= edit2 +'i'.text;

> > end;

> >

> >

>

> bae[0,i] := TEdit(FindComponent('Edit1' + IntToStr(i))).Text;