한아영 wrote:

> edit1.text := strlist1[i];

> 위와같이하면 에러가나고

> Label1.caption := strlist1[i];

> 하면 이상이없는데 저는 꼭 editbox에 문자열을 받아와야 하는데 어떻게

> 해야하나요?

> 답변 부탁드립니다.

>

> strlist1는 Tstringlist입니다.



아마 루프를 돌릴때 List item bound error가 나신거 같은데

(strList1.Count -1)를 사용해서 배열의 첨자를 넘지 않게 해야 합니다.



procedure TForm1.FormShow(Sender: TObject);

var

strList1 : Tstringlist;

nIndex : integer;

begin

strList1 := TStringList.Create();

strList1.Add('strList0');

strList1.Add('strList1');

strList1.Add('strList2');

strList1.Add('strList3');

strList1.Add('strList4');

strList1.Add('strList5');



for nIndex := 0 to strList1.Count -1 do begin

Edit1.Text := strList1[nIndex];

Label1.Caption := strList1[nIndex];

end;



strList1.Free();

end;