안녕하세여..타락임다...^^



이건 당근 에러져..



윤미영 wrote:

> 폼1의 memo 값을 폼2의 memo에 넣어주려고 합니다.

> 특별히 폼 memo들의 값들을 배열로 만들어 폼2의 memo에 넘기려고 합니다.

> 이해가 잘안가시죠!!

> 어제 제가 질문한 동적 배열의 타입문제 내용의 원래 의도는 이것입니다.

>

> 예를 들어

>

>

> unit1 {form1} 에서

>

> a : array of Tstrings;

MyList : TStringList;

// 초기화 함수에서 Create 시킨다..

// MyList := TStringList.Create;



> 를 선언하고

> setlength(a, 10)

> 어떤 버튼을 누룰때 마다

>

> a[0] := memo1.lines;

> ...

> 을 코딩합니다.



꼭 한줄씩 옮겨야 하나여? 통채로 옮기면 돼져...



MyList.Assign(Memo1.Lines);



>

> 그리고 또 다른 버튼을 눌렀을때 폼 2가 생성되면서 폼1의 memo1의 내용들이 들어 있는

> 배열을 폼2의 배열에다 전달합니다.

>

> form2.create(self)

> form2.b := a; ==> 에러 발생지역

> ...

> form2.free;

> 라고 코딩합니다.

>



흠.. 다른폼이나 다른 유닛으로 전달하는건....ㅠㅠ

첨 말하는건데,,,, 아래와 가치 해보세여..100% 됨다..



Form2 := TForm2.Create(Application);

// 여기서 메모내용을 넘김다..

Form2.m_MyList := MyList;

try

Form2.ShowModal;

finally

Form2.Free;

Form2 := nil;

end;





unit2 {form2} 에서

...

public

m_MyList: TStringList ; 라고 정의하고



// 폼 생성 이벤트에서 Creat 하지 않습니다.. 중요..--



글구 Form2에서 일반 Create 된 스트링리스트 쓰듯 m_MyList를 쓰면 됩니다..



>

> 라고 코딩한다면 에러 발생 지역에서 type 이 맞지 않는다는 에러가 납니다.

> 이것의 해결방안은 무엇인지 알고 십습니다. 감사합니다.

>



이케 하면 잘 될거예여...ㅠㅠ



휴우~ 전 다시 머리 빡빡 짜서 프로그램 짜야져..ㅠㅠ 헉~ 두유 나온다...



타락천사..^^



피에스: 멜 보내지 마세여... 바뻐서 답멜 못함다..ㅠㅠ

윤미영 wrote:

> 폼1의 memo 값을 폼2의 memo에 넣어주려고 합니다.

> 특별히 폼 memo들의 값들을 배열로 만들어 폼2의 memo에 넘기려고 합니다.

> 이해가 잘안가시죠!!

> 어제 제가 질문한 동적 배열의 타입문제 내용의 원래 의도는 이것입니다.

>

> 예를 들어

>

>

> unit1 {form1} 에서

>

> a : array of Tstrings;

> 를 선언하고

> setlength(a, 10)

> 어떤 버튼을 누룰때 마다

>

> a[0] := memo1.lines;

> ...

> 을 코딩합니다.

>

> 그리고 또 다른 버튼을 눌렀을때 폼 2가 생성되면서 폼1의 memo1의 내용들이 들어 있는

> 배열을 폼2의 배열에다 전달합니다.

>

> form2.create(self)

> form2.b := a; ==> 에러 발생지역

> ...

> form2.free;

> 라고 코딩합니다.

>

> 그리고

> unit2 {form2} 에서

> ...

> public

> b : array of Tstrings; 라고 정의하고

>

> 폼 생성 이벤트에서

> ...

> memo1.lines := b[0];

> ..

>

> 라고 코딩한다면 에러 발생 지역에서 type 이 맞지 않는다는 에러가 납니다.

> 이것의 해결방안은 무엇인지 알고 십습니다. 감사합니다.

>



다른 특별한 이유가 없다면 이렇게도 할수 있습니다.



form2.memo1.lines := form1.memo1.lines;



만약 위와같이 변수를 경유해야 한다면....



var a:TStrings; // a와 b를 TStrings로 선언합니다.



이때 a를 꼭 create해야 합니다. 폼생성시 create하고 폼 해제시 free하면 되겠지요.



그런다음....



form2.b.assign(a); // 이런식으로 하시면 전체가 copy됩니다.





만약 배열로 여러개를 변수에 담아야한다면....



interface절에 type을 선언하시고 유닛을 연결하세요



type TStringAarray= array of TStrings;



이때 주의할점은 배열 각 요소의 create입니다.