home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / pascal / 5223 < prev    next >
Encoding:
Internet Message Format  |  1992-09-08  |  1.4 KB
  1. Path: sparky!uunet!wupost!waikato.ac.nz!canterbury.ac.nz!lincoln.ac.nz!cachoo
  2. Newsgroups: comp.lang.pascal
  3. Subject: Re: TDialog.SetData & Listboxes
  4. Message-ID: <1992Sep7.170606.253@lincoln.ac.nz>
  5. From: cachoo@lincoln.ac.nz
  6. Date: 7 Sep 92 17:06:05 +1200
  7. References: <RTBkqB1w164w@bowker.com>
  8. Lines: 27
  9.  
  10. In article <RTBkqB1w164w@bowker.com>, jnicholson@bowker.com (Jim Nicholson) writes:
  11. > Here's a TVision question.
  12. > 
  13. > I appear to be having a problem getting TDIalog.SetDAta to initialize a
  14. > listbox.  I've got a simple dialog containing a listbox and two buttons. My
  15. > transfer record looks like
  16. >    DataRec : record
  17. >        ListBoxVals : TListBoxRec;
  18. >        end;
  19. > I've defined TListBoxRec as per BI tech support (it's a record containing a
  20. > PString collection and a Word);
  21. ... stuff deleted... 
  22. > This approach works for any control type other than TListBOx.  Can someone
  23. > help?
  24.  
  25. You don't give enough info to determine what the problem is. One possibility
  26. is that you are using an INSTANCE of TCollection, instead of creating a 
  27. DESCENDANT. Since TCollection is an ABSTRACT type, when you call
  28. TListBox.NewList with a Nil argument (which is supposed to delete the list)
  29. funny things can happen. If you have a collection of strings created with NewStr
  30. then you need to create a descendant of TCollection where the FreeItem method
  31. calls DisposeStr. Otherwise only TObject.Done will be called and you'll wind
  32. up with a mess!
  33.  
  34. Hope this helps
  35.    Oscar
  36.  
  37.