Q&A
- 급함. TLIST 에서 데이타 넘기기 어떻게 하죠..?
안녕하세요.. 델파이 넘 모르겠네요..
몇가지 자료를 넣어둔 List 개체에서 item 이 가장 많은
List를 찾으려고 하는데 로직은 맞는거 같은데요 값을 전달하는 부분에서
제가 모르는 것이 있는 듯하네요..
: 생략
private
MaxList, CntList1, CntList2: TList;
: 생략
procedure TForm1.FreeList(var List: TList; ChkFree: Boolean);
var
i: Integer;
begin
for i:=List.Count-1 downto 0 do
FreeMem(List.Items[i]);
if (ChkFree = true) then List.Free
else List.Clear;
end;
FreeList(MaxList, False);
FreeList(CntList1, False);
FreeList(CntList2, False);
RandomListAdd(CntList1); <----개체에 임의의 ITEM들 추가
RandomListAdd(CntList2); <----개체에 임의의 ITEM들 추가
if CntList1.Count > CntList2.Count then
MaxList := CntList1
else
MaxList := CntList2;
이렇게 (위와같이) 하면 되거든요... MaxList에 분명 정확히 가장
많은 ITEM이 든 객체가 나오는 데 왜 아래와 같이 하면 안나오죠..?
문제의 함수 부분
FreeList(MaxList, False);
for i:=1 to 10 do begin
FreeList(CntList1, False);
RandomListAdd(CntList1); <---- 개체에 임의의 ITEM들 추가
if CntList1.Count > MaxList.Count then
MaxList := CntList1; <---- 이부분이 문제인듯한데, Item을 넘겨주는게
아니라 그 포인트만 넘기는 듯하더라고요
end;
위의 소스가 지금 문제인데,
MaxList := CntList1; 이 줄이 문제인듯해요..
그냥 Item을 복사해서 넘겨주는 것이 아니라 포인트를 넘겨주기때문인 것 같거든요.
가장 Item이 많은 List가 MaxList에 들어가야 하는데 실제로 돌려보면
가장 마지막 List가 MaxList에 들어가 있더군요..
가장 많은 List가 MaxList에 들어가려면 이부분을 어떻게 고쳐야 하죠?
몇가지 자료를 넣어둔 List 개체에서 item 이 가장 많은
List를 찾으려고 하는데 로직은 맞는거 같은데요 값을 전달하는 부분에서
제가 모르는 것이 있는 듯하네요..
: 생략
private
MaxList, CntList1, CntList2: TList;
: 생략
procedure TForm1.FreeList(var List: TList; ChkFree: Boolean);
var
i: Integer;
begin
for i:=List.Count-1 downto 0 do
FreeMem(List.Items[i]);
if (ChkFree = true) then List.Free
else List.Clear;
end;
FreeList(MaxList, False);
FreeList(CntList1, False);
FreeList(CntList2, False);
RandomListAdd(CntList1); <----개체에 임의의 ITEM들 추가
RandomListAdd(CntList2); <----개체에 임의의 ITEM들 추가
if CntList1.Count > CntList2.Count then
MaxList := CntList1
else
MaxList := CntList2;
이렇게 (위와같이) 하면 되거든요... MaxList에 분명 정확히 가장
많은 ITEM이 든 객체가 나오는 데 왜 아래와 같이 하면 안나오죠..?
문제의 함수 부분
FreeList(MaxList, False);
for i:=1 to 10 do begin
FreeList(CntList1, False);
RandomListAdd(CntList1); <---- 개체에 임의의 ITEM들 추가
if CntList1.Count > MaxList.Count then
MaxList := CntList1; <---- 이부분이 문제인듯한데, Item을 넘겨주는게
아니라 그 포인트만 넘기는 듯하더라고요
end;
위의 소스가 지금 문제인데,
MaxList := CntList1; 이 줄이 문제인듯해요..
그냥 Item을 복사해서 넘겨주는 것이 아니라 포인트를 넘겨주기때문인 것 같거든요.
가장 Item이 많은 List가 MaxList에 들어가야 하는데 실제로 돌려보면
가장 마지막 List가 MaxList에 들어가 있더군요..
가장 많은 List가 MaxList에 들어가려면 이부분을 어떻게 고쳐야 하죠?
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김차영
- •
- 2001.07.14 04:35
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.07.14 07:30배경색으로 다시 한번 그리세요... 김차영 wrote: > >> DB에서 가지고 온 값으로 그림을 그렸습니다. ...
-
- 수난의 프로젝트
- •
- 2001.07.14 04:30
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.07.14 06:58안녕하세요. 최용일입니다. PCM지원하는 컴포넌트는 많이 있는데요... TAcmOut, TAudio, TAudioIO, D...
-
수난의 프로젝트•2001.07.17 00:59감사드립니다... 아주아주 유용하게 쓰겠습니다...^^
-
- 엄청초보
- •
- 2001.07.14 04:17
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2001.07.14 07:47안녕하세요. 최용일입니다. Interface자체로는 아무런 능력이 없습니다. 실제 Interface가 하는 행동을 ...
-
엄청초보•2001.07.15 11:49감사합니다.. 그런데 해당 Interface의 행동을 가진 객체를 주소값을 어떻게 가져와야 하나요? 잘 모르겠...
-
최용일•2001.07.18 05:35어떤 인터페이스를 말하시는 건가요? 인터페이스라하면 넘 광범위하군요... OCX, DLL로 포장되어 있는 ...
-
엄청초보•2001.07.18 19:21죄송합니다.너무 두리뭉실하게 질문을 드렸군요. 제가 하는 작업은 델파이로 웹브라우져를 구현하는 것인...
-
- 궁금이
- •
- 2001.07.14 03:57
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요.. 델파이 넘 모르겠네요.. 몇가지 자료를 넣어둔 List 개체에서 item 이 가장 많은 List를 찾으려고 하는데 로직은 맞는거 같은데요 값을 전달하는 부분에서 제가 모르는 것이 있는 듯하네요.. : 생략 private MaxList, CntLis...-
최용일•2001.07.14 07:29안녕하세요. 최용일입니다. 처음거는 CntList1, CntList2가 다르니까 별문제가 없네요. 상황에 따라서 M...
-
- 초보델피온...
- •
- 2001.07.14 03:22
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.07.14 07:36안녕하세요. 최용일입니다. 이건 문법에러인데요... 컴파일도 안될텐데 ShowModal이 될리가 있습니까? ...
-
- 정종섭
- •
- 2001.07.14 03:00
- 1 COMMENTS
- /
- 0 LIKES
-
방문현•2001.07.14 19:26직접 소켓으로 테이블을 가져오기는 해 보지 않았구요. 한가지 대안으로 마이다스를 이용해서 서버와 클...
-
- 델사랑
- 2001.07.14 02:56
- 0 COMMENTS
- /
- 0 LIKES
-
- shark76
- 2001.07.14 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 정종필
- 2001.07.14 01:56
- 0 COMMENTS
- /
- 0 LIKES
-
- mrsDelphi
- 2001.07.14 01:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 메신저
- 2001.07.14 01:28
- 0 COMMENTS
- /
- 0 LIKES
-
- kim
- 2001.07.14 01:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.07.14 00:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 임준
- 2001.07.14 00:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 짱아
- •
- 2001.07.14 00:25
- 3 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:32자세한건 소스를 봐야 할겠는데요.. dcc50.dll이 머하는 유닛들을 포함하고 있는지.. 찾아보심이..완존 ...
-
짱아•2001.07.14 01:13어린왕자 wrote: > 자세한건 소스를 봐야 할겠는데요.. > dcc50.dll이 머하는 유닛들을 포함하고 있는지....
-
안경옥•2001.07.14 04:48짱아 wrote: > 어린왕자 wrote: > > 자세한건 소스를 봐야 할겠는데요.. > > dcc50.dll이 머하는 유닛들...
-
- 하창호
- 2001.07.14 00:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초짜
- •
- 2001.07.13 23:17
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:08호고(__); 전TDataBase를 잘모르지만여.. mdb는 파라독스와 다릅니다. 파라독스는 파일하나가 테이블...
-
- 최선미
- •
- 2001.07.13 23:09
- 3 COMMENTS
- /
- 0 LIKES
-
조태현•2001.07.14 02:27최선미 wrote: > 안녕하세요. > 고수님들의 답변을 기다리면서.. > ADO를 이용하여 프로그램을 하고 있...
-
최선미 동료•2001.07.14 01:57저두 그런데요... 어쩌죠 ? 전 기냥 실행파일을 단축시켜서 하고잇지만... 저랑 같은 동료시군...
-
어린왕자•2001.07.14 00:05안녕하세요 선미님. ADOQuery를 사용하시면.. 값을 넣을 수가 없지 않나여? 쿼리로 나온 결과에 값을 추...
-
- 열시미
- •
- 2001.07.13 23:05
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:11괜찮은 답변은 아닙니다(__); 괜찮은 답변은 책을 찾아보심이 어떨까.. 메인폼이 엑티브된 MDI폼의 주...
-
- 우적우적
- •
- 2001.07.13 21:47
- 3 COMMENTS
- /
- 0 LIKES
-
어린왕자•2001.07.14 00:14영원한 왕초보 어린왕자입니다.. Custom이라고 들어간것들은 추상적인 컴포넌트 입니다.. 쉽게 풀이하면....
-
무적이나•2001.07.14 00:19--
-
어린왕자•2001.07.14 00:30호고.. 돌아다니는게 예제 인데.. 예를 들면 TCustomEdit에서는 TEdit등 여러가지 에디트박스의 조상...
처음거는 CntList1, CntList2가 다르니까 별문제가 없네요. 상황에 따라서 MaxList가
CntList1나 CntList2 둘중의 하나를 가리킵니다.
두번째것은 CtnList1만을 사용하셨네요. 처음에(i=1) MaxList가 CtnList1을 가리키고,
두개의 객체는 동일한객체입니다. 그 다음에(i=2일때) FreeList를 해서 CtnList1의
아이템들을 삭제하셨죠. 이 시점에서 MaxList의 아이템들도 삭제되게 됩니다. 두개의
객체가 같으므로... 이런식으로 돌기때문에 마지막 리스트를 MaxList가 가리키게
되는겁니다...
MaxList를 포인터로 하시지 마시고 직접 객체를 생성해서 하셔야 합니다. TList 에는
Assign메소드가 없으므로 for문으로 직접 옮겨주셔야 겠군요...
var
J: Integer;
Item: Pointer;
begin
// MaxList가 폼의 내부필드인거 같으니까 이부분은 OnCreate 이벤트에서 하셔야
// 할거 같군요..
MaxList := TList.Create;
FreeList(MaxList, False);
for i:=1 to 10 do
begin
FreeList(CntList1, False);
RandomListAdd(CntList1);
if CntList1.Count > MaxList.Count then
begin
// **********************************************************
FreeList(MaxList, False);
for J := CtnList1.Count - 1 downto 0 do
begin
Item := CtnList1.Items[J];
CtnList1.Delete(J)
MaxList.Add(Item));
end;
// **********************************************************
end;
end;
// 이부분도 폼의 OnDestroy 이벤트에서 하셔야 할거 같군요..
FreeList(MaxList, False);
MaxList.Free; end;
^^ 항상 즐코하세요...
궁금이 wrote:
> 안녕하세요.. 델파이 넘 모르겠네요..
>
> 몇가지 자료를 넣어둔 List 개체에서 item 이 가장 많은
> List를 찾으려고 하는데 로직은 맞는거 같은데요 값을 전달하는 부분에서
> 제가 모르는 것이 있는 듯하네요..
>
> : 생략
>
> private
> MaxList, CntList1, CntList2: TList;
>
> : 생략
>
> procedure TForm1.FreeList(var List: TList; ChkFree: Boolean);
> var
> i: Integer;
> begin
> for i:=List.Count-1 downto 0 do
> FreeMem(List.Items[i]);
>
> if (ChkFree = true) then List.Free
> else List.Clear;
> end;
>
> FreeList(MaxList, False);
> FreeList(CntList1, False);
> FreeList(CntList2, False);
>
> RandomListAdd(CntList1); <----개체에 임의의 ITEM들 추가
> RandomListAdd(CntList2); <----개체에 임의의 ITEM들 추가
>
> if CntList1.Count > CntList2.Count then
> MaxList := CntList1
> else
> MaxList := CntList2;
>
>
> 이렇게 (위와같이) 하면 되거든요... MaxList에 분명 정확히 가장
> 많은 ITEM이 든 객체가 나오는 데 왜 아래와 같이 하면 안나오죠..?
>
>
>
>
> 문제의 함수 부분
>
> FreeList(MaxList, False);
>
> for i:=1 to 10 do begin
> FreeList(CntList1, False);
> RandomListAdd(CntList1); <---- 개체에 임의의 ITEM들 추가
> if CntList1.Count > MaxList.Count then
> MaxList := CntList1; <---- 이부분이 문제인듯한데, Item을 넘겨주는게
> 아니라 그 포인트만 넘기는 듯하더라고요
> end;
>
>
> 위의 소스가 지금 문제인데,
> MaxList := CntList1; 이 줄이 문제인듯해요..
> 그냥 Item을 복사해서 넘겨주는 것이 아니라 포인트를 넘겨주기때문인 것 같거든요.
> 가장 Item이 많은 List가 MaxList에 들어가야 하는데 실제로 돌려보면
> 가장 마지막 List가 MaxList에 들어가 있더군요..
> 가장 많은 List가 MaxList에 들어가려면 이부분을 어떻게 고쳐야 하죠?
>
>
>