From: "@lmcinvestments.com   
      
   Jochen wrote:   
   >   
   > Hello ng,   
   >   
   > Marco van de Voort typed:   
   > > On 2005-02-09, Brian  wrote:   
   > >> On Tue, 08 Feb 2005 21:00:29 +0000, Mike Dickson wrote:   
   > >>> and using   
   > >>>   
   > >>>    Write('Hello World!',CrtTab,"How are you?");   
   > >>>   
   > >>> instead?   
   > >>>   
   > >> Because you'll get a fixed block of 8 spaces which won't behave the   
   > >> same as tab - even though that may sometimes display as 8 spaces.   
   > >   
   > > (untested brain experiment. This is kind of dangerous. Implementations   
   > > that calculate the whole string instead of per item will fail)   
   > >   
   > > {$ifndef FPC}   
   > > const screenwidth=80;   
   > > {$endif}   
   > >   
   > > function crttab:string;   
   > >   
   > > var x,y: integer;   
   > >   
   > > begin   
   >   
   > crttab := ''; {??}   
   >   
   > >  x:=(wherex+8) and not 7;  y:=wherey;   
   > >  if x>screenwidth then   
   > >   begin   
   > >    dec(x,screenwidth); inc(y);   
   > >  end;   
   > >  gotoxy(x,y);   
   > > end;   
   > >   
   > > write('Hello World!',crttab,'How are you?');   
   >   
   > It did not work for me using TP7 running XP Sp1. I am not sure about   
   > TPW.   
   > On the net there was info that gotoxy, wherex, ... were still part of   
   > Delphi 1. They are not with Delphi 6.   
   >   
   > i came up with the following which works in 1st version but not in 2nd.   
   > Obviously the TP7 compiler does not serialize write-statement as   
   > expected. All "functions" (damn sideffects ;)) seem to be evaluated b4   
   > the output is started.   
   >   
   > - - - -   
   >   
   > program wintab; {TP 7}   
   >   
   > uses crt;   
   >   
   > function wtab : string;   
   > begin   
   >   wtab := copy('        ',1,(8 - (pred(wherex) and 7)));   
   > end;   
   >   
   > begin   
   >   writeln('Using whereX to simulate TAB');   
   >   writeln;   
   >   
   > write('12345678901234567890123456789012345678901234567890123456789012345   
   > 678901234567890');   
   >   {works here : }   
   >   write('a234567');   
   >   write(wtab, 'b');   
   >   write(wtab, 'c');   
   >   write(wtab, 'asssdasdasddasd');   
   >   write(wtab, 3.0:4:2);   
   >   write(wtab, 'd');   
   >   writeln;   
   >   
   >   writeln('In ONE statement: ');   
   >   writeln;   
   >   
   > write('12345678901234567890123456789012345678901234567890123456789012345   
   > 678901234567890');   
   >   {does not work here: }   
   >   write('a234567',   
   >         wtab, 'b',   
   >         wtab, 'c',   
   >         wtab, 'asssdasdasddasd',   
   >         wtab, 3.0:4:2,   
   >         wtab, 'd');   
   >   writeln;   
   >   write('OOOPS :) - Press ENTER');   
   >   readln   
   > end.   
   >   
   > - - - -   
   >   
   > greetings   
   > jo   
   >   
   > --   
   > http://radio789.net.ms - Radio 789 - We play it ALL   
   > Radiostream: http://stream789.net.ms   
      
   procedure wTab; {does no checking for screen size}   
   const tabstop=8;   
   begin   
   gotoxy (tabstop*(wherex div tabstop) + 1),wherey);   
   end;   
      
   Cheers Hanford   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)