제가 만드는 폼에는 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 에 값이 안들어 오는군요..
> 제가 만드는 폼에는 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;
이렇게 함 될것 같은데요...
초보 뻐럭이가~~
도우이 되길 바라면서
즐코딩 하세요~~