home bbs files messages ]

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,339 of 2,978   
   Markus Humm to All   
   Re: Real Help Now, seriously   
   07 Feb 05 18:31:52   
   
   From: markus.humm1@freenet.de   
      
   [snip]   
      
   that is simple!   
   Open the file as file of char and write your own readln function for   
   that. It will be slow, but you didn't say it had to be as fast as   
   reading normal pascal text files.   
      
   But:   
      
   1. do rather learn Pascal than always compare it to C. Almost no   
       language can stand a comparison with any other given language, since   
       all do have their own philosophy.   
      
   2. don't create always new threads, answer on the same thread -   
       otherwise you'll be identified easily as troll, because you don't   
       react on comments/advice given to you.   
      
   3. can you do this in C?   
      
       type mytype = record   
                       name      :STRING;   
                       personelID:WORD;   
                       salary    :LONGINT;   
                       department:STRING[10];   
                     end;   
       var myfile:FILE OF MYTYPE;   
           myvar :MYTYPE;   
           n:INTEGER;   
      
       begin   
         assign(myfile,'c:\test.dat');   
         writeln(filesize(myfile));   
         FOR n:=1 TO filesize(myfile) DO   
         BEGIN   
           read(myfile,myvar);   
           writeln('Name      : ',myvar.name);   
           writeln('PersonelID: ',myvar.personelID);   
           writeln('Salary    : ',myvar.salary);   
           writeln('Department: ',myvar.department);   
         END;   
         close(myfile);   
       end.   
      
       Can you really?   
      
   Greetings   
      
   Markus   
      
   --- 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