HDTenEightyP/NetNews huggingface dataset:
From: bobb@vice.ICO.TEK.COM (Bob Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: Numerical Recipes
Date: 21 Jul 92 23:01:41 GMT
Distribution: na
Organization: Tektronix, Inc., Beaverton,  OR.

In <Brr44J.5z7@news.cso.uiuc.edu> wmsg4931@uxa.cso.uiuc.edu (Walter M. Seiler) writes:

>I have Numerical Recipes in C book and the fortran
>book and the fortran disk.  But was wondering if
>anyone out there could assist me in getting the
>C and/or pascal code segments.

  Unless I'm very sadly mistaken, the original pascal code for
  numerical recipes is available from ftp sites.  Note that the
  version I have (I bought it for about 3 bucks from a shareware
  borker) is the quick and dirty translation of the Fortran code, as
  published in the Appendices in the orignal _Numerical_Recipes_.
  It is not optimized pascal code, but it does work.

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ 

Bob Beauchaine bobb@vice.ICO.TEK.COM 

C: The language that combines the power of assembly language with the 
   flexibility of assembly language.

Real friends don't let friends use UNIX.
Newsgroups: comp.lang.pascal
From: nrh@buzz.bellcore.com (Nat Howard)
Subject: wanted: compiler suggestions for sparc and DECstation
Reply-To: nrh@bellcore.com (Nat Howard)
Organization: Bellcore, Morristown, NJ
Date: Wed, 22 Jul 92 19:21:31 GMT

We're finally retiring our departmental VAX, and a few users want to use
pascal on our workstations (currently these are DECstations and Suns).

What compilers are out there?  Are any ftp'able?  We can pay if necessary,
but of course we'd prefer free, easily installed, fast-running, bug-free
code to the other kind.... :-)

Thanks for your suggestions...
From: leonard@qiclab.scn.rain.com (Leonard Erickson)
Newsgroups: comp.lang.pascal
Subject: Re: A Simple TP6 question
Date: 21 Jul 92 13:40:54 GMT
Article-I.D.: qiclab.1992Jul21.134054.23075
Reply-To: 70465.203@compuserve.com
Organization: SCN Research/Qic Laboratories of Tigard, Oregon.

cspradling@eagle.wesleyan.edu writes:

>This is a pretty stupid question, but I really stuck with this small piece of
>code and the manual's directions don't work (at least for me). What I want to
>do is have full function of my arrow keys. Since the ascii values are prefixed
>by a null character to distinguish them from the alphanumeric values I am
>having trouble. My turbo pascal manual instructs:

>if keypressed then
>   if readkey = chr(0) then
>      if readkey = 'K' then
>          do leftarrow


>But this doesn't work. Any help on this would be appreciated. Thanks,

You have to test for *all possible* extended keys if readkey = chr(0)!
Otherwise you've just lost the keystroke unless it's the first one you
test for!

if keypressed then
begin
  if readkey = chr(0) then
     case readkey of
     ....
     'K' : left_arrow;
     ....
     otherwise
        unknown_key;
     end;
  {regular key handling goes here}
end;
-- 
Leonard Erickson		      leonard@qiclab.scn.rain.com
CIS: [70465,203]			 70465.203@compuserve.com
FIDO:   1:105/56	 Leonard.Erickson@f56.n105.z1.fidonet.org
(The CIS address is checked daily. The others infrequently)
From: DPSX0599%BRUFV.BITNET@vtvm2.cc.vt.edu ( Elpidio Filho)
Newsgroups: comp.lang.pascal
Subject: Paradox Engine
Date: 29 Jul 92 01:25:55 GMT

Hello All

  I'd like know their viewpoints about Paradox Engine.


thanks in advance


Elpidio
DPSX0599@BRUFV
Newsgroups: comp.lang.pascal
From: veit@opal.cs.tu-berlin.de (Veit Zimmermann)
Subject: Re: Functions and Procedures as Parameters
Organization: Techn. University of Berlin, Germany
Distribution: fb20
Date: Tue, 21 Jul 1992 20:46:38 GMT

Hi again

I forgot telling you that it is absolutly nenecessary to do the Functioncall
by FarCall by setting the compiler switch 
{$F+}
FUNCTION TrueTest(..):..;
{$F-}
BEGIN
...
END;

Hope that's all you need..:)

		CIAO
			veit

Newsgroups: comp.lang.pascal
From: jdz1@Ra.MsState.Edu (John D. Zitterkopf)
Subject: Re: TurboPascal: Programming the IBM PC & XT
Organization: Mississippi State University
Date: Wed, 22 Jul 1992 04:00:54 GMT

The only one I can think of right off the top of my head would be the simple
one. 
	{$G+}

Other than that... 
John

--
 ____________   _------_  |||IBM & |      EE majors Do it Best 8-)
  --------\\ ] ~-______-~ |||Atari |~~~~~~~~~John D. Zitterkopf~~~~~~~~~~~~~
     (~~~~~\\|_(__ ~~    / | \Rules!jdz1@ra.MsState.edu  jdz1@MsState.bitnet
      \______| (        /  |  \    | AOL: zitt@aol.com    jdz1@isis.MsState.edu
From: rbennet1@neumann.une.edu.au (Robert Bennetts.)
Newsgroups: comp.lang.pascal
Subject: Integer <-> String
Date: 21 Jul 92 14:21:18 GMT


	Hi all...

	Yes I am not a very experienced programmer, and need some help, and I can't seem to find how to do this.

	Can I change an Integer, or any other variable for that matter, into a string so I can output it using OutText.
	I am attempting to write a whole program in nice fonts and in graphics mode, but they don't want to make it easy in TP6.0.
	It seems as if I have to 'InitGraph' every other second, and for some reason, some of my procedures only work if they have an even number of lines in them so I tack an 'a:=a;'on the end of it and suddenly it runs like magic.
	Seems odd to me anyway.

	Oh Well, Thanks for any help that you can give me...

	Ross Bennetts...

		rbennet1@neumann.une.edu.au


Newsgroups: comp.lang.pascal
From: ferincz@methan.chemie.fu-berlin.de (Jozsef Ferincz)
Subject: Re: Pascal Pretty Printer (?)
Date: Wed, 22 Jul 1992 20:56:51 GMT
Reply-To: ferincz@methan.chemie.fu-berlin.de
Organization: Free University of Berlin, Organic Chemistry

death@acca.nmsu.edu (The Grimm Reaper) writes:

>markham@brtph600.bnr.ca (Andrew Markham P205) writes:
>: I know about pretty printers for C, but can't seem to
>: find one for Pascal.  Somebody HAS to have written one
>: by now.
>: 
>: Anybody have one?  If not, I'll get to work on one.
>: 
>: BTW, if this is a FAQ, I aplogize, but I don't remember seeing 
>: it in there.
>
>The best publicly available one is REFORM24, but it doesn't support some
>of the newer TP extensions, such as objects or BASM.  TurboPower Software,
>on the other hand, has one in their excellent Turbo Analyst package, and
>they -do- keep it updated to the current versions of TP.

In the german computer magazin PC Professional (4.1992; p.376) 
published a source code (TP) of wery good PPP for Turbo Pascal 6.0 
from W. Lottermoser: OPTIPAS. It has a more functions, works fast.
May be you can find it on some german FTP-Server...
You have a source code, therefore can you extend a reserved words,
functions and procedures by yourself also for Turbo Pascal 7.0 ...

Regards, Jozsef
-- 
Jozsef Ferincz               INTERNET : ferincz@methan.chemie.fu-berlin.de    
Freie Universitaet Berlin           : ferincz@kristall.chemie.fu-berlin.dbp.de
Takustr.3, D-1000 Berlin 33  UUCP : ferincz@fub.uucp                          
Fax : +(49 30) 838 51 63     Tel.: +(49 30) 838 26 77, 838 53 63
From: handbook@orion.oac.uci.edu (Handbook)
Subject: Help with CD-ROM stuff
Newsgroups: comp.lang.pascal
Organization: University of California, Irvine
Date: 24 Jul 92 02:04:48 GMT

Hi,

You people are always so helpful, I have another one for you: 

I'm looking through Ralf Brown's list of PC Interrupts and there is one
that I'm interested in which deals with CD-ROMS.  Explicitly, it is used 
to "Determine the name of the file in the CD-ROM's volume table of contents
which contains the abstract describing the disk".

This interrupt is 2Fh AX= 1503h

In the book, it states the following:

   Registers at call:
   AX = 1503h
   ES:BX -> 38 byte buffer for name of abstract file
   CX = drive number (0 = A)

   Return Registers
   CF set if drive is not a CDROM drive
      AX=15 (invalid drive)
   CF clear if successful

My question then is,  what does "ES:BX" mean, and how do I write that in TP 6?
In other words, how do I incorporate it into the following?

begin
   Regs.AX := $1503;
   Regs.CX := 3;    { I presume CX := 3, since the CD drive is D }
   MORE STUFF HERE ON REGISTERS AT CALL
   Intr($2F, Regs);
   AND THEN INFO ON REGISTERS RETURNED
end;

Also, how is the abstract file name returned?  Is it returned in these
ES:BX registers?  How do I access the returned information?

On the subject of CD-ROMs, does anyone know how to unistall MSCDEX?
Is it possible through some interrupt, or by doing something with some
memory locations to yank MSCDEX?	


Thanks a whole lot,

Tony

Anthony Toyofuku
University of California,
Newsgroups: comp.lang.pascal
From: jeroenp@rulfc1.LeidenUniv.nl (Jeroen W. Pluimers)
Subject: Re: TP4 -> TPW
Organization: Dept. FMC, Gorlaeus Labs, Leiden University, The Netherlands
Date: Fri, 31 Jul 92 13:25:07 GMT

In article <zlsiida.1101@fs1.mcc.ac.uk> zlsiida@fs1.mcc.ac.uk (dave budd) writes:
>A user comes in asking where are the graphic and numeric resource libraries 
>(that he used to use in TP4) in TPW.  Well I've not used TP4 so I'm not even 
>sure what these libraries are.  Are they now just included as part of the 
>standard set of subroutines?
>
>+---------------------------------------------------------------------+
I guess your customer is confused that there is no such think like BGI
and the Graph unit anymore with TPW.

That is true, because you'll have to use the Windows GDI (Graphics Device
Interface) to draw graphics. Windows does that in a whole other way than
BGI used to do, so making a BGI for Windows is pretty useless.

What your customer can do, is buy Object Graphics Library from WhiteWater,
that's pretty good, but he has to be sure he buys the version with
the sources (only having the .TPU's is insufficient when he moves on to
newer versions of TPW).

--
    o _   _  _   _   _             voice: +31-2522-20908 (19:00-24:00 UTC)
   / (_' |  (_) (_' | |            snail: P.S.O.
__/                                       attn. Jeroen W. Pluimers
                                          P.O. Box 266
jeroenp@rulfc1.LeidenUniv.nl              2170 AG Sassenheim
jeroen_pluimers@f521.n281.z2.fidonet.org  The Netherlands
Newsgroups: comp.lang.pascal
From: dmurdoch@QueensU.CA (Duncan Murdoch)
Subject: Constant objects in TP 6.0
Organization: Queen's University, Kingston, Canada
Date: Thu, 30 Jul 1992 17:52:07 GMT


I've just discovered a problem (I'm not sure if I'd call it a bug, but a
design inconsistency) in Turbo Pascal 6.0's handling of constant objects.

With the following declaration:

type
  Tbase = object
    private
      i : word;
  end;

it's possible to declare a typed constant of type TBase in another unit:

const
  base : TBase = ();    { 1 }

However, if we create a descendant type:

type
  TDescend = object(TBase)
    j : word;
  end;

then there's no way to create a constant of type TDescend which
initializes j.  The first possibility

const
  descend : TDescend = (i:1; j:1);  { 2 }

is illegal outside the unit where TBase was defined, because field "i"
can't be referenced (it's private).  The second possibility

const
  descend : TDescend = (j:1);  { 3 }

is illegal because j isn't the first field; you're not allowed to skip
field i.

The reason I'm reluctant to call this a bug is because it makes some
sense.  Field "i" is private, so { 2 } can't touch it in another unit; the
compiler doesn't know what value to put there, so it's good that it refuses
to let you use { 3 }.  If anything's a bug, it's the fact that { 1 } is
legal.  Apparently you're always allowed to specify the first few fields
in an object or record, and the others are zeroed out.

I'd suggest the following alternative syntax for constant objects:

type
  descend : TDescend.Init(...);

where Init is a constructor.  This would be executed just before the
initialization section of the unit it occured in.  The constructor could
set any private fields and generally initialize the object properly.

Duncan Murdoch
dmurdoch@mast.queensu.ca
Newsgroups: comp.lang.pascal
From: leonard@qiclab.scn.rain.com (Leonard Erickson)
Subject: Re: packtime and unpacktime algorithms?
Reply-To: 70465.203@compuserve.com
Organization: SCN Research/Qic Laboratories of Tigard, Oregon.
Date: Fri, 31 Jul 1992 08:41:59 GMT

STANKULI%UWF.BITNET@vtvm2.cc.vt.edu ( stan kulikowski ii) writes:

>  does anyone have access to tp's algorithms for packtime and unpacktime
>procedures?  the longint returned by packtime is not a standard julian
>date so i would like to know what the limits in the numerical conversion
>are.  i assume this was established by microsoft somewhere when they set up
>their FAT specifications.

Split it into a pair of words. The first is the time, coded like this:
	time= (hour*2048) + (minutes*32) + (seconds div 2)

the second is the date, coded as follows:
	date= ((year-1980)*512) + (month*32) + day

>it seems a shame that the datetime type defined in the dos unit does not have
>100th seconds in it so we could use the thing for elapsed time measurements
>within the 10th second accuracy we can get from the clock.

If you examine the above, you'll see that DateTime isn't good for better than
2 second accuracy anyway. If you are going to use "accurate" timing, declare
a longint at the system timer count. 
	TimerCount : longint absolute $0040:$006C;

This gives you the full 18.2 Hz accuracy of the timer tick.
(Just don't forget that it resets to 0 at midnite!)

-- 
Leonard Erickson		      leonard@qiclab.scn.rain.com
CIS: [70465,203]			 70465.203@compuserve.com
FIDO:   1:105/56	 Leonard.Erickson@f56.n105.z1.fidonet.org
(The CIS address is checked daily. The others infrequently)
Newsgroups: comp.lang.pascal
From: alanchem@csd4.csd.uwm.edu (Alan Scott Olson)
Subject: Question on storing linked lists
Originator: alanchem@csd4.csd.uwm.edu
Organization: Computing Services Division, University of Wisconsin - Milwaukee
Distribution: usa
Date: Fri, 24 Jul 1992 01:24:02 GMT

A quick question.....

I'm developing a "data management/storage/manipulation/......" program
that uses a LARGE linked list data structure.

I'm back to pascal after several years absence.  My question is this:

Is there any file structure in which you can "Write(FileName,Variable^) and     
whole linked list will be stored?  I bet I'm asking for too much!

And vice-versa, you could "Read(FileName,Variable^)".

A the moment, the program traverses the list and creates a text file of
all the data, but the program and files will eventually be quite large, and
the file access will be the "roadblock" to speed.  

To avoid further question, no, I don't have one type of record in my linked
list.  I have in total 5 types of records that are linked in a somewhat
ordered way...but the number of each kind of record is variable.  Yes, it
has developed into a mess...but it works wonderfully.

If anyone has any libraries of use, please let me know.  Also, please
email responses to me.  Thanks

- Alan

-- 
 ___________/ Alan S. Olson  UW-Milwaukee Chemistry Department \______________
/     e-mail to alanchem@csd4.csd.uwm.edu  OR  alan@alchemy.chem.uwm.edu      \
|          Want some good music?  Check out Milwaukee's own BoDeans           |
+-----------------------------------------------------------------------------+
From: markc@hpldsla.sid.hp.com (Mark Cervarich)
Date: Wed, 22 Jul 1992 16:46:22 GMT
Subject: TPW 1.0 Books - A follow-up
Organization: HP Scientific Instruments Division - Palo Alto, CA
Newsgroups: comp.lang.pascal

Well, I guess I've got all the responses that I'm going to get - 2 of them!
My request was for a good TPW book.  Here are the two responses I got.

The first said:
From: overmyer@netcom.com (Doug Overmyer)

> The Bantam "Turbo Pascal for Windows" by Tom Swan is best intro. The Neil
> Rubenking book "Turbo Pascal for Windows Techniques and Utilities" is a fine
> intermediate book (Ziff Press). Both are worth the money. 
> Doug

The second:
From: clk@wg.estec.esa.nl (Claus Kjaergaard)


> Well, I found "Turbo Pascal for Windows 3.0 Programming" by Tom Swan to be
> very good. It is published by Bantam Books Inc, ISBN 0-553-35293-8.
> Additionally I have "Turbo Pascal for Windows BIBLE" by Gary Entsminger, 
> but I found it to be if not useless then of very little help. Ok, if you
> don't own the TPW manuels then..., but of course you do.
> Good Luck


To allay everyone's fears - I own TPW 1.0 and have all disks and manuals,
just wanted a book with good examples.

I ended up buying the book by Swan and have found it quite good so far.
Only one problem:  He has a lot (>50) programs that you (the reader) need
to type in yourself.  There is an option to order a disk with all of 
the code on it allready.  Has anyone bought this disk?  If so, could
you e-mail me so that I could get a copy of the text listings?

PLEASE - Save my fingers and protect me from Carpol Tunnel Syndrome (sp).  :)

Thanks again,
mark


Mark R. Cervarich
mark@hpsidjg.sid.hp.com
                          Honda '80 CX500C      Suzuki '86 GS550ES
PLAY LACROSSE
From: bobb@vice.ICO.TEK.COM (Bob Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: Input validation standards (was Re: ... Inputing Real Numbers)
Date: 22 Jul 92 15:45:19 GMT
Distribution: comp.lang.pascal
Organization: Tektronix, Inc., Beaverton,  OR.

In article <1992Jul22.171117.222@lincoln.ac.nz> cachoo@lincoln.ac.nz writes:
>
>Excuse my ignorance, I don't know what CUA standards are. But concerning
>input validation in TV, I've found it convenient to use the cmReleasedFocus
>broadcast command. This command is issued everytime a view losses focus,
>whether through keyboard or mouse action, this command informs TDialog that 
>it should give focus to a different view. So my approach is to create a
>TSmartInputLine whose HandleEvent responds to cmReleasedFocus (this command
>is broadcast back from the dialog to all its subviews), if the Event.InfoPtr
>is equal to @Self, then the input line 'knows' that it should validate itself.
>Makes sense?

  Of course.  This makes perfect sense.  It still, however, doesn't
  answer the question of whether it *should* be done this way.  

  I'm leaning toward a solution that will allow the programmer to
  decide how validation should be done via a typed constant in the
  input line unit.  I can think of three useful possibilities:

  1.  Validate on keystrokes that cause a loss of focus
  2.  Validate on any event (including mouse clicks) that cuase a
  loss of focus.
  3.  Validate only on a cmOK from the controlling dialog box.

  Comments?

/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ 

Bob Beauchaine bobb@vice.ICO.TEK.COM 

C: The language that combines the power of assembly language with the 
   flexibility of assembly language.

Real friends don't let friends use UNIX.
From: bjorh1+@pitt.edu (Reidar Bjorhovde)
Newsgroups: comp.lang.pascal
Subject: Standard pascal question...
Date: 25 Jul 92 21:16:43 GMT
Organization: University of Pittsburgh

Hi.  I am writing a program in standard pascal and I need to use a
function like the 'copy' function in Turbo Pascal, where a substring is
returned from a string.

	e.g. 

		this_string := 'This is a string';
		new_string := copy(this_string, 1,5);
		writeln(output, new_string);

	and this would return 'This '.

Is there a function in Standard Pascal that can do this?

Thanks for your help.


-- 
Ian D. Bjorhovde
bjorh1+@pitt.edu
Department of Materials Science & Engineering
University of Pittsburgh
Newsgroups: comp.lang.pascal
From: amead@s.psych.uiuc.edu (Alan Mead)
Subject: Re: WANTED: multi-line text entry with editing featu
Organization: UIUC Department of Psychology
Date: Thu, 30 Jul 1992 14:11:19 GMT

konopka@ils.nwu.edu (Ray Konopka) writes:

>In article <31554@adm.brl.mil> usr3947a@tso.uc.edu (Kenneth Wronkiewicz) writes:
>>excatly what code i could use as whell.....   i figure that it would be a 
>>parcedure with a ReadChar or ReadLn command then a checking routene for word
>>wrap, command charachters, etc.

>If you are using TP 6.0, take a look at the TMemo class in 
>TVISION\EDITORS.PAS.  It provides a Turbo Vision multiline
>entry field, with the same editing features that are in 
>the Editor class, because TMemo is derived from TEditor.

>NOTE: You should pick up TP6BUGS6.ZIP from garbo.uwasa.fi
>and look up the bugs listed for the EDITORS.PAS file.

Another user or two suggested this, but I am using v5.5.

I decided to write my own very simple, very dumb code (for
one thing, I wanted it to run fast on an old PC or XT).

But it's still a little buggy (apparently).  

-alan
Newsgroups: comp.lang.pascal
From: dmurdoch@watstat.waterloo.edu (Duncan Murdoch)
Subject: Re: Constants in an Object
Reply-To: dmurdoch@mast.queensu.ca
Organization: University of Waterloo
Date: Tue, 21 Jul 1992 11:45:37 GMT

In article <phfrom.183@nyx.uni-konstanz.de> phfrom@nyx.uni-konstanz.de (Hartmut Frommert) writes:
>
>What I didn't try up to now is
>
>const
>  MyObject: TMyObject = (345);
>
>or thelike. I assume this failes because no memory is reserved for MyObject;
>this is done by the constructor call. 

You can have object constants, but the value has to be declared like a 
record constant:

  const
    MyObject: TMyObject = (Myfield: 345);

The constructor call doesn't allocate memory, it fills in the VMT field.
The compiler does that for you in a constant object, so no constructor
call is needed.  This is discussed in Chapter 5 of the Programmer's Guide.

Duncan Murdoch
dmurdoch@mast.queensu.ca
From: zlsiida@fs1.mcc.ac.uk (dave budd)
Newsgroups: comp.lang.pascal
Subject: TP4 -> TPW
Date: 30 Jul 92 10:54:54 GMT
Organization: Manchester Computing Centre
Originator: netnews@uts.mcc.ac.uk

A user comes in asking where are the graphic and numeric resource libraries 
(that he used to use in TP4) in TPW.  Well I've not used TP4 so I'm not even 
sure what these libraries are.  Are they now just included as part of the 
standard set of subroutines?

+---------------------------------------------------------------------+
|  I don't take part in any sport that requires me to change clothes  |
|  Dave Budd, MCC, Oxford Rd, Manchester, England   (44)061-275-6033  |
+---------------------------------------------------------------------+
From: J_SCHULL@acc.haverford.edu (Jonathan Schull)
Newsgroups: comp.lang.pascal
Subject: ANYONE HAD ANY EXPERIENCE WITH TOPSPEED PASCAL?
Date: 24 Jul 92 03:36:54 GMT

I'd be interested in hearing about it, especially about
the utilities they provide for converting turbo to topspeed.

For that matter if anyone has a copy to sell....
Newsgroups: comp.lang.pascal
From: konopka@ils.nwu.edu (Ray Konopka)
Subject: Re: Using Printer
Followup-To: konopka@aristotle.ils.nwu.edu
Organization: The Institute for the Learning Sciences
Date: Wed, 29 Jul 1992 18:26:15 GMT

In article <92210.121517DLA5@psuvm.psu.edu> <DLA5@psuvm.psu.edu> writes:
>Can anyone tell me how to close a print job using the "Printer" unit.  I can
>print to the printer, but when I an done, my paper is still in my deskjet.  Is
>there some way to send formfeed statement to the printer, or can I close the
>printer.  I tried to use the close(lst) statement, but this didn't seem to
>work.  Thanks.
>

I would try sending a form feed when you are done printing.
That is, Write( lst, #12 );  This is what I do for Epson 24pin
printers and HP Laserjets, but I haven't used a Deskjet.

>
>Dave Aumiller
>
>P.S. Please post your response to my Email, because I rarely have access
>to the Net.  Thanks again.

No Problem,
Ray Konopka
konopka@aristotle.ils.nwu.edu

Long Live Turbo Pascal!

Newsgroups: comp.lang.pascal
From: waardenb@cs.utwente.nl (Jerry van Waardenberg)
Subject:  Re: HELP, TVision Questions
Followup-To: <22862@oasys.dt.navy.mil>
Organization: University of Twente, Dept. of Computer Science
Date: Wed, 29 Jul 1992 08:27:58 GMT

Another thing:

The SetData method of listboxes requires two things: The first has to be a
pointer to a ListBox, the second is a word containing a value for the Focused
variable. The record should look something like this:


(Dialog contains 2 TInputLine objects and 2 TListBox objects)

record
  var1: String;
  var2: String;
  list1: PListBox;
  Focus1: Word;
  list2: PListBox;
  Focus2: Word;
end;

(I haven't got the original message anymore, because my system crashed when I was
reading it. However, I hope that the above example is clear.)


Jerry
Newsgroups: comp.lang.pascal