Q&A

  • TEdit에 관해..
제가 만드는 폼에는 EditBox 가 50개가 있습니다..

Edit1,Edit2..... Edit50 이렇게 있는데..

제가 DB에서 데이터를 Select 해서...

EditBox 에 Select해 온 값을 넣으려고 하거든요..

For 문을 돌려서..



For i := 1 to RecordCount do

begin

for i := 1 to RecordCount do

begin

index := inttostr(i);

M_Edit[i] := TEdit(FindComponent('Edit' + index));

M_Edit[i].text := Fieldbyname('Ip').asString;

next;

end;

end;



이런 식으로요.. 했느느데요..

안돼는 군요.. 뭐가 틀렸나요..

물론 M_Edit는 이 전에.. M_Edit array[0..50] of TEdit; 이렇게 선언해 줬는데요..

뭐가 잘못 됐는지.. 아시는 분은 좀.. 가르쳐 주십시요..

EditBox 에 값이 안들어 오는군요..



3  COMMENTS
  • Profile
    뻐록이 2001.02.22 20:34
    델파초짜.. wrote:

    > 제가 만드는 폼에는 EditBox 가 50개가 있습니다..

    > Edit1,Edit2..... Edit50 이렇게 있는데..

    > 제가 DB에서 데이터를 Select 해서...

    > EditBox 에 Select해 온 값을 넣으려고 하거든요..

    > For 문을 돌려서..

    >

    > For i := 1 to RecordCount do

    > begin

    > for i := 1 to RecordCount do

    > begin

    > index := inttostr(i);

    > M_Edit[i] := TEdit(FindComponent('Edit' + index));

    > M_Edit[i].text := Fieldbyname('Ip').asString;

    > next;

    > end;

    > end;

    >

    > 이런 식으로요.. 했느느데요..

    > 안돼는 군요.. 뭐가 틀렸나요..

    > 물론 M_Edit는 이 전에.. M_Edit array[0..50] of TEdit; 이렇게 선언해 줬는데요..

    > 뭐가 잘못 됐는지.. 아시는 분은 좀.. 가르쳐 주십시요..

    > EditBox 에 값이 안들어 오는군요..

    >



    질문의 요지가 먼지 모르겠군요~

    혹시

    db를 읽어서

    첫번째 값은 edit1에 두번째값은 edit2에 들어 가야 하나요??



    그렇다면 m_edit 를 배열로 잡은 것을 삭제 하시구요

    >

    var

    M_edit : Tedit;

    index : String;

    begin

    for i := 1 to RecordCount do

    begin

    index := inttostr(i);

    M_Edit := TEdit(FindComponent('Edit' + index));

    M_Edit.text := Fieldbyname('Ip').asString;

    next;

    end;

    end;



    이렇게 함 될것 같은데요...

    초보 뻐럭이가~~



    도우이 되길 바라면서

    즐코딩 하세요~~



  • Profile
    델파초짜.. 2001.02.22 20:45
    님께서 말씀하신 방법이.. 안돼는데.. 요... ^^;;

    내가 뭘 잘못 하고 있는 것일까???

    ^^;; 흠.. 질문의 요지는 정확했는데....

    이번엔... 될것같은 방법 말고.. 되는 방법으로좀.. ^^;;



    뻐록이 wrote:

    > 델파초짜.. wrote:

    > > 제가 만드는 폼에는 EditBox 가 50개가 있습니다..

    > > Edit1,Edit2..... Edit50 이렇게 있는데..

    > > 제가 DB에서 데이터를 Select 해서...

    > > EditBox 에 Select해 온 값을 넣으려고 하거든요..

    > > For 문을 돌려서..

    > >

    > > For i := 1 to RecordCount do

    > > begin

    > > for i := 1 to RecordCount do

    > > begin

    > > index := inttostr(i);

    > > M_Edit[i] := TEdit(FindComponent('Edit' + index));

    > > M_Edit[i].text := Fieldbyname('Ip').asString;

    > > next;

    > > end;

    > > end;

    > >

    > > 이런 식으로요.. 했느느데요..

    > > 안돼는 군요.. 뭐가 틀렸나요..

    > > 물론 M_Edit는 이 전에.. M_Edit array[0..50] of TEdit; 이렇게 선언해 줬는데요..

    > > 뭐가 잘못 됐는지.. 아시는 분은 좀.. 가르쳐 주십시요..

    > > EditBox 에 값이 안들어 오는군요..

    > >

    >

    > 질문의 요지가 먼지 모르겠군요~

    > 혹시

    > db를 읽어서

    > 첫번째 값은 edit1에 두번째값은 edit2에 들어 가야 하나요??

    >

    > 그렇다면 m_edit 를 배열로 잡은 것을 삭제 하시구요

    > >

    > var

    > M_edit : Tedit;

    > index : String;

    > begin

    > for i := 1 to RecordCount do

    > begin

    > index := inttostr(i);

    > M_Edit := TEdit(FindComponent('Edit' + index));

    > M_Edit.text := Fieldbyname('Ip').asString;

    > next;

    > end;

    > end;

    >

    > 이렇게 함 될것 같은데요...

    > 초보 뻐럭이가~~

    >

    > 도우이 되길 바라면서

    > 즐코딩 하세요~~

    >

  • Profile
    뻐록이 2001.02.22 21:14
    델파초짜.. wrote:

    > 님께서 말씀하신 방법이.. 안돼는데.. 요... ^^;;

    > 내가 뭘 잘못 하고 있는 것일까???

    > ^^;; 흠.. 질문의 요지는 정확했는데....

    > 이번엔... 될것같은 방법 말고.. 되는 방법으로좀.. ^^;;

    >

    > 뻐록이 wrote:

    > > 델파초짜.. wrote:

    > > > 제가 만드는 폼에는 EditBox 가 50개가 있습니다..

    > > > Edit1,Edit2..... Edit50 이렇게 있는데..

    > > > 제가 DB에서 데이터를 Select 해서...

    > > > EditBox 에 Select해 온 값을 넣으려고 하거든요..

    > > > For 문을 돌려서..

    > > >

    > > > For i := 1 to RecordCount do

    > > > begin

    > > > for i := 1 to RecordCount do

    > > > begin

    > > > index := inttostr(i);

    > > > M_Edit[i] := TEdit(FindComponent('Edit' + index));

    > > > M_Edit[i].text := Fieldbyname('Ip').asString;

    > > > next;

    > > > end;

    > > > end;

    > > >

    > > > 이런 식으로요.. 했느느데요..

    > > > 안돼는 군요.. 뭐가 틀렸나요..

    > > > 물론 M_Edit는 이 전에.. M_Edit array[0..50] of TEdit; 이렇게 선언해 줬는데요..

    > > > 뭐가 잘못 됐는지.. 아시는 분은 좀.. 가르쳐 주십시요..

    > > > EditBox 에 값이 안들어 오는군요..

    > > >

    > >

    > > 질문의 요지가 먼지 모르겠군요~

    > > 혹시

    > > db를 읽어서

    > > 첫번째 값은 edit1에 두번째값은 edit2에 들어 가야 하나요??

    > >

    > > 그렇다면 m_edit 를 배열로 잡은 것을 삭제 하시구요

    > > >

    > > var

    > > M_edit : Tedit;

    > > index : String;

    > > begin

    > > for i := 1 to RecordCount do

    > > begin

    > > index := inttostr(i);

    > > M_Edit := TEdit(FindComponent('Edit' + index));

    > > M_Edit.text := Fieldbyname('Ip').asString;

    > > next;

    > > end;

    > > end;

    > >

    > > 이렇게 함 될것 같은데요...

    > > 초보 뻐럭이가~~

    > >

    > > 도우이 되길 바라면서

    > > 즐코딩 하세요~~

    > >















    //님 지송 합니다 지가 초보다 보니

    에구~~~~~~

    var

    > comp: TComponent;

    > edComp: TEdit;

    > begin

    with query1 do

    begin

    > for i:=1 to RecordCount do begin

    > comp := findcomponent('Edit'+inttostr(i));

    > edComp := comp as TEdit;

    > edcomp.text := Fieldbyname('Ip').asString;

    next;

    > end;

    end;

    > end;



    이번에두 안 될려나.......

    안 되면 사기당

    그럼 수고 하세요~~~~~

    즐코딩 하세요