HDTenEightyP/NetNews huggingface dataset:
From: holland@matt.ksu.ksu.edu (Rich Holland)
Newsgroups: comp.lang.pascal
Subject: Records and strings
Date: 20 Aug 1992 18:06:42 -0500
Organization: Kansas State University
NNTP-Posting-Host: matt.ksu.ksu.edu
Keywords: Help!

I'm having a problem and it seems there's a simple solution, but I can't
seem to grasp it right away...here goes:

I've got something like this globally:

TYPE  ARecord = Record
        field1 : string[5];
        field2 : string[12];
        field3 : string[17];
        :
        :
        field17: string[7];
        end;

Var Rec : Record;

Now, I need to validate each field, and I've got a bunch of procedures     
to do this that look like this:

Function ValField1(s:string) : Boolean;
Function ValField2(s:string) : Boolean;
:
Function ValField17(s:string): Boolean;

Now, I have to use a 'string' in there because of another place in the
program that's calling the validation routines...

But what I need to do now is validate ALL the fiellds in a function
like this:

Function ValidRecord(ARec : ARecord) : Boolean;

I'm trying to call them all, and the best way I could think of was to
write a function to return the field as a string, based on an index:

Function Field2String(ARec : Record,i : Integer) : String;
Begin
  Case i of 
    1 : Field2String:=ARec.Field1;
    2 : Field2String:=ARec.Field2;
    :
    :
   17 : Field2String:=ARec.Field17;
   Else FatalError('Invalid Index in Field2String');

Now in my ValidRecord() function call, I tried to do something like this:

Function ValidRecord(ARec : ARecord) : Boolean;
Var Tmp : Boolean;  { temporary results }
Begin
  Tmp := True;
  If Not ValField1(Field2String(ARec,1)) then Tmp:=False
  Else If Not ValField2(Field2String(ARec,2)) then Tmp:=False
  :
  : 
  Else If Not ValField17(Field2String(ARec,17)) then Tmp:=False;
  ValidRecord:=Tmp;
End; { ValidRecord }

My problem:  I get Error 122: Invalid variable reference.

Help reveals:  This construct follows the syntax of a variable 
               reference, but it does not denote a memory
               location.  Most likely, you are calling a pointer
               function, but forgetting to dereference the 
               result.

Now, why can I call a function like this:

s:=Upper(Copy(x,1,5));  { upcase 1st 5 letters of x }                     

Copy is a function.
Upper is a function.

So is Field2String.
So is ValField.

Why can I call a function with another as an argument in one case but
not another?  *groan*

 -- Rich

-- 
Rich Holland              | INTERNET: holland@matt.ksu.ksu.edu
100 Jardine Terr, Apt A7  | BITNET  : holland@ksuvm
Manhattan, KS  66502-3357 | UUCP    : ...!rutgers!matt.ksu.ksu.edu!holland
"Jesus saves...but Gretzky gets the rebound!  He shoots!  He scores!!"
Newsgroups: comp.lang.pascal
From: bobb@vice.ICO.TEK.COM (Robert Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: TV Focus in Dialog views
Date: 21 Aug 92 23:31:23 GMT
Organization: Tektronix, Inc., Beaverton,  OR.

In article <1992Aug21.190034.40057@urz.unibas.ch> gysin1@urz.unibas.ch writes:
>In article <10202@vice.ICO.TEK.COM>, bobb@vice.ICO.TEK.COM (Robert Beauchaine) writes:
>> 
>>   Here's the problem:
>> 
>
>	Well, I think the only thing you can do is to override the
>HandleEvent-Method and redefine the function of kbTab and kbShiftTab (and -why
>not ? - kbEnter). The user is probably already typing in new values and has
>just to type the Tab-Key or Enter-Key to jump to the next InputLine. If he
>moves the focus with the mouse, he doesn't need to care for the value, any
>typing is ignored...
>
>	For catching positional events, I suppose you should start at the
>Dialog's event handler that manages the subviews....
>

  Actually, I solved the problem today.  Catching the change of
  focus seems to be the correct solution.  The one missing part was
  to check the value of the COMMAND parameter passed into the input
  number's valid() function.  If COMMAND = cmCancel, don't do the
  validation.  Pretty simple, but it gave me fits!

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

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: jcrowley@leotech.mv.com (Jon Crowley)
Sender: uucp@leotech.mv.com
Newsgroups: comp.lang.pascal
Subject: NEED  XX!!!!!!!!!!!!!!!!!
Date: Wed, 12 Aug 1992 15:04:00

I need a copy of XX or XX34 or whatever the heck it is!  Please email
me
to my name!  I have been wanting the pascal source for it for a
*LONG*
time.

  SLMR 2.1a  Shoplifters with the runs take Clepto Bismol.


 * Origin: Leo Technology (603)432-2517/432-0922 (HST/V32)
(1:132/189)
Newsgroups: comp.lang.pascal
From: wct@po.CWRU.Edu (William C. Thompson)
Subject: Re: Network Programming....
Reply-To: wct@po.CWRU.Edu (William C. Thompson)
Organization: Case Western Reserve University, Cleveland, OH (USA)
Date: Fri, 14 Aug 92 15:08:51 GMT


In a previous article, amead@s.psych.uiuc.edu (Alan Mead) says:

>chris@gergo.tamu.edu (Chris King) writes:
>
>Is this clear?  In the book _Advanced Turbo Pascal Techniques_ by
>Ohlsen and Stoker, they present a chapter on network programming and
>some sort of game.  I only glanced at it, however, not having a network
>to experiment on :(

Do you have any more info on this book?  Who's the publisher?  What
else does it cover?  I was looking for a book by Stephen O' Brien that
has since gone out of print, though I hear it was a really good book.
-- 
"What do you mean Star Trek isn't real!?" - anonymous
From: greg.vigneault@bville.gts.org (Greg Vigneault)
Newsgroups: comp.lang.pascal
Subject: NETBIOS AND NETWARE LIBRA
Date: 18 Aug 92 13:26:00 GMT
Reply-To: greg.vigneault@bville.gts.org (Greg Vigneault)
Organization: Baudeville BBS - Toronto, Canada 416-283-0114/6059* *v32bis/HST


 In message <11AUG199217443797@gergi.tamu.edu>
 Subj: Netbios and Netware Libraries (easy)
 chris@gergi.tamu.edu (Chris King) wrote...

CK>I'm trying to write libraries for both Novell and NetBios.  My
  >problem is that I only have examples written in C. I can program
  >in C, but I have alittle trouble converting to pascal, I have a
  >routine in C that works fine for Netbios the following.
  >
  >void NetBios(NCB far *ncb_ptr)
  > {
  >  ncb_ptr->ncb_cmd_cplt = 0xFF;
  >  _ES   = FP_seg(ncb_ptr);
  >  _BX   = FP_off(ncb_ptr);
  >  _AX   = 0x0100;
  >  geninterrupt(0x5c);
  > }

 Please post the complete structure of the Turbo Pascal RECORD that
 is being accessed.

 Greg_

 Aug.18.1992.Toronto.Canada.
 greg.vigneault@bville.gts.org
 gregsv@eastern.com
From: r9503151@hp850s.ntu.edu.tw (Kuo-Chun Su)
Newsgroups: comp.lang.pascal
Subject: Re: PROUST
Date: 21 Aug 92 03:05:17 GMT

> 
> Has anyone used PROUST to learn or teach PASCAL? If so, can
> you tell me what your opinion of it was?
> 
> 			Tim Cooper & Jenny Sayers, Sydney.
> 
Deal all,

	Would anyone please tell me what PROUST is ?

	Thanks in advance !

Sincerely
Kuo-Chun Su
From: jnicholson@bowker.com (Jim Nicholson)
Newsgroups: comp.lang.pascal
Subject: Re: Windows and printscreen
Date: Fri, 21 Aug 92 12:40:55 EDT
Organization: Bowker Electronic Publishing, New Providence NJ

holland@matt.ksu.ksu.edu (Rich Holland) writes:

> When I started out, my task seemed simple enough!  i've got a 286 with
> MS-Win 3.0 installed and I've got to dial up a mainframe and ocasionally

Therein may lie the problem.  Does Windows revector PrtScrn in "Standard" mode?

- Jim
Newsgroups: comp.lang.pascal
From: sbarr@nyx.cs.du.edu (Sam E. Barr)
Subject: Re: Problems with IOResult (TP.6)
Organization: Uni of Newcastle, Australia
Date: Mon, 17 Aug 1992 03:49:32 GMT

In article <h07mcp=.gabriel@netcom.com> gabriel@netcom.com (Gabriel Beccar-Varela) writes:

>I have problems with the IOResult function. It gives me a non-zero result
>when I know positively that there is no I/O problem (I confirmed this by
>running the same code with IOResult commented out). I suspect that my disk
>cache is causing the problem. The IOResult function works if I do a dummy
>call to it before calling it for real. Like this:
> 
>         error := IOResult;
>         {$I-}
>         rewrite(f);
>         {$I+}
>         if IOResult <> 0 then ...
> 
>Any suggestions?

The problem here is that TP store the IOResult variable until you read it, 
after which it clear it.  So if you make a call to a function which returns 
a non-zero IOResult, and then call another i/o function without first 
reading, and thus clearing IOResult, you still get a non-zero result, 
regardless of the result of the second function.

The other problem arrising from this is that you cannot use a call such as

   if IOResult <> 0 then
     if IOResult = 8 then ....

because the IOResult is cleared after you read it the first time, and thus 
will be zero for the next read.

I'll leave it up to you to decide whether this is a bug or a feature, but 
for my mind it is a pain in the neck either way!!   :(

> 
>Thank you.
Your Welcome!

  Sam Barr
    sbarr@nyx.cs.du.edu
From: jnicholson@bowker.com (Jim Nicholson)
Newsgroups: comp.lang.pascal
Subject: Re: Graphics from TP6 to Printers: Help
Date: Fri, 21 Aug 92 10:51:58 EDT
Organization: Bowker Electronic Publishing, New Providence NJ

jm59@prism.gatech.EDU (MILLS,JOHN M.) writes:

> I have seen references to *.BGI files for printers, and am curious how
> these are used.  I have the Borland Graphix Toolbox, and was considering

There's a review of one of these toolboxes in the most recent (Aug/Sept) issue
of PC Techniques.

- Jim
From: gaertner@rz-berlin.mpg.de
Newsgroups: comp.lang.pascal
Subject: Re: Whither The Next ANSI Pascal Standard? (Breath of Life)
Date: 20 Aug 92 12:37:04 +0100
Organization: Rechenzentrum MPG Berlin

In article <19AUG199209013396@gergo.tamu.edu>, chris@gergo.tamu.edu (Chris King) writes:
> In article <1992Aug18.084321.25762@reed.edu>, orpheus@reed.edu (P. Hawthorne) writes...
>>Is there a proposal for an extension of the ANSI Pascal standard yet? The
>>dark forces of illegibility and crypticism (C and C++) would seem to be at
>>a major advantage, facing no competition from their archrival Pascal...
>> 
>>Theus (orpheus@reed.edu)
> 

  [ some discusion deleted ]

> 
> All in all, pascal will probably not change, since Wirth seems to have
> dropped it. I think that pascal will always
> be the language for application programmers and C will be the language of
> system programmers. But then again what do I know. 
> 
> Chris King
> Chris@gerga.tamu.edu
> [72030,1304] via Compuserve

There is a new IEEE Pascal standard out; most of this standard is implemented
in VAX Pascal.
This new standard descibres all the little things (separate compilation for
example), which were former arguments against Pascal.

Ralf

~~~~~~~~~~~~~~~~~~
  Ralf Gaertner
From: S105728@umrvma.umr.edu ( Steve Poulsen)
Newsgroups: comp.lang.pascal
Subject: Modem Source Needed [Reply]
Date: 22 Aug 92 03:25:08 GMT

If you want MODEM unit, try PCL10.ZIP.  [I like it and plan to register it].
For a minimal registration [$20 I think] you can get the source code.  It is
a very easy to use unit.  Also BBSKIT is supposed to be good.

========================================      ,--,
  Steven P. Poulsen <S105728@UMRVMA>       ,'  '--,
  Student of Electrical Engineering        ---, ,'
  University of Missouri - Rolla            ,','
=======================================    , '
Newsgroups: comp.lang.pascal
From: hons@rkw-risc.cs.up.ac.za (Honneurs Studente)
Subject: PASCAL vs C++
Date: 18 Aug 92 02:36:57 GMT
Organization: University of Pretoria, South Africa
Keywords: PASCAL C++

Can anyone give me opinions on the advantages of an Obj Oriented pascal vs C++.
More specifically perhaps TP for Windows vs say BC++ 3.1 for windows or even
Microsoft C/C++. How does pascal and windows get along compared to the C/C++
compilers. Are there any real advantages to using either of the two? I've
heard windows is written in C which would seem to indicate that C/C++ would
be a better choice.
Any opinions on the C/C++ vs PASCAL issue would be appreciated.

Please E_mail replies to 9180486@cs.up.ac.za
From: Louis.Mandelstam@p2.f42.n7101.z5.fidonet.org (Louis Mandelstam)
Newsgroups: comp.lang.pascal
Subject: Truetype fonts
Date: Thu, 13 Aug 92 17:04:00 GMT
Organization: FidoNet node 5:7101/42.2 - Lakeside BBS, Roodepoort

I want to write a program to convert MS Windows 3.1 TrueType fonts to BGI (.CHR) fonts.  Can anyone provide me with the file format of the TrueType fonts?

Cheers
The Poltergeist

--  
INTERNET: Louis.Mandelstam@p2.f42.n7101.z5.fidonet.org
via:  THE CATALYST BBS in Port Elizabeth, South Africa.
       (catpe.alt.za)   +27-41-34-1122 HST or +27-41-34-2859, V32bis & HST.
From: exuptr@exu.ericsson.se (Patrick Taylor)
Newsgroups: comp.lang.pascal
Subject: Re: RE: Updating
Date: 19 Aug 92 18:54:31 GMT
Organization: Ericsson Network Systems, Inc.

In article <19AUG92.06011743@skyfox.usask.ca> friesenda@skyfox.usask.ca writes:
>In a previous article, newso584@Armstrong.EDU (Robert Newsome) wrote:

>>This question may be naive, but is there a way that I can add records to a
>>pascal file that already exits?  i.e. an open command instead of rewrite?

>Yep.  Use the RESET command instead of REWRITE.  You may also have
>to SEEK to the end of the file first before adding the records.

Also, there is the append(f) function for files of type :text.

 ----------------------------------------------------------------------------
    "This must be Thursday.  I never could get the hang of Thursdays"
                                                       - D Adams
  - Patrick Taylor
    Ericsson Network Systems
    exuptr@exu.ericsson.se                       "Don't let the .se fool you"
    alternately, exuptr@ZGNews.Lonestar.Org
From: u912080@daimi.aau.dk (Rune Bang Lyngs|)
Newsgroups: comp.lang.pascal
Subject: Help! Dispose pointers in a tree
Date: 19 Aug 92 01:57:06 GMT
Organization: DAIMI: Computer Science Department, Aarhus University, Denmark


The following program should make a binartree.
Get it's height and start over again.

My problem is that the procedure DelTree maybe not delete the whole tree
(all poineters) as it should.
Anyway the heap-memory is being eating up.
If I write tree 200 2000 I get a heap-overflow after some time - why?
And if I write tree 20000 4 crash - why?
The solution are simple - I believe that but please help me!!!!








Program binaertrae;
Uses crt;

Type
 TreePointer = ^Tree;
 Tree = Record
         Element : Word;
         left    : Treepointer;
         right   : Treepointer;
        End;

Var
 P : TreePointer;
 Taeller,i,j : Word;
 hs,ss : Longint;
 Kode : Word;
 Antal:Word;
 ghs: real;

Function Max(x,y:Word):Word;
Begin
if x>y then Max:=x else Max:=y;
End;

Procedure Init(Var TP: TreePointer);
Begin
 New(TP);
 TP:=NIL;
End;

Procedure Insert(Var TP: TreePointer;Element: Word;Var a:Word);
Var
 P : TreePointer;

 Procedure Insert2(Var TP : TreePointer;EP: TreePointer;Var a:Word);
 Begin
  IF EP^.Element=TP^.Element Then exit;
  If EP^.Element<TP^.Element Then
   If TP^.Left=NIL Then
   Begin
    a:=a+1;
    TP^.Left:=EP;
   End
   else Insert2(TP^.Left,EP,a)
  else
   If TP^.Right=NIL Then
   Begin
    a:=a+1;
    TP^.Right:=EP;
   End
   else Insert2(TP^.Right,EP,a);
  End;

Begin
 New(P);
 P^.Element:=Element;
 P^.Left:=NIL;
 P^.Right:=NIL;
 If TP=NIL Then
  TP:=P
 else
  Insert2(TP,P,a);
End;

Procedure Print(Var TP : Treepointer);
Begin
 If TP=NIL then exit;
 Print(TP^.Left);
 Write(TP^.Element:8);
 Print(TP^.Right);
End;

Function Height(Var TP : TreePointer):Word;
Begin
 If TP=NIL then
 Begin
   Height:=0;
 End
  else
 Height:=1+Max(Height(TP^.Left),Height(TP^.Right));
End;

Procedure DelTree(Var Point : TreePointer);
Begin
  If Point=NIL then exit;
  If Point^.Left<>NIL then DelTree(Point^.Left);
  If Point^.Right<>NIL then DelTree(Point^.Right);
  dispose(Point);
End;

Begin
 hs:=0;
 ss:=0;
 Val(Paramstr(2),i,kode);
 If ParamCount<2 then exit;
 for j:=1 to i do
 Begin
  Val(Paramstr(1),antal,kode);
  If Paramcount=0 then antal:=10000;
  kode:=1;
  randomize;
  Init(P);
  For taeller:=1 to Antal do
  Begin
   Insert(P,random(65535),kode);
  End;
  {
  Print(P);
  }
  hs:=hs+height(p);
  inc(hs);
  ss:=ss+kode;
  ghs:=1+hs/j;
  DelTree(p);
  clrscr;
  writeln('Average elements=',(ss/j):5:1);
  writeln('Average height=',(ghs):3:2);
  writeln('Loop number:',j);
  writeln('MemAvail=',MemAvail);
 end;
End.
From: Ashley.Kleynhans@f54.n7101.z5.fidonet.org (Ashley Kleynhans)
Newsgroups: comp.lang.pascal
Subject: Truetype fonts
Date: Mon, 17 Aug 92 19:01:00 GMT
Organization: FidoNet node 5:7101/54 - Depths of Insanity, Alberton

Hi Louis,
 
* In a message originally to All, Louis Mandelstam said:
 
LM ->I want to write a program to convert MS Windows 3.1
LM ->TrueType fonts to BGI (.CHR) fonts.  Can anyone provide me
LM ->with the file format of the TrueType fonts?

Unfortunately I am unable to help, BUT I must say that it is an 
EXCELLENT idea!!!!
 
Cheers.
--  
INTERNET: Ashley.Kleynhans@f54.n7101.z5.fidonet.org
via:  THE CATALYST BBS in Port Elizabeth, South Africa.
       (catpe.alt.za)   +27-41-34-1122 HST or +27-41-34-2859, V32bis & HST.
From: S_JUFFA@iravcl.ira.uka.de (|S| Norbert Juffa)
Newsgroups: comp.lang.pascal
Subject: Minor bug in TPL60N15.ZIP fast RTL replacement for TP 6.0
Date: 18 Aug 1992 17:31:43 GMT
Organization: University of Karlsruhe (FRG) - Informatik Rechnerabt.
Distribution: world
NNTP-Posting-Host: irav1.ira.uka.de
X-News-Reader: VMS NEWS 1.23

Hi netters!

For all those out there that use my fast run time library replacement for
Turbo Pascal 6.0 - available as TPL60N15.ZIP from grabo.uwasa.fi and additional
sites - (I hope I am not talking about an empty set here ;-) I'd like to
inform you about a little bug I discovered right now. If you explicitly set
the environment variable 87=Y, the Test8087 variable will sometimes return
an incorrect coprocessor type. This bug will be corrected in the next version
which I plan to get out in about two weeks.

Norbert
-------------------------------------------------------------------------------
Norbert Juffa       email: S_JUFFA@IRAVCL.IRA.UKA.DE         Live and let live!
From: 6500sctt@ucsbuxa.ucsb.edu (Scott Loban)
Newsgroups: comp.lang.pascal
Subject: Re: A good example of OOP
Date: 22 Aug 92 14:44:15 GMT

In article <1992Aug12.181130.27927@usenet.ins.cwru.edu> br707@cleveland.Freenet.Edu (Mike L. Melamed) writes:

>Can someone provide me with a good demo of OBJECT ORIENTED PROGRAMMING?

>I know the concepts and everything but lack a good example from which I 
>could fully understand it. I tried TurboVision but it's way too hard to
>jump from 0 to 100, you know what I am saying?

Have you seen the book: "The Tao of Objects" by Gary Entsminger (M&T
Books, 1990)?  I recommend it as a very approachable introduction to
OOP concepts.  It illustrates everything with both TPW and C++ code
examples.

Scott R. Loban                                   loban@geog.ucsb.edu
Dept. of Geography                         6500sctt@ucsbuxa.ucsb.edu
University of California                 CompuServe Mail: 76646,3451
Santa Barbara, California                      Phone: (805) 893-4519
--------------------------------------------------------------------
"I was building a model for it, but I got glue on the windshield..."
--------------------------------------------------------------------
Newsgroups: comp.lang.pascal
From: kjell@elixir.e.kth.se (Kjell Rilbe)
Subject: Re: have wherey - how to modify for wherex?
Organization: Dept. of EE, Royal Institute of Technology, Stockholm, Sweden
Date: Mon, 17 Aug 1992 15:25:27 GMT

In article <1992Aug17.135257.18261@javelin.sim.es.com> tpehrson@javelin.sim.es.com writes:
>here's my wherey function (to find the cursor row) - how do i modify it to
>find the wherex (cursor column)?
>
>function wherey:byte;
> var reg:registers
>  begin
>   fillchar(reg,sizeof(reg),0);
>   reg.ax:=$0300;   {change this to what?}
>   intr($10,reg);
>   with reg do
>   wherey:=hi(Dx)+1;
>  end;

I'm taking the liberty to "clean up" this procedure ;-)

FUNCTION WhereY : Byte;
  VAR Reg : Registers;
  BEGIN
    WITH Reg DO BEGIN
      AH:=$03; { BIOS function to get cursor position. }
      BH:=$00; { Text page number, normally 0, but can be 0-7. }
      Intr($10,Reg);
      WhereY:=DH; { Same as Hi(DX), check Ctrl-F1 on Registers! }
    END;
  END;

FUNCTION WhereX : Byte;
  VAR Reg : Registers;
  BEGIN
    WITH Reg DO BEGIN
      AH:=$03;
      BH:=$00;
      Intr($10,Reg);
      WhereX:=DL; { Same as Lo(DX). }
    END;
  END;

Simple, right?

But, why don't you use the WhereX and WhereY functions in the CRT unit?????
They work just fine. The only difference is they give you coordinates
X=1..80 and Y=1..25, instead of beginning with 0, but that's easy to fix:

USES CRT;

FUNCTION WhereX : Byte;
  BEGIN
    WhereX:=CRT.WhereX-1;
  END;

...

Or, you can just check the BIOS data area. I don't remember the addresses
right now, but that info can easily be found.

/Kjell Rilbe

P.S. I know, this did get a bit lenghty......
From: mudrc@uxa.ecn.bgu.edu (Daniel R. Crowson)
Newsgroups: comp.lang.pascal
Subject: Displaying a picture?
Date: 21 Aug 92 04:16:49 GMT
Organization: Educational Computing Network


  How can I convert a picture (GIF) to data to display in a program?
Or, are there any gif units for TP 6.0?  I have one, but its only for
4.0 and has no source code.


---------------------------------------------------------------------------
        Dan Crowson                     |    mudrc@uxa.ecn.bgu.edu       
        Computer Science Student        |    crowsond@vax3.siue.edu     
        Western Illinois University     |    Hacker --> IRC             
___________________________________________________________________________
From: bobb@vice.ICO.TEK.COM (Bob Beauchaine)
Newsgroups: comp.lang.pascal
Subject: Re: Turbo Pascal -> Borland C++?????
Date: 13 Aug 92 23:54:45 GMT
Organization: Tektronix, Inc., Beaverton,  OR.

In article <1992Aug13.120331.1@vaxb.acs.unt.edu> wilsonm@vaxb.acs.unt.edu writes:
>Well there is suppose to be a way to call C OBJ's from Pascal.  I have yet to
>get it to work correctly though.  All the sample code that comes with BC 3.0
>works great...but when I try a simple string alteration it chokes.
>

  You'll probably notice that the examples uses exactly zero calls
  to the C++ run time library.  If, in your code, you included
  <string.h> and then called *any* of the routines therein, the
  linker can't resolve the references to RTL calls.  I too wish
  Borland would support linking .LIB's into TP programs.

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

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: jnicholson@bowker.com (Jim Nicholson)
Newsgroups: comp.lang.pascal
Subject: Re: TV Focus in Dialog views
Date: Sat, 22 Aug 92 19:23:18 EDT
Organization: Bowker Electronic Publishing, New Providence NJ

bobb@vice.ICO.TEK.COM (Robert Beauchaine) writes:
>
>   Actually, I solved the problem today.  Catching the change of
>   focus seems to be the correct solution.  The one missing part was
>   to check the value of the COMMAND parameter passed into the input
>   number's valid() function.  If COMMAND = cmCancel, don't do the
>   validation.  Pretty simple, but it gave me fits!
>

Could you post the source?  I'd be really interested in seeing how you did
this, as I've been doing it the "HandleEvent" way, and I suspect there's less
of a performance penalty with your method.

- Jim

Newsgroups: comp.lang.pascal
From: tech@crash.cts.com (Don Bontemps)
Subject: Help with TSR programs
Organization: CTS Network Services (crash, ctsnet), El Cajon, CA
Date: 20 Aug 92 22:05:14 PDT

Hello fellow pascal programmers.  I am attempting to write a TSR
program using TP 6.0.  I understand how to use the KEEP command
to install the TSR program but how can you tell if your TSR is
currently running so as not to execute it twice?  Also, once your
TSR is installed, how do you get it to unload itself from memory?

Any help would be appreciated.  Thanks (in advance) !

--
Donald P. Bontemps Jr.
Techknow Computer Consulting
San Diego, California, USA
(619) 899-2114