darkzic wrote:

> 안녕하세요... 전 이제 델파이를 시작한... 학생이랍니다.

> 그런데... 공부하는데 많은 어려움이 있네요.....ㅠ.ㅠ

> 주위에 델파이를 하는 사람이 없어.. 물어보기도 넘 힘들구요.... 책을 봐도 잘 모르겠고요 좋은책좀 소개해주세요

> 글구요... 지금 짜는 프로그램에 있는되요... 안되는 것이 있어 물어봅니다.. 꼭 갈켜주세요

> 저는 심플렉스를 계산하는 프로그램을 짜고 있습니다.(심플렉스는 최적해를 구하는 프로그램이죠) 그래서... 원하는 변수와 제어식의 갯수만큼... 동적으로 EditBox를 생성하였는데 이것이 문제가 되었습니다.

> 생성된 EditBox에서 문자열을 받아 실수형의 변수에 그 값을 집어 넣는 것이죠

> 그런데 그게 잘 안되네요 그 부분에 관한 소스입니다. 틀린부분을 찾아 주세요...

> for i := 1 to totrow do

> for j := 1 to totcol do

> begin

> k := k + 1;

> 'e' + inttostr(k) := strtofloat('edi'+inttostr(k).text);

> end;

> 실수형 변수 이름은 e1 e2 e3 e4....식이구요 EditBox이름 역시 edi1, edi2,edi3....식입니다. 방법을 몰라.. 지금 헤메고 있습니다... 부탁드리겠습니다

>

>

실수형변수는 e1, e2 대신 배열을 사용하시고

strtofloat(edi+inttostr(k).text)부분은 다음과 같이 사용을 하셔함이 오를줄...

var

edtComp : TEditBox;

begin

for i := 1 to totrow do

for j := 1 to totcol do

begin

k := k + 1;

edtComp := FindComponent('edi'+inttostr(k));

if edtComp <> nil then

e[k] := strtofloat((edtComp as TEditBox).Text);

end;

end;

마니 배워 낭중에 갈켜줘요...