Forums before death by AOL, social media and spammers... "We can't have nice things"
|    comp.lang.pascal.borland    |    Borland Pascal was actually pretty neat    |    2,978 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 1,383 of 2,978    |
|    Jochen to All    |
|    Re: Tabs in WinCrt    |
|    11 Feb 05 17:27:19    |
   
   From: jotel99@hotmail.com   
      
   Hello Marco,   
      
   Marco van de Voort typed:   
   > I haven't seriously used TP in a decade, this was thought up using   
   > FPC.   
      
   I now tried your and my version of tab-function using TP7, FP 1.9.6, and   
   VP.   
   The good thing is: results look the same all the time :)   
   The bad one: None is working as expected. Tab function has to be 1st   
   param in the param list of the write procedure.   
      
   Obviously the functions are "evaluated" b4 the output is started.   
      
   In my version wtab always gives same amount of spaces then. In your   
   version the cursor is set (multiple times) to position on screen b4 the   
   output has started and the data then is written there without further   
   spacing.   
      
   Btw. Your version tabs at 8,16,24 ... 80(?) whereas mine positions at   
   9,17,25 ... 73,1   
      
   Am i missing something? compilerswith maybe?   
      
   Since write is a special procedure anyway, maybe there is a way to   
   change order of evaluation?   
      
   write('abc',wtab,'xyz',wtab,'123'); is now elvaluated something like   
   this:   
      
   - calculate wtab to temp result "r1"   
   - calculate wtab to temp reslut "r2"   
   - writestring('abc');   
   - writestring(r1);   
   - writestring('xyz');   
   - writestring(r2);   
   - writestring('123');   
      
   is it possible to make it ...   
      
   - writestring('abc');   
   - calculate wtab to temp result "r1"   
   - writestring(r1);   
   - writestring('xyz');   
   - calculate wtab to temp reslut "r2"   
   - writestring(r2);   
   - writestring('123');   
      
   ???   
      
   greets   
   jo   
      
   --   
   http://radio789.net.ms - Radio 789 - We play it ALL   
   Radiostream: http://stream789.net.ms   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   
|
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca